<% HDWCaptchaValidation %> <% dim strTest dim strName dim strEmail strTest=request.form("test") strName=request.form("email_name") strEmail=request.form("email_email") if strTest <> "" or (strEmail = "" or strName = "") then response.Redirect("default.asp") 'response.write "bad data" end if dim body body = "Request for ROWHY Seminar update information:" & vbCrLf & vbCrLf body = body & "Name: " & strName & vbcrlf body = body & "Email: " & strEmail & vbcrlf dim mail dim toaddy set mail = server.CreateObject("CDO.Message") 'toaddy="francisd@voxcomp.com" toaddy="merrioxley@sbcglobal.net" mail.To = toaddy 'mail.Cc = "wsoucie@chorus.net" mail.From = strEmail mail.Subject = "Request for ROWHY Seminar update information" mail.TextBody = body mail.Send() set mail = nothing 'response.write body %> <% response.Redirect("default.asp?mode=thanks") %>