<%
dim stremail,strname,strproducts,strcomments, smtpserver, strmailto
'form fields
stremail = request.Form("email")
strname = request.Form("name")
strproducts = request.Form("products")
strcomments = request.Form("comments")
if stremail="" or strname="" or strproducts="" or strcomments="" then
response.Redirect("contactus.asp?er=empty")
end if
if stremail <> "" AND Instr(stremail,"@") <> 0 AND Instr(stremail,".") <> 0 then
smtpserver="127.0.0.1"
strmailto = " sales@logomotif.co.za"
set myMail=CreateObject("CDO.Message")
myMail.Subject="Logomotif General Enquiries: Website"
myMail.From=stremail
myMail.To=" sales@logomotif.co.za"
myMail.Bcc=stremail
myMail.HTMLBody="<font face=""verdana"" size=""2"">Hello</font>" & " " & strname & "," & "<br></br>" & "<font face=""verdana"" size=""2"">Thank you for your enquiry. A sales request has now been opened for your request. You will be notified when a response is made via email.</font>" & "<br></br>" & "<font face=""verdana"" size=""2""><strong>The details of your request are shown below.</strong></font>" & "<br></br>" & "<font face=""verdana"" size=""2"">Customer Name:</font>" & " " & strname & "<br></br>" & "<font face=""verdana"" size=""2"">Email Address:</font>" & " " & stremail & "<br></br>" & "<font face=""verdana"" size=""2"">Comments:</font>" & " " & strcomments & "<br></br>" & "<br></br>" & "<font face=""verdana"" size=""2"">Regards, Logomotif Team</font>"
__________________
"You either somebody or you nobody" American Gangster
|