<% dbpath="D:\Webs\yourfreeworld.com\db\affiliate.mdb" if not request.querystring("id")="" then a=request.queryString("id") if IsNumeric(a) then set con=server.createObject("ADODB.Connection") con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath con.open if a>0 then set rs=con.execute("Select * from affiliate where ID="&a) if not rs.eof then Session("id")=a Session("mode")=rs(2) con.execute("update affiliate set hits=hits+1 where ID="&a) end if rs.close Set rs=nothing end if con.close Set con=Nothing end if end if response.redirect "http://www.yourfreeworld.com/script/htmllockdown" %>