<% id=Request.Querystring("id") Dim url Dim soft Dim host host="http://www.coolmasoft.com" if id="1" then url="/setup.exe" soft="Multi Ftp Sync" elseif id="2" then 'url="/wssetup.exe" url="http://www.qwerks.com/download/8845/setup.exe" host="" soft="Web Sharp" elseif id="3" then url="http://www.qwerks.com/download/8893/setup.exe" host="" 'url="/ChangeIP/setup.exe" soft="Change IP" elseif id="websharp_java" then url="/other/Websharp.zip" 'url="/ChangeIP/setup.exe" soft="Websharp for Java" else Response.Write "Error download parameter" Response.End end if Const ForAppending = 8 Const Create = true Dim FSO DIM TS DIM MyFileName Dim strLog MyFileName = Server.MapPath("../../logfiles/Down"& FormatDateTime(Date)&".txt") Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create) ' Store all required values in strLog strLog = "[" &now & "] " strLog = strLog & soft & vbcrlf strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & vbcrlf strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT") & vbcrlf strLog = strLog & Request.ServerVariables("HTTP_REFERER") & vbcrlf ' Write current information to Log Text File. TS.write strLog 'TS.Writeline "" ' Create a session varialbe to check next time for ValidEntry Set TS = Nothing Set FSO = Nothing %> If download is not proceeded, please click here