<%@ 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 2005. *
'* www.pagedowntech.com *
'* *
'************************************************************
%>
<%
task=request.form("task")
email=request.form("email")
phone=request.form("phone")
name=request.form("name")
comments=request.form("comments")
'If form has been submitted.
if task="sendmail" then
'Check for Form errors.
errormessage=""
call checkForm(email,getsystext("sys76"),"T",3,50)
if errormessage=NULL or errormessage="" then
else
task=""
end if
end if
'Get additional page setup info.
set rs=openrs("SELECT smtpauthen, smtpauthuser, smtpauthpass, contemailen, contemailto, contemailcc, emailadmin, emailserver, emailcomp FROM setup")
'contactus=rs("contactus")
contemailen=rs("contemailen")
contemailto=rs("contemailto")
contemailcc=rs("contemailcc")
emailadmin=rs("emailadmin")
emailserver=rs("emailserver")
emailcomp=rs("emailcomp")
smtpauthen=rs("smtpauthen")
smtpauthuser=rs("smtpauthuser")
smtpauthpass=rs("smtpauthpass")
closers()
'If form submitted and no errors were found.
if task="sendmail" then
emailto=contemailto
emailcc=contemailcc
emailtoname="PDshopPro Admin"
emailfrom=emailadmin
emailfromname=storename
emailsubject="PDshopPro Contact Us Form"
emailbody=storename & ":" & vbcrlf
emailbody=emailbody & getsystext("sys76") & " - " & email & vbcrlf
emailbody=emailbody & getsystext("sys77") & " - " & name & vbcrlf
emailbody=emailbody & getsystext("sys78") & " - " & phone & vbcrlf
emailbody=emailbody & getsystext("sys79") & " - " & comments
call sendemail()
errormessage=geterrtext("err48")
%> <%
end if
zpage=pg3
%>
<% getleftside(zpage)%>
<% if contemailen="ON" then %>
<% getsecspace ()%>
<% getHeading "hdcontact", hdcontact, "", 2 %>