<% dim emailexist, error, error_msg '=================== 'make sure the data all matches up set tigRS = Server.CreateObject("ADODB.Recordset") query = "SELECT emailaddy, checknum " & _ "FROM mailout " & _ "WHERE " & _ "emailaddy = '" & SQLsafe(Request.QueryString("e")) & "'" & _ "and " & _ "checknum = '" & SQLsafe(Request.QueryString("n")) & "'" 'Response.Write("Query = [" & query & "]
") tigRS.Open query,DSN,1 if not tigRS.EOF then emailexist = true else 'they ain't in the DB :[ error = true error_msg = error_msg & "
  • Your email address is not in the ..::LvL mailout database or your security number in incorrect - make sure the URL is the same as that in the email (it needs to be the FULL URL)
    • " end if tigRS.close if emailexist then '================= 'they want to subscribe!! - yayayay! set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "update mailout " & _ "set active = 1 " & _ "WHERE " & _ "emailaddy = '" & SQLsafe(Request.QueryString("e")) & "'" & _ "and " & _ "checknum = '" & SQLsafe(Request.QueryString("n")) & "'" 'Response.Write("Query = [" & query & "]
    ") tigCON.Execute(query) tigCON.close end if %> [ contact ] ..::LvL Mailout
    +---------------------

     

    <% if error then Response.Write("There was an error processing your request.
      "& error_msg &"
    ") else %>

    Welcome to the ..::LvL mailout - you have successfully unlocked your subscription. Expect your first ..::LvL update mail soon.

    <% end if %>