<% @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 rsubject
rsubject=CV("Subject")
Dim remail
remail =CV("Email")
Dim rname
rname=CV("Name")
Dim rtelephone
rtelephone=CV("Telephone")
Dim raddress
raddress=CV("Address")
Dim rmessage
rmessage=CV("Message")
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="info@acronplast.com"
msg.FromName ="ACRON PLAST PVT. LTD. "
' To [do not use equals sign (=)]
msg.AddRecipient remail,rname
' BCC for information
msg.AddRecipientBCC "info@obiztek.com"
msg.AddRecipientBCC "info@acronplast.com"
'Subject
msg.Subject =" Your Inquiry on :- " & Date()
'Start composing the message
msg.Body = ""&_
"==========================================================" & vbCrLf &_
" ACRON PLAST PVT. LTD. :: Inquiry Confirmation :: " & vbCrLf &_
"==========================================================" & vbCrLf & vbCrLf &_
"We have received your inquiry wih the following details :- " & vbCrLf& vbCrLf &_
"- Subject ::" & rsubject & vbCrLf &_
"- Send Catalogue/more information ::" & CV("pC1") & vbCrLf &_
"- Send Quotation ::" & CV("pC2") & vbCrLf &_
"- Send Technical Representative ::" & CV("pC3") & vbCrLf &_
"- Contact us soon ::" & CV("pC4") & vbCrLf &_
"- Name ::" & rname & vbCrLf &_
"- Email ::" & remail & vbCrLf &_
"- Telephone ::" & rtelephone & vbCrLf &_
"- Address ::" & raddress & vbCrLf &_
"- Message ::" & rmessage & vbCrLf & vbCrLf &_
"We will come back to you soon,thanks." & vbCrLf & vbCrLf &_
"==========================================================" & vbCrLf &_
" AcronPlast.com - Plastic Injection & Blow Moulded Products" & vbCrLf &_
"=========================================================="
'End composing the message
' Sending & checking for errors if any
if not msg.Send("acronplast.com" ) then
Response.write "
" & msg.log & "
" & vbCrLf
else
Call DOGO("doinquiry.asp")
end if
' Sent
'Start sending the confirmation email
End If
End If
%>
Acron Plast Pvt. Ltd. - Solution for Plastic Packaging Prodcuts
INQUIRY FORM