%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance
Dim strBody
'for each qryItem in Request.form
'strMsgInfo = qryItem & " : " & request.form(qryItem) & vbCrLf & vbCrLf & strMsgInfo
'next
fname = "Name : " & request.form("name")
fadd = "Address : " & request.form("address")
ftel = "Telephone Number : " & request.form("tel")
ffax = "Fax Number : " & request.form("fax")
femail = "E-Mail : " & request.form("email")
frequirment = "Requirments : " & request.form("requirement")
strMsgInfo =fname & vbCrLf & vbCrLf & fadd & vbCrLf & vbCrLf & ftel & vbCrLf & vbCrLf & ffax & vbCrLf & vbCrLf & femail & vbCrLf & vbCrLf & frequirment
strFrom= request("email")
strTo="ambicas5@mtnl.net.in"
strSubject = "Enquiry from ambicasales.com"
strBody=strMsgInfo
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
Set myCDONTSMail = Nothing
%>
Ambica Sales, Kitchen equipments, Canteen equipments, Hotel Equipments, Restaurant Equipments, Service Equipments
 |
 |
 |
 |
| |
|
|
|
| |
|
| |
 |
 |
| |
::
Enquiry Form ::
|
|
|
Thank
You for your enquiry , we will get back to you as soon as possible |
| |
|
|
|
 |
 |