%@ Language=VBScript %><%
'************************************************************
'* *
'* By Downloading or using this software, you agree to *
'* the terms and conditions as stated in the Software *
'* License Agreement. An updated copy of this agreement *
'* can be seen at http://www.pagedowntech.com/terms. *
'* *
'* NOTICE: We do not recommend changing the code below *
'* as it may interfere with future updates/upgrades. *
'* *
'* PageDown Technology, LLC., Copyright 2004. *
'* www.pagedowntech.com *
'* *
'************************************************************
%>
[an error occurred while processing this directive]
[an error occurred while processing this directive][an error occurred while processing this directive]
<%
task=request("task")
email=request("email")
phone=request("phone")
name=request("name")
comments=request("comments")
'If form has been submitted.
if task="sendmail" then
'Check for Form errors.
if Len(email)<3 then
errormessage=errormessage + "Email Address too short or blank!
"
task=""
end if
end if
'Determine whether or not to display contact us form.
contemailen=rssetup("contemailen")
'If form submitted and no errors were found.
if task="sendmail" then
emailto=rssetup("contemailto")
emailcc=rssetup("contemailcc")
emailtoname="PDAdministrator"
emailfrom=rssetup("emailadmin")
emailfromname=rssetup("storename")
emailsubject=rssetup("storename") & " - Contact Us Form"
emailbody="Below is the contact information:" & vbcrlf & "Email: "& email & vbcrlf & "Name: " & name & vbcrlf & "Phone: " & phone & vbcrlf & "Comments: " & comments
call sendemail()
errormessage="Your message has been sent, thank you!"
%> <%
end if
%>
[an error occurred while processing this directive]
| <% getHeading "", "hdcontact", "contactus" %> <% getHeading "", "hdnews", "inthenews" %> |
|