<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
dim conn 'database connection object
dim rs 'recordset
dim strSQL 'sql query
dim endline
'set endline
endline = chr(10)
'create the connection object
set conn = Server.CreateObject("ADODB.Connection")
'open the connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\hnt7c211\legacy\f7e8af3jk23sd3.mdb;"
'create a recordset
set rs = Server.CreateObject("ADODB.Recordset")
'set up the SQL statement
strSQL = "SELECT * FROM Newsletter WHERE Email=""" & Request.Form("Email") & """"
'set rs properties
rs.LockType = adLockOptimistic 'to lock the recordset while updating
'run the query
rs.Open strSQL, conn
if rs.EOF then
'no match
Session("responseString") = "We're sorry, but that Email address is not subscribed to the Email Newsletter."
else
'delete the record
rs.Delete
Session("responseString") = "You are now unsubscribed from the Email Newsletter."
end if
'close and reset variables
rs.Close
set rs = Nothing
set conn = Nothing
'Redirect to generic message output page
Response.Redirect "form_submit.asp"
end if
%>
Legacy Cruise II
