% If Request.Form <> "" Then dim Mail,strString,strFile,strTable Set Mail=Server.CreateObject("CDONTS.NewMail") Mail.To= "shinto.livein@gmail.com" Mail.Cc= "subbalaprasanna@gmail.com" Mail.From= Request.Form("txtEmail") Mail.Subject="Test Drive" strString = strString & "***TEST DRIVE A CAR***" & vbCrLf strString = strString & "Name :" & Request.Form("txtName") & vbCrLf strString = strString & "Address :" & Request.Form("txtAddress") & vbCrLf strString = strString & "Email : " & Request.Form("txtEmail") & vbCrLf strString = strString & "Organisation :" & Request.Form("txtOrg") & vbCrLf strString = strString & "Designation :" & Request.Form("txtDes") & vbCrLf strString = strString & "Telephone : " & Request.Form("txtPhone") & vbCrLf strString = strString & "Do you currently own a Vehicle: : " & Request.Form("radVehicle") & vbCrLf strString = strString & "If yes, Brand Owned:: " & Request.Form("txtBrand") & vbCrLf strString = strString & "Model(year): " & Request.Form("txtModel") & vbCrLf strString = strString & "Date of Test Drive: : " & Request.Form("MyDate") & vbCrLf strString = strString & "Time of Test Drive: : " & Request.Form("txtTime") & vbCrLf strString = strString & "Where would you prefer to have your test drive: : " & Request.Form("radTestDrive") & vbCrLf Mail.Body = strString 'with objMail.Configuration ' .Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' .Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' .Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' .Fields.update 'end with Mail.Send strTable="
| Thank you for Registering with us for the Test Drive |
| We appreciate your Interest.We will get back to you, as soon as possible | " strTable = strTable & "
| Go Back to Home. |