Hi there! Does anyone know how I can retrieve the source code of a given URL in ASP?

I tried using Internet Transfer Control but I found out that Visual Basic must be installed in the server first before it can work. Are there other ways on how I can retrieve the source code without the need to install other components?

Thanks

You can not retrieve the source code of ASP or PHP, I believe this goes for all server side web scription languages.(unless directory browsing is turned on, this is an IIS setting that makes all your code avaible to EVERYONE)

BTW: This is a good thing. Server side scripters get paid much more than clint side guys, this is one of the main reasons why.

You say:
;;;retrieve the source code of a given URL in ASP?

You can retireve the URL using server variables. If this is what you are after here is a script that shows you all available server variables.

(the one you are after is request.servervariables("PATH") for thr URL)

------------------cut n paste code--------------------
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="750">
<tr>
<td valign="top" align="left" width="150"><b>Variable Name</b></td>
<td valign="top" align="left" width="600"><b>Value</b></td>
</tr>
<%
for each name in request.servervariables
%>
<tr>
<td valign="top" align="left" width="150">

<%= name %></td>
<td valign="top" align="left" width="600">
<%= request.servervariables(name) %></td>
</tr>

<%
Next
%>
</table>
</div>
------------------------finish----------------------


Wind is your friend
Matt

Do you want to retrieve the HTML that a given ASP page generates ? If yes, you can use XMLHTTP object. This will be normally available in windows 2000 and above by default. If it is not available, you can MSXML library (available free of cost at microsoft site) on the server.

Here is a sample code to use with XMLHTTP object.

on error resume next
dim str_html
dim obj_source_page
Set obj_source_page = Server.CreateObject("Msxml2.SERVERXMLHTTP")
obj_source_page.Open "GET", "http://www.yoursite.com", False
obj_source_page.Send
If Err.Number <> 0 Then
    Response.Write("Your web site does not appear to be up right now. Please try again later.")
    Err.Clear
Else
    str_html = obj_source_page.ResponseText
End If

After running this script, str_html contains the html generated by the default page of www.yoursite.com

Hope this helps

Madhu

Thanks! I tried using XMLHttp and it works. However, I tried running the code in other pcs but in some, it won't work. I can't remember if I've installed the MSXML library in my pc that's why it's working here..but will you know if XMLHTTP can already be found in Windows2000 or do I have to install the MSXML library?

I am not sure about this. My previous win 2k installation was running this component without any problem. When I re-installed it recently, this component stopped working. I had to run the MSXML library after downloading from MS.

I don't know which installation option is installing this component. May be somebody else can help us.