<%
'response.write request.form() & " "
if request("cmd")="send" then
Email=request.form("Email")
if instr(Email,"@")=0 then
ierr = true:errmsg = errmsg & " A valid email address is required."
end if
Name=request.form("Name")
if len(Name)<=2 then
ierr = true:errmsg = errmsg & " Name is required"
end if
Address=request.form("Address")
if len(Address)<=2 then
ierr = true:errmsg = errmsg & " Address is required"
end if
City=request.form("City")
if len(City)<=2 then
ierr = true:errmsg = errmsg & " City is required"
end if
State=request.form("State")
if len(State)<2 then
ierr = true:errmsg = errmsg & " State is required"
end if
Zip=request.form("Zip")
if len(Zip)<5 then
ierr = true:errmsg = errmsg & " Zip is required"
end if
HomePhone=request.form("HomePhone")
'if len(HomePhone)<=2 then
' ierr = true:errmsg = errmsg & " "
'end if
WorkPhone=request.form("WorkPhone")
'if len(WorkPhone)<=2 then
' ierr = true:errmsg = errmsg & " "
'end if
if not ierr then
vMsg = "" _
& "Receive 12 free postcards with any package purchase, only 1 set per customer and cannot be combined with other offers. Please print this email and bring it into one of our stores." & vbcrlf _
& " Offer Expires: " & formatdatetime(dateadd("d",30,now())) & "
Name: " & Name & vbcrlf _
& " Address: " & Address _
& " City: " & City & vbcrlf _
& " State: " & State _
& " Zip: " & Zip & vbcrlf _
& " Home Phone: " & HomePhone & vbcrlf _
& " Work Phone: " & WorkPhone & ""
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "safemail.esells.com"
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "list@photoperfections.com"
Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "jeanphoto"
Flds.Update
With iMsg
Set .Configuration = iConf
.To = Email '"list@photoperfections.com"
.from = "list@photoperfections.com"
.bcc = "sales@esells.com,list@photoperfections.com"
.Subject = "Photoperfections.com Coupon"
.HTMLBody = replace(vMsg,chr(10)," ")
.Send
End With
set iMsg = nothing
errmsg = "Thank You, we will be contacting you shortly by email, please wait at least 1/2 hour if you have AOL or a larger email supplier."
ierr=false
end if
end if
%>
PHOTO PERFECTIONS - IT'S NOT JUST PHOTOGRAPHY, ITS A WORK OF ART...
