<% @LANGUAGE = "VBScript" %>
<% Response.Buffer = True %>
<%
If Len(Request.Form("OK")) > 0 or Request.ServerVariables("REQUEST_METHOD") = "POST" then
%>
<%
Dim id
id=Server.URLEncode(Request.QueryString("id"))
Dim rpname : rpname=CV("Product_ProductName")
Dim rpmodel : rpmodel =CV("Product_Model")
Dim rpversion : rpversion =CV("Product_VersionNumber")
Dim rpcode : rpcode =CV("Product_ProductCode")
Dim rcfname : rcfname =CV("Contact_FullName")
Dim rctitle : rctitle =CV("Contact_Title")
Dim rcorg : rcorg =CV("Contact_Organization")
Dim rcsa : rcsa =CV("Contact_StreetAddress")
Dim rcsa2 : rcsa2 =CV("Contact_Address2")
Dim rccity : rccity =CV("Contact_City")
Dim rcs : rcs =CV("Contact_State")
Dim rczc : rczc =CV("Contact_ZipCode")
Dim rcc : rcc =CV("Contact_Country")
Dim rcwp : rcwp =CV("Contact_WorkPhone")
Dim rcf : rcf =CV("Contact_FAX")
Dim rce : rce =CV("Contact_Email")
Dim rcurl : rcurl =CV("Contact_URL")
Dim roq :roq =CV("Other_Queries")
If Not Err_Msg_Status Then
'----------------------------------------------------------------
'Start sending the cnfirmation email
'Declarte & Create the JMail(v4) message Object
Dim msg
set msg = Server.CreateOBject( "JMail.Message" )
'Set logging to true to ease any potential debugging
'And set silent to true as we wish to handle our errors ourself
'Set priority
msg.Logging = true
msg.silent = true
msg.priority = 1
'From
msg.From="sales@inventaelectro.com"
msg.FromName ="Inventa Electro Systems Pvt Ltd"
msg.AddRecipient rce,rcfname
msg.AddRecipientBCC "info@inventaelectro.com"
'Subject
msg.Subject =" Your Inquiry on :- " & Date()
'Start composing the message
msg.Body = ""&_
"==========================================================" & vbCrLf &_
" # Inquiry Confirmation # From www.InventaElectro.com " & vbCrLf &_
"==========================================================" & vbCrLf & vbCrLf &_
"We have received your inquiry wih the following details :- " & vbCrLf& vbCrLf &_
"- Product Name ::" & rpname & vbCrLf &_
"- Product Model ::" & rpmodel & vbCrLf &_
"- Product VersionNumber ::" & rpversion & vbCrLf &_
"- Product ProductCode ::" & rpcode & vbCrLf &_
"- Contact FullName ::" & rcfname & vbCrLf &_
"- Contact Title ::" & rctitle & vbCrLf &_
"- Contact Organization ::" & rcorg & vbCrLf &_
"- Contact StreetAddress ::" & rcsa & vbCrLf &_
"- Contact Address2 ::" & rcsa2 & vbCrLf &_
"- Contact City ::" & rccity & vbCrLf &_
"- Contact State ::" & rcs & vbCrLf &_
"- Contact ZipCode ::" & rczc & vbCrLf &_
"- Contact Country ::" & rcc & vbCrLf &_
"- Contact WorkPhone ::" & rcwp & vbCrLf &_
"- Contact FAX ::" & rcf & vbCrLf &_
"- Email ::" & rce & vbCrLf &_
"- Contact URL ::" & rcurl & vbCrLf &_
"- Other Queries ::" & roq & vbCrLf & vbCrLf &_
"We will come back to you soon,thanks." & vbCrLf & vbCrLf &_
"==========================================================" & vbCrLf &_
" Inventa Electro Systems (N) P. LTD (www.InventaElectro.com) " & vbCrLf &_
"=========================================================="
'End composing the message
' Sending & checking for errors if any
if not msg.Send("inventaelectro.com" ) then
Response.write "" & msg.log & "
" & vbCrLf
else
Call DOGO("doinquiry.asp")
end if
' Sent
'Start sending the cnfirmation email
End If
End If
%>
inquiry
INQUIRY
FORM
We thank you for showing interest in our products.
This is B2B site & we believe that we shall be serving you better if
all the information is provided to us