|
"
if Request.Form("company") <> "" then
str = str & ""
str = str & "Company Name : " & Request.Form("company")
str = str & "
"
end if
if Request.Form("Person") <> "" then
str = str & ""
str = str & "Person : " & Request.Form("Person")
str = str & "
"
end if
if Request.Form("Designation") <> "" then
str = str & ""
str = str & "Designation : " & Request.Form("Designation")
str = str & "
"
end if
if Request.Form("Physical_address") <> "" then
str = str & ""
str = str & "Address : " & Request.Form("Physical_address")
str = str & "
"
end if
if Request.Form("Telephone") <> "" then
str = str & ""
str = str & "Phone No : " & Request.Form("Telephone")
str = str & "
"
end if
if Request.Form("fax") <> "" then
str = str & ""
str = str & "Fax : " & Request.Form("fax")
str = str & "
"
end if
if Request.Form("Email") <> "" then
str = str & ""
str = str & "Email : " & Request.Form("Email")
str = str & "
"
end if
if Request.Form("inquiry") <> "" then
str = str & ""
str = str & "Inquiry : " & Request.Form("inquiry")
str = str & "
"
end if
if Request.Form("strCAPTCHA") <> "" then
if CheckCAPTCHA(Request.Form("strCAPTCHA")) = true then
set oMail = Server.CreateObject("Persits.MailSender")
oMail.Host = MAILSERVER
oMail.From = sFromEmail
oMail.AddAddress TO_EMAIL
oMail.Subject = SUBJECT
oMail.IsHTML = bHTML
oMail.Body = str
if not oMail.Send Then
ErrStr = Err.Description
Else
Response.Redirect("thanks.html")
End if
end if
end if
end if
end if
%>
|
|||||||||||||
