<% if request("Action") = "1" then member_email = request("email") SQL = "SELECT ID, license_count FROM Register WHERE email=" & SQLString(member_email) set rsReg = createobject("ADODB.Recordset") rsReg.Open SQL, myDSN if not rsReg.EOF then strLogin = "If you wish to modify your affiliate and/or Paypal email address " & _ "visit http://spambat.com/share.asp?id=" & _ server.urlencode(sbEncrypt(rsReg("ID"))) & vbCrlf & vbCrlf strSerial = "280503-" & rsReg("ID") & "-" & rsReg("license_count") strMsg = "Serial number has been sent to " & request("email") admin_email = "support@spambat.com" admin_subject = "Your spamBat Registration Information" admin_text = "Your serial number is " & strSerial & vbcrlf & vbcrlf & strLogin & _ "Regards," & vbcrlf & "spamBat Support." & vbcrlf & admin_email SendMail member_email, admin_subject, admin_text else strMsg = "Cannot find " & member_email & " in the database. " & _ "Please check the spelling and try again." end if set rsReg = Nothing End if %>

Serial Number Lookup

Enter your registered email address below and press Submit, we will send your serial number and login information by email.

   

<%=strMsg %>