<% strID = request.querystring("id") if strID <> "" then lngID = sbDecrypt(strID) else lngID = "" end if if request("action") = "1" then lngID = request("reg") SQL = "UPDATE Register SET " SQL = SQL & "name=" & SQLString(request("name")) & ", " SQL = SQL & "email=" & SQLString(request("email")) & ", " SQL = SQL & "paypal_email=" & SQLString(request("paypal")) & " " SQL = SQL & "WHERE ID=" & lngID set cn = createobject("ADODB.Connection") cn.Open myDSN cn.Execute SQL return_url = request("url") if return_url <> "" then response.redirect return_url end if end if if lngID <> "" then SQL = "SELECT * FROM Register WHERE ID=" & lngID set rs = createobject("ADODB.Recordset") rs.Open SQL, myDSN name = rs("name") email = rs("email") paypal_email = rs("paypal_email") set rs = nothing if name = "" and email <> "" then name=email end if end if %>
Anti spam, Spam blockerAnti spam, Spam Killer I hate spam, Spam killer

Your Information

 
First Name If you forget your serial number we will send it to the email address you provide.  Only your first name is required.
Email
PayPal Email (Optional) By providing a PayPal email address you become an authorised reseller of spamBat and earn $5 on each sale you make.
   
">

We never rent, lend or sale your private information.  For full information please read our privacy policy.

<%w=1%>