%
if request.form() <> "" then
dim errorstring
'dim has_errors
serrors = 0
' Error Trap:
'if request.Form("Name") = "" or request.Form("EMail") = "" or request.Form("Country") = "" or request.Form("CitizenOf") = "" then
'serrors = 1
'end if
if serrors = 0 then
errorstring = "Your information has been sent successfully!
Thank You."
mail_to = "dimeglio7@comcast.net"
email_message = form_to_email("form")
mail_from = request.Form("email")
mail_reply = request.Form("email")
mail_subject = "From ParryTHRUST website..."
mail_header = "Contact Us Form Submission from ParryTHRUST web site"
mail_footer = "End of message"
send_email email_message,mail_to,mail_from,mail_reply,mail_subject,mail_footer,mail_header
else
errorstring = "Please fill in all fields marked with a << "
end if
end if
%>
|
||||||||
|
||||||||
2003,
ParryTHRUST. |