<% strID = request.querystring if strID <> "" then lngID = sbDecrypt(strID) else lngID = "" end if if lngID <> "" then SQL = "SELECT RefID FROM Register WHERE ID=" & lngID set rs = createobject("ADODB.Recordset") rs.Open SQL, myDSN ref = rs("RefID") set rs = nothing end if strUrl = "affiliate_purchase_your_copy_of_spambat.asp?" & sbEncrypt(ref) response.redirect strUrl %>