Displaying External Web Site via Intranet

[John Daly]

We have approximately 90 computer users, but only 13 have internet access,
the rest are not configured to browse the internet. We want to display
certain web sites to all users without reconfiguring their pcs. Is there a
way to have our intranet web server retrieve the external page and then
display the results to the user?

Thanks.

[Nenefta]

Hi John,

From what I understand you want to load a webpage on the server, and

display the contents in your own site. I found something that should do
it for you:

---Create the request
Dim WebRequest As System.Net.WebRequest =
System.Net.WebRequest.Create(New Uri(CurrentLink))
WebRequest.Timeout = 2000

'---Get the response produced by the request
Dim Response As System.Net.WebResponse = WebRequest.GetResponse

'---Download the page content into a stream
Dim Stream As System.IO.Stream = Response.GetResponseStream

'---Place the stream into a stream reader
Dim StreamReader As New System.IO.StreamReader(Stream)

'---Read the stream into a string object
Dim HtmlReceived As String = StreamReader.ReadToEnd

'---Place the string into a literal control
Literal1.Text = HtmlReceived

'---Cleanup
Stream.Close()
StreamReader.Close()
Good luck,
Marcel

[John Daly]

Thanks for the code. it looks like that will work...

"Nenefta" wrote:

Hi John,

From what I understand you want to load a webpage on the server, and

display the contents in your own site. I found something that should do
it for you:

---Create the request
Dim WebRequest As System.Net.WebRequest =
System.Net.WebRequest.Create(New Uri(CurrentLink))
WebRequest.Timeout = 2000

'---Get the response produced by the request
Dim Response As System.Net.WebResponse = WebRequest.GetResponse

'---Download the page content into a stream
Dim Stream As System.IO.Stream = Response.GetResponseStream

'---Place the stream into a stream reader
Dim StreamReader As New System.IO.StreamReader(Stream)

'---Read the stream into a string object
Dim HtmlReceived As String = StreamReader.ReadToEnd

'---Place the string into a literal control
Literal1.Text = HtmlReceived

'---Cleanup
Stream.Close()
StreamReader.Close()
Good luck,
Marcel