|
|
 |
 |
|
|
|
|
| Enquiry |
| |
|
|
| |
|
| |
Submit
your enquiry |
| |
|
<%
strMSG=""
If Request.ServerVariables ("content_length")<>0 then
strName1=Request("txtName1")
strName2=Request("txtName2")
strCompany=Request("txtComp")
strTitle=Request("txtTitle")
strStreet=Request("txtStreet")
strCity=Request("txtCity")
strCode=Request("txtCode")
strCountry=Request("txtCountry")
strNo=Request("txtNo")
strState=Request("txtState")
strFax=Request("txtFax")
strEmail=Request("txtEmail")
strComment=Request("txtFeedback")
strMessage = ""
strMessage= strMessage & "New Enquiry has been posted with following information
"
strMessage= strMessage & "
First Name :"&strName1
strMessage= strMessage & "
Last Name :"&strName2
strMessage= strMessage & "
Company :"&strCompany
strMessage= strMessage & "
Title :"&strTitle
strMessage= strMessage & "
Street :"&strStreet
strMessage= strMessage & "
City :"&strCity
strMessage= strMessage & "
Postal Code :"&strCode
strMessage= strMessage & "
State :"&strState
strMessage= strMessage & "
Country :"&strCountry
strMessage= strMessage & "
Phone:"&strNo
strMessage= strMessage & "
Fax :"&strFax
strMessage= strMessage & "
Email :"&strEmail
strMessage= strMessage & "
Enquiry :"&strComment
strMessage= strMessage & ""
'response.Write(strmessage)
'response.End()
Set Mailer=Server.CreateObject("CDONTS.NewMail")
Mailer.From ="info@deltoncable.com"
Mailer.To ="info@deltoncable.com"
'Mailer.CC =
Mailer.BCC ="kmahfooz@ishir.com"
Mailer.Subject="New Enquiry"
Mailer.Body=strMessage
Mailer.BodyFormat=0
Mailer.MailFormat=0
Mailer.Send
set Mailer=nothing
strMSG=" Thank you for your enquiry. We will get back to you very soon."
End IF
%>
| |
|
| |
|
| |
|
| |
|
| |
|
|
| |
|
|
|
|