Computer Online

   
<% Dim strSubject, strBody, strClientMail set objCDOMail = server.createobject("cdonts.newmail") if Request.ServerVariables("REQUEST_METHOD") = "POST" then strClientMail=Request.Form("SmartSurat.com # Order Form") strBody = "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "SmartSurat.com # Order Form " strBody = strBody & "" strBody = strBody & "" strBody = strBody & "

SmartSurat.com # Order Form

" strBody = strBody & "" FOR I = 1 TO Request.Form.Count strBody = strBody & "" next strBody = strBody & "
" & Request.Form.key(I) & " :" & Request.Form.Item(I) & "
" strBody = strBody & "

SmartSurat.com # Order Form

Your Ad Here
" objCDOMail.From = "webmaster@smartsurat.com" objCDOMail.To = "info@aastha.in" objCDOMail.Subject = "Order Form" objCDOMail.bodyformat = 0 objCDOMail.mailformat = 0 objCDOMail.Body = strBody objCDOMail.BodyFormat = 0 objCDOMail.Send %>

 

Dear User,

               Your Order Successfully send to SmartSurat.com. You will be get confirmation
E-mail or Phone Call within Two days. You Can Personally Contact to

Address

Aastha Info Mark Solution Pvt. Ltd.

24, Mahadevnagar Society, Ring Road,
Nr. Vishwakarma Arcade, Majura Gate,
SURAT - 395002.
PHONE - 91-261-3252851
MOBILE - 98250-23851 

E-mail : smartsurat@yahoo.com

From
Web Master
SmartSurat.com

<% else %>

 

Order for
Name
Address
City
Phone
E-mail
Query /
Suggestion /
Remarks

                          

<%end if%>

 


Your Ad Here