<% '#### parse url, tack confirm link #### strURL = Request.ServerVariables("http_referer") intDot = InStrRev(strURL, ".") - 1 strURLleft = Left(strURL, intDot) strURLright = Right(strURL, (len(strURL) - intDot)) strURL = strURLleft & "_confirm" & strURLright '#### collect data #### strTo = Request.Querystring("to") IF len(strTo) < 6 THEN strTO = "webmaster@areaguides.com" END IF strFrom = Request.Form("email_address") IF len(strFrom) < 6 THEN strFrom = "webmaster@areaguides.com" END IF '#### send it #### set objEmail = createObject("CDONTS.NewMail") objEmail.to = strTo objEmail.From = strFrom objEmail.subject = "Information Request From Your AreaGuides Website" formitem = "" for each formitem in Request.Form strBody=strBody & formitem & " = " & request(formitem) & vbcrlf & vbcrlf next objEmail.Body = strBody objEmail.Send set objEmail = nothing '#### now to confirm page #### Response.Redirect strURL %> New Page 1

Email successful, now redirecting...