IMAGE PRINTERS::PLACE ORDER \ INQUIERY....

<%@ Language=VBScript %> <% sub sendMail(strBody) dim myMail set myMail=server.CreateObject("CDONTS.Newmail") myMail.From="himanshu@image-printers.com" ' Specify sender's address myMail.to="ajaykoodali@vsnl.net" myMail.Subject="New Enquiry" myMail.Body=strBody myMail.Send 'myMail.From= 'myMail.to= 'myMail.Subject= 'myMail.Body= 'myMail.Send set myMail=nothing end sub Dim strBody 'Set Mail = Server.CreateObject("Persits.MailSender") 'Mail.Host = "66.139.78.52" ' Specify a valid SMTP server 'Mail.From = "himanshu@image-printers.com" ' Specify sender's address 'Mail.FromName ="Web Enquiry" ' Specify sender's name 'Mail.AddAddress "jtata@tatanova.com", "Himanshu Lakhani" 'Mail.AddAddress "ajaykoodali@vsnl.net" ' Name is optional 'Mail.Subject = "New Enquiry" strBody = "Dear Himanshu," & vbCrLf & _ "This is a new enquiry generated through www.image-printers.com" & vbCrLf & _ "--------------------------------------------------------------------------" & vbCrLf & _ "Type of Work = " & Request.Form("selecttype") & vbCrLf & _ "Size = " & Request.Form("selectsize") & "; Customized Width = " & Request.Form("txtWidth") & " Customized Height = " & Request.Form("txtHeight") & " " & Request.Form("size") & vbCrLf & _ "Number of Pages = " & Request.Form("txtPages") & vbCrLf & _ "Binding = " & Request.Form("binding") & vbCrLf & _ "Finishing = " & Request.Form("finishing") & vbCrLf & _ "Color = " & Request.Form("selectcolors") & "; Front = " & Request.Form("txtFront") & " Back = " & Request.Form("txtBack") & vbCrLf & _ "Paper Quality = " & Request.Form("selectpaperquality") & "; GSM / Thickness = " & Request.Form("selectgsm") & vbCrLf & _ "Quantity = " & Request.Form("selectquantity") & vbCrLf & _ "Additional Details = " & Request.Form("txtdet") & vbCrLf & vbCrLf & _ "--------------------------------------------------------------------------" & vbCrLf & _ "Name = " & Request.Form("txtName") & vbCrLf & _ "Organization = " & Request.Form("txtOrganization") & vbCrLf & _ "Designation = " & Request.Form("txtDesignation") & vbCrLf & _ "Contact Address = " & Request.Form("txtAdd") & vbCrLf & _ "Pin = " & Request.Form("txtPin") & vbCrLf & _ "Country = " & Request.Form("txtCountry") & vbCrLf & _ "Contact Number = " & Request.Form("txtContactNumber") & vbCrLf & vbCrLf & _ "Email Address = " & Request.Form("txtEmailAdd") & vbCrLf & vbCrLf & _ "Regards" & vbCrLf & _ "Web Administrator" 'Mail.Body = strBody sendMail strBody 'On Error Resume Next 'Mail.Send 'If Err <> 0 Then ' Response.Write "Error encountered: " & Err.Description 'End If %> IMAGE PRINTERS::PLACE ORDER \ INQUIERY....