% Set objMessage = CreateObject("CDO.Message") if Trim(Request.Form("name")) <> "" then dim strMailBody dim strRet strMailBody = "
Package Tour Booking | |
Name | " strMailBody=strMailBody & ""& Trim(Request.Form("name")) & " |
Mobile No. | " strMailBody=strMailBody & ""& Trim(Request.Form("mobile")) & " |
Phone | " strMailBody=strMailBody & ""& Trim(Request.Form("phone")) & " |
"& Trim(Request.Form("email")) & " | |
Package Tour No. | " strMailBody=strMailBody & ""& Trim(Request.Form("pkgno")) & " |
Place Names | " strMailBody=strMailBody & ""& Trim(Request.Form("placename")) & " |
No. of Seats | " strMailBody=strMailBody & ""& Trim(Request.Form("noseats")) & " |
Date of Journey | " strMailBody=strMailBody & ""& Trim(Request.Form("SelectedDate")) & " |