<%
dim conn, x, i
x=request.ServerVariables("HTTP_REFERER")
i = instr(1,x,"p?e=",1)
if isnumeric(i) and i >0 then
x = mid(x,i+4)
else
x =""
end if
'e = request.querystring("e")
'INSERT INTO CLICK TRACKING
OpenDb()
sql = "insert into RedirectsTracking (offerid) values('BOL0020')"
sql2 = "insert into OffersTaken (offercode,Email) values('BOL0020','" & x & "')"
conn.execute(sql)
conn.execute(sql2)
CloseDb()
%>
In a moment you will be sent to your Cool Offer.
Click Here to go There Now!