<%End Sub
if Request.Form("Submit") = "Submit" then
Call Save
else
Call Display
end if
Sub Save
dim Mailer, FullBodyClient
if trim(Request.Form("textfield4")) = "" then
Response.Write " E-mail address is required and may not contain spaces."
%><%
exit sub
end if
FullBodyClient = "First Name: " & Request.Form("textfield") & vbcrlf & _
"Last Name: " & Request.Form("textfield2") & vbcrlf & _
"Company: " & Request.Form("textfield3") & vbcrlf & _
"Comments: " & Request.Form("textfield5")
Set Mailer= CreateObject("CDONTS.NewMail")
mailer.mailformat = 0
Mailer.From = trim(request.form("textfield4"))
Mailer.To = "TheCosmicDetective@YOUtopiaINstitute.org"
Mailer.Subject = "YOUtopia INstitute Feedback"
Mailer.Body = FullBodyClient
Mailer.Send
Set Mailer = Nothing
Response.redirect ("contact2.html")
End Sub
%>
/HomeOff.gif){kind=small}
/AboutOff.gif){kind=small}
/OfferingsOff.gif){kind=small}
/PoliciesOff.gif){kind=small}
/ContactOff.gif){kind=small}
/NewsletterOff.gif){kind=small}
/ImagebioOff.gif){kind=small}
/NiggahOff.gif){kind=small}
/TanishaOff.gif){kind=small}
/LetterOff.gif){kind=small}
/QuestOff.gif){kind=small}
/hzrule.jpg){kind=small}