<%
'This file is part of ProductCart, an ecommerce application developed and sold by Early Impact LLC. ProductCart, its source code, the ProductCart name and logo are property of Early Impact, LLC. Copyright 2001-2003. All rights reserved. You are not allowed to use, alter, distribute and/or resell any parts of ProductCart's source code without the written consent of Early Impact. To contact Early Impact, please visit www.earlyimpact.com.
%>
<% response.Buffer=true %>
<%
on error resume next
'Check to see if store has been turned off by admin, then display message
If scStoreOff="1" then
response.redirect "msg.asp?message=59"
End If
dim conntemp, mysql, rs, rs2, ErrCheckEmail
call openDb()
pIdCustomer=session("idCustomer")
if pIdCustomer>0 then
mysql="SELECT name,lastName,email FROM customers WHERE idCustomer=" &pIdCustomer
set rs=conntemp.execute(mySQL)
CustName=rs("name") & " " & rs("lastName")
CustEmail=rs("email")
else
CustName=""
CustEmail=""
end if
if err.number <> 0 then
call closeDb()
response.redirect "techErr.asp?error="& Server.Urlencode("Error in Contact Page: "&Err.Description)
end if
If request("action")="send" then
FromName=request.form("FromName")
FromEmail=request.form("FromEmail")
msgTitle=request.form("Title")
msgBody=request.form("MsgBody")
call sendmail (FromName,FromEmail,scFrmEmail,msgTitle,msgBody)
msg="Your e-mail has been sent successfully!"
End If
%>