% strStatus = "" If Request("btnSubscribe") <> "" Then Set rs = conn.execute("SELECT * FROM tblNewsLetter WHERE strEmail='" & FA(Request("strEmail")) & "'") If rs.EOF Then conn.execute "INSERT INTO tblNewsLetter(strEmail) VALUES('" & FA(Request("strEmail")) & "')" End If strStatus = "You have successfully subscribed!" ElseIf Request("btnUnsubscribe") <> "" Then conn.execute "DELETE FROM tblNewsLetter WHERE strEmail='" & FA(Request("strEmail")) & "'" strStatus = "You have successfully unsubscribed." End If %>
|