<%
Form_T1 = Trim(Replace(Request.Form("t1"),"""",""""""))
Form_T2 = Trim(Replace(Request.Form("t2"),"""",""""""))
Form_ST = Trim(Replace(Request.Form("st"),"""",""""""))
Validated_Form = true
IF len(Form_t1)=0 THEN
Validated_Form = false
Response.Write ("You did not enter your name.
")
END IF
IF len(Form_t2)<6 OR InStr(Form_t2,"@")=0 OR InStr(Form_t2,".")=0 THEN
Validated_Form = false
Response.Write ("Please check your email address.
")
END IF
IF len(Form_st)=0 THEN
Validated_Form = false
Response.Write ("You did not enter a question or request.
")
END IF
IF NOT Validated_Form THEN
%>
Error. There was a mistake made in filling out the form. Please click the back button in your browser and re-enter
the required information.
<%
ELSE
Dim t1name,t1,t2name,t2,StrAddress
t1name = "Your name:"
t1 = Request.Form("t1")
t2name = "Your email address:"
t2 = Request.Form("t2")
Dim stname,st
stname = "Question/Request:"
st = Request.Form("st")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "PLACE EMAIL ADDRESS OF THE PERSON YOU WISH TO SEND THE EMAIL TO INSIDE THESE QUOTATION MARKS"
ObjMail.From = "PLACE FROM EMAIL ADDRESS INSIDE THESE QUOTATION MARKS"
ObjMail.Subject = "PLACE SUBJECT OF EMAIL INSIDE THESE QUOTATION MARKS"
ObjMail.Body = t1name & vbcrlf&_
t1 & vbcrlf& vbcrlf&_
t2name & vbcrlf&_
t2 & vbcrlf& vbcrlf&_
stname & vbcrlf&_
st
ObjMail.Send
Set ObjMail = Nothing
Response.Redirect "IF YOU WISH TO REDIRECT THE USER TO A THANK YOU PAGE PLACE FULL URL HERE including http:// INSIDE THESE QUOTATION MARKS"
%>
<%
END IF
%>
[Remove this comment - remember to save this file as an .asp file. Place the name of this file along with the
path where the file can be found inside the {