<% indexid = Request.Querystring("id") If indexid = "" OR isNumeric(indexid) = false Then call errormsg Response.end Else Set conn = Server.CreateObject("ADODB.Connection") conn.open Application("connstring") sql = "SELECT * From customers WHERE idcustomer = " & indexid Set rs = conn.execute(sql) If rs.eof then bError = true Else bError = false 'update customer database SQL = "UPDATE Customers SET unsubscribe = 0 WHERE idcustomer = " & indexid conn.execute(sql) 'delete from supression list sql = "DELETE from unsubscribes WHERE indexid = " & indexid conn.execute(sql) End If Set rs = nothing conn.close set conn = nothing If bError = true Then call errormsg Response.end End If End If %>

You have now been re-activated on the Flourish Wellness Customer mailing list.

Click here to return to our site

<% Sub errormsg %>

There was an error processing your request. We could not find your record in our database.

<% End Sub Function sqlprep(str) 'tack on a space to prevent invalid use of null then trim off with trim command sqlprep = Trim(Replace(str & " ","'","''")) End Function %>