Drift Surfing | Perspective(s) in surfing

<% dim unemail unemail = trim(request.Form("unemail")) session("unemail") = replace(unemail, "'", "''") if session("unemail") = "" then strErr = strErr & "

Email is required

" end if if strErr <> "" then intMessage = 1 else dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "Provider=SQLOLEDB.1;Password=tfird;Persist Security Info=True;User ID=drift;Initial Catalog=Drift Magazine;Data Source=ORIGINHOTBACKUP\WEBSERV2" dim SQL SQL = "insert into NOLunsubs(email, unsub, site_id) values ('" & session("unemail") & "', 1, 1)" Conn.execute(SQL) intMessage = 2 'remove session email session.Contents.Remove("unemail") end if %> Drift Surfing | Perspective(s) in surfing

<%if intMessage = 2 then%> That's it, you're gone! <%elseif intMessage = 1 then%>

Oops!
There were some problems with removing you. They are listed below:

<%=strErr%>
Please click here to correct them.

<%end if%>