<% Dim useraction Dim Email Dim Action Dim SQL Email = lcase(request.form("Email")) useraction = request.form("Join_Quit") set RS = server.createobject("adodb.recordset") SQL = "SELECT * FROM List WHERE Email = '" & Email & "'" RS.open SQL, conn, 2, 2 If (request("Email") = "") Then Action = "Invalid Email Address. Please Try again." Else select case useraction case "Join" if RS.bof and RS.eof then RS.addnew RS("Email") = request("Email") RS("Name_Last") = request("Name_Last") RS("Name_First") = request("Name_First") RS("Date_In") = Date RS.update Action = "Database has been successfuly updated." else Action = "You are already a subscriber." end if case "Quit" if RS.bof and RS.eof then Action = "You are not subscriber." else sql2="DELETE FROM List WHERE Email = '" & Email & "'" conn.execute(sql2) Action = "Subscriber has been successfuly removed from database." end if end select End If RS.close set RS = nothing %> <%=RSBODY("List_Name")%>


<%=RSBODY("List_Name")%>
<%=Action%>


Maintained with the SiteBuilder Mailing List Manager v1.07