<% dim pos pos=InStr(Request.ServerVariables("HTTP_REFERER"),"teenpcar") IF pos=0 THEN response.redirect("http://www.teenpcar.org") end if %> <% DIM oMail IF Request.Form("step") = "send" THEN If request.form("address") <> "" or request.form("address1") <> "catchspam" Then Response.redirect "gotquestion.html" End IF Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = email objCDO.Subject = "A new question from teenpcar.org" objCDO.Body = "Email: " & Request.Form("email") & VBCRLF & VBCRLF & "Question:" & VBCRLF & Request.form("question") objCDO.To = "mwilliamson@pcar.org" objCDO.Send END IF 'objCDO.To = "Michelle Williamson " 'objCDO.From = emailFrom 'objCDO.Subject = emailSubject 'objCDO.Body = emailBodyText 'objCDO.Send %> Teen PCAR



 
Qotta Question
<% IF Request.Form("step") = "send" THEN %>
Your question has been sent. We will get back to you as soon as possible.
<% ELSE %>
We want to hear it ... but if you want to keep it confidential, calling your area Rape Crisis Center is your best (and safest) bet.
<% END IF %>