<%
submit = request.form("submit")
if submit = "Send" then
name = request.form("NAME")
company = request.form("COMPANY")
address = request.form("ADDRESS")
city = request.form("CITY")
country = request.form("COUNTRY")
tel = request.form("TEL")
fax = request.form("FAX")
zipcode = request.form("ZIPCODE")
email = request.form("EMAIL")
how = request.form("HOW")
subject = request.form("SUBJECT")
message = request.form("MESSAGE")
'------------------------------------------------------------------------------------------------ASPMail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.ContentType = "text/html"
Mailer.RemoteHost = "mail.delphinuxweb.com"
Mailer.FromName = "ExportcityGroup Web Contact"
Mailer.FromAddress = "robots@delphinuxweb.com"
Mailer.AddRecipient "sunny", "exportcityGroup@gmail.com"
Mailer.AddRecipient "sunny", "sunn65@yahoo.com"
Mailer.Subject = "ExportcityGroup To " & name
HTML = HTML & ""
HTML = HTML & "NAME : " & name & "
"
HTML = HTML & "COMPANY : " & company & "
"
HTML = HTML & "ADDRESS : " & address & "
"
HTML = HTML & "CITY : " & city & "
"
HTML = HTML & "COUNTRY : " & country & "
"
HTML = HTML & "TEL : " & tel & "
"
HTML = HTML & "FAX : " & fax & "
"
HTML = HTML & "ZIPCODE : " & zipcode & "
"
HTML = HTML & "EMAIL : " & email & "
"
HTML = HTML & "HOW : " & how & "
"
HTML = HTML & "SUBJECT : " & subject & "
"
HTML = HTML & "MESSAGE : " & message & "
"
Mailer.BodyText = HTML
if Mailer.SendMail then
Response.Write "THANK YOU - WILL CONTACT BACK ASAP "
else
Response.Write "" & Mailer.Response
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "error_robot@sunncity.com"
objMail.to = "sunn65@yahoo.com"
objMail.Subject = "Please check Contact-Exportcity.asp error"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = "Please check Contact-Exportcity.asp Error"
objMail.Send
Set objMail = Nothing
end if
end if
%>
* Please fill in all field
|