<% Set EmailConn = server.CreateObject("ADODB.Connection") EmailConn.Open "underoathdb" Set rsEmail = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM emails WHERE emailid = " & Request.Querystring("emailid") rsEmail.Open strSQL, EmailConn, 1, 3, &H0001 deletemail = rsEmail("email") rsEmail.delete rsEmail.update rsEmail.Close Set rsEmail = Nothing EmailConn.Close Set EmailConn = Nothing %>

Your email address,<%=deletemail%> ,has been removed from the Underoath777.Com mailing list.