Programalama > ASP

<%

'db locs
Server.ScriptTimeOut=640

hdLocation="../../db/"

dosyalarim=array(_
"test.mdb",_
"test2.mdb")

For i=0 to ubound(dosyalarim)


    kaydedilecek = hdLocation&dosyalarim(i)
	'fileURL=fileURL&dosyalarim(i)
    Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP")
	'
	'asil serverdeki dbler fso yada ftp ile web e acik bi dizine kopyalanmali
    '
    xmlHTTP.open "GET", "http://smslust.net/temproryfolder/"&dosyalarim(i), false
    xmlHTTP.send()

	set myStream = CreateObject("ADODB.Stream")
	myStream.Open
	myStream.Type = 1
 	myStream.Write xmlHTTP.ResponseBody
	myStream.Position = 0
	
	Set kopyala = server.CreateObject("Scripting.FileSystemObject")
    if kopyala.FileExists(Server.MapPath(hdLocation&dosyalarim(i))) then
    kopyala.DeleteFile Server.MapPath(hdLocation&dosyalarim(i))
    end if
    set kopyala = Nothing
	
	myStream.SaveToFile Server.MapPath(kaydedilecek)
	myStream.Close
	Set myStream = Nothing
    Set xmlHTTP = Nothing


next
%>