'--Ajith Dharwar---------akdharwar@yahoo.com---------------5/4/2005-----
'--------------------------ASP from DTS---------------------------------
'----------Write a DTS with following ActiveX script and customize------
'----------Then schedule it.--------------------------------------------
	
Function Main()
    Dim xmlServerHttp
    Set xmlServerHttp = CreateObject("Msxml2.ServerXMLHTTP.5.0")
    xmlServerHttp.SetOption 2, 13056 ' Ignore all SSL errors
    xmlServerHttp.open "GET", "https://www.myweb.com/actionfilled.asp", False
    xmlServerHttp.send ()
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 1
    objStream.Open
    objStream.Write xmlServerHttp.ResponseBody
    objStream.SaveToFile "C:\NY.ZIP", 2
    Set xmlServerHttp = Nothing
    Set objStream = Nothing
    Main = DTSTaskExecResult_Success

End Function