<% 
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath("../bd/clicks.mdb")
set rs = server.createobject("ADODB.Recordset")
url="schedu"
ip=request.servervariables("remote_addr")
sql = "insert into clicks (url,ip) values('" & url & "','"& ip &"')" 
rs.open sql, cn
Response.Buffer = True
login="teste"
response.AddHeader "Content-Type","application/x-msdownload"
response.AddHeader "Content-Disposition","attachment; filename=scheduler.exe"
Response.Flush
Const adTypeBinary = 1
Dim strFilePath

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary

objStream.LoadFromFile Server.MapPath("scheduler.exe")
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush


%>