%
if (Request.Servervariables("HTTP_METHOD"))="POST" then
str="Dear Sir/Madam " & "
"
str=str &"Name : "&Request.form("name") & "
"
str=str &"Address : "&Request.form("address") & "
"
str=str &"Telephone : "&Request.form("phone") & "
"
str=str &"Email : "&Request.form("mail") & "
"
str=str &"Comments : "&Request.form("rem") & "
"
Set pMail=Server.CreateObject("CDONTS.NewMail")
pMail.mailformat =cdomailformatmime
pMail.bodyformat =cdobodyformathtml
pMail.From = Request.form("mail")
pMail.Subject = "comments"
pMail.To ="adept_bizservices.com"
pMail.Body = str
pMail.Send
Set pMail= Nothing
Response.redirect("Thanks.asp")
end if
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||