HomeAbout usBreedsEnquirySitemapContact us
Name
Address
Phone
Email
Enquiry About
<% response.Write("sdfsdfsdf") %>  
Address: #24, Flr-2, Roja St., Brindhavan Nagar, Chennai 600 092, INDIA   Tel: +91-93811-02333    Email: sales@rajapalayamdogs.org
 
<% if Request.form("hidevalue") <> "" then txtname = request("name") txtaddress = request("address") txtphone = request("phone") txtemail = request("email") txtquery = request("querysuggest") html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf 'html = html & "" html = html & "" html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & " " & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & " " & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & " " & vbCrLf html = html &"" & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & " " & vbCrLf html = html &"" & vbCrLf html = html & "" & vbCrLf html = html & "" & vbCrLf html = html & "
Enquiry Form
 
Name: "&txtname&"
Address: "&txtaddress&"
Telephone No: "&txtphone&"
Email Id:

"&txtemail&"

Enquiry Details:

"&txtquery&"

" & vbCrLf Dim iMsg Dim iConf Dim Flds Dim strHTML Dim strSmartHost set iMsg = server.CreateObject("CDO.Message") set iConf = server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.rajapalayamdogs.org" .Item("http://schemas.microsoft.com/cdo/configuration/smtpport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With With iMsg Set .Configuration = iConf .To = "sampak23@gmail.com" .From = txtemail .Subject = "Enquiry From "&txtname .HTMLBody = html .Send End With html = "

Thank you for your" html = html & " Enquiry.

" html = html & "

Customer Service - Rajapalayam Dogs

" html = html & "

www.rajapalayamdogs.org

" html = html & "

Mobile " html = html & "9842812356

" 'html = html & "Telephone " 'html = html & "044-

" html = html & "" html = html & "" html = html & "" html = html & "
With Regards
Kasisekar.A
" Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing Response.Write("") end if %>