<% dim mspecial, MakeOffer mspecial = false '1 fn = request.querystring("fn") if (fn="") then response.end %> PC-Magic Software Download

Your download should start immediately. If not then just click here

Please take a moment to visit our newest creation: TopSellers.com
The Web's Top Sellers updated hourly
Great for Gift Ideas and Hot Deals! Start your online shopping here!
 

<% 'if request.querystring("test")<>1 then response.end Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={MySQL ODBC 3.51 Driver};server=pcm50.db.3047109.hostedresource.com;uid=pcm50;pwd=SirScott50;database=pcm50" if instr(1,fn,"/") <> 0 then x = len(fn) while (mid(fn,x,1)<>"/") x= x-1 wend fn = mid(fn,x+1) end if fn = replace(fn,":",".") fn = lcase(fn) dait = sqldate(date()) 'response.write "fn: " & fn & " dait: " & dait sql = "SELECT cnt FROM downloads WHERE file= '"+fn+"' AND date='"+dait+"'" 'response.write "
sql: " & sql set rs = conn.execute(sql) if rs.eof= true then sql = "INSERT INTO downloads (file,date,cnt) VALUES ('"+fn+"','"+dait+"',1)" else sql = "UPDATE downloads SET cnt=" & (rs("cnt")+1) & " WHERE file='" & fn & "' AND date='" & dait & "'" end if 'response.write "
sql: " & sql conn.execute(sql) rs.close set rs=nothing if mspecial = true then 'read cookie if a = Request.Cookies("session")= "" then if fn = "mfx.exe" or fn="mfx64.exe" then 'set madeoffer cookie Response.Cookies("session") = "847592" Response.Cookies("session").Expires = Now + 365 Response.Cookies("session2") = "847592" Response.Cookies("session2").Expires = Now + 365 Response.Cookies("session2").Domain = "http://reconnecthere.com/" MakeOffer = true end if end if end if 'end if conn.close set conn = nothing 'delete old files in download folder on error resume next Set fs=Server.CreateObject("Scripting.FileSystemObject") Set objFolder=fs.GetFolder(server.mappath("downloads")) Set colFiles = objFolder.Files If colFiles.Count > 0 Then For Each objFile In colFiles created = objFile.DateCreated if datediff("n",created,now()) > 4 then objFile.Delete() else response.write "
" & objFile & " " & created & " " & datediff("n",created,now()) end if Next End If response.end function SqlDate(a) if isdate(a) then SqlDate= Pd(YEAR(a),4) & "-" & Pd(MONTH(a),2) & "-" & Pd(DAY(a),2) end function Function pd(n, totalDigits) if totalDigits > len(n) then pd = String(totalDigits-len(n),"0") & n else pd = n end if End Function ' 'src of js.php... ' '//Copyrighted 2008 PC-Magic Software Inc - all rights reserved 'function strip(a){ ' return a.replace(',',''); } %>