|
NOTE
: For placing your inquiry, you are requested to connect to
internet and then
CLICK HERE
Inquiry
Corner
<%
function product(j,x)
for i=1 to j step 1
if (request.form(x&i)<>"") then
if (htlnar="") then
htlnar=htlnar & (request.form(x & i))
else
htlnar=htlnar &","& (request.form(x & i))
end if
end if
next
if htlnar="" then
htlnar="None"
end if
product=htlnar
end function
if Request.QueryString("Status") = "Sent" then
dim myMail
set myMail = server.createobject("CDONTS.newmail")
myHTML = ""
myHTML = myHTML & " Inquiry Form:"
myHTML = myHTML & ""
myHTML = myHTML & "| Contact Person : | " & Request.Form("Name") & " | "
myHTML = myHTML & "| Organization: | " & Request.Form("Organisation") & " | "
myHTML = myHTML & "| Street Address : | " & Request.Form("Address") & " | "
myHTML = myHTML & "| State : | " & Request.Form("State") & " | "
myHTML = myHTML & "| Zip code: | " & Request.Form("Zip") & " | "
myHTML = myHTML & "| County: | " & Request.Form("Country") & " | "
myHTML = myHTML & "| Phone: | " & Request.Form("Phone") & " | "
myHTML = myHTML & "| Fax : | " & Request.Form("Fax") & " | "
myHTML = myHTML & "| EMail : | "& Request.Form("Email") &" | "
myHTML = myHTML & "| Product Intrested In | " & product(15,"chkn") & " |
"
myHTML = myHTML & "| Intreset : | " & Request.Form("interest") & " |
"
myHTML = myHTML & "| Comments : | " & Request.Form("Comments") & " |
"
MyMail.BodyFormat = cdoBodyFormatHTML
MyMail.MailFormat =0
'MyMail.To = "jitspadmashali@hotmail.com,lokeshpatel@myrealbox.com"
MyMail.To = "solsons@solsons.com"
myMail.Bcc = "lokeshpatel@myrealbox.com"
myMail.Subject ="Inquiry Report"
myMail.From = Request.Form("Email")
myMail.Body = myHTML
'response.write myHTML
myMail.Send
Response.Write "Your mail has been sent.....
"
%>
<%
response.end
end if
%>
Please provide the following information:
* Required Information
|
