Hello,

I would like to retrieve a file from a remote server using an ASP page and save it on my computer. The only thing that I can do so far is retrieve a file that is on my computer, using the following code:

<%
dim stream
set stream = server.createObject("adodb.stream")
stream.open
stream.type = 1
Settings\stream.LoadFromFile "C:\Documents and Settings\Administrator\Desktop\test.txt"
stream.SaveToFile "C:\temp\test_cpy.txt",1
Response.Write "File saved!"
%>

Does anyone know what I can do?

Thanks,
tcb.

You cannot access the files from remote computer (with out necessary permissions) via ASP.
It is not possible with the code which you have.

You could retreive a file from a remote URL possibly using a third party object. I've never seen it done in ASP.
In ASP.NET however, it's simply a case of creating a Request object, giving it a URL, and calling a method to get the data stream.

get the content of a URL

function GetPageContent(strURL)
 Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  
 	xml.Open "GET", strURL, False
	xml.setRequestHeader "User-Agent", strUserAgent '  "Googlebot/2.1+(+http://www.googlebot.com/bot.html)"
	xml.Send
	if xml.status = 200 then
	GetPageContent= xml.responseText
	else
	GetPageContent= cstr(xml.status) & " (" & xml.StatusText & ")"
	end if
  Set xml = Nothing
end function

to set the UserAgent

dim ArrayUA(6,1)
ArrayUA(0,0) = "Put your own user agent in here"
ArrayUA(1,0) = "Googlebot/2.1+(+http://www.googlebot.com/bot.html)"
ArrayUA(2,0) = "Mozilla/5.0 (compatible; Yahoo! Slurp; http://help.yahoo.com/help/us/ysearch/slurp)"
ArrayUA(3,0) = "msnbot/0.3 (+http://search.msn.com/msnbot.htm)"
ArrayUA(4,0) = "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; .NET CLR 1.0.3705; .NET CLR 1.1.4322)"
ArrayUA(5,0) = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0;)"
ArrayUA(6,0) = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"
ArrayUA(0,1) = "LinkCheck"
ArrayUA(1,1) = "Googlebot"
ArrayUA(2,1) = "Yahoo"
ArrayUA(3,1) = "MSN Bot"
ArrayUA(4,1) = "Browser IE Win98"
ArrayUA(5,1) = "Browser IE Win 2K"
ArrayUA(6,1) = "Browser IE Win XP"

dim strUserAgent
strUserAgent = ArrayUA(1,0)