" Response.Write "

" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

Please Remember To Fill In All Required Fields!
*Your Name
*Your Email
*Departure City	" Response.Write "
Your Destination	" Response.Write " " Response.Write " Please choose your destination" Response.Write " Punta Cana" Response.Write " Mexico" Response.Write " Aruba" Response.Write " Puerto Rico" Response.Write " Panama" Response.Write " Costa Rica" Response.Write " Margarita Island" Response.Write " St. Lucia" Response.Write " Grand Cayman" Response.Write "
Hotel Name
Departure Date	(example: 10/10/08) //
Return Date	(example: 10/10/08) //
	" Response.Write "# of Adults 012345678910" Response.Write "   # of Children 012345678910**" Response.Write "
	If traveling with children under 12 years old, please note it in the field below " & fDesc & "
	" Response.Write "

" Response.Write "" Response.Write "

" Else messageSend = messageSend & "Consumer Name: " & fName & chr(13) messageSend = messageSend & "Consumer Email: " & fEmail & chr(13) messageSend = messageSend & "# of Adults: " & fAdult & chr(13) messageSend = messageSend & "# of Children: " & fKid & chr(13) messageSend = messageSend & "Departure City: " & fDeparture & chr(13) messageSend = messageSend & "Inquiry Destination: #" & fDestination & chr(13) messageSend = messageSend & "Estimated Departure Date: " & fDM & "/" & fDD & "/" & fDY & chr(13) messageSend = messageSend & "Estimated Return Date: " & fAM & "/" & fAD & "/" & fAY & chr(13) messageSend = messageSend & "Consumer Comments: " & chr(13) & fDesc & chr(13) messageSend = messageSend & chr(13) & "This service was brought to you by 3flexstudios.com - digital consultants" messagePage = messagePage & "Consumer Name: " & fName & chr(13) messagePage = messagePage & "Consumer Email: " & fEmail & chr(13) messagePage = messagePage & "# of Adults: " & fAdult & chr(13) messagePage = messagePage & "# of Children: " & fKid & chr(13) messagePage = messagePage & "Departure City: " & fDeparture & chr(13) messagePage = messagePage & "Inquiry Destination: #" & fDestination & chr(13) messagePage = messagePage & "Estimated Departure Date: " & fDM & "/" & fDD & "/" & fDY & chr(13) messagePage = messagePage & "Estimated Return Date: " & fAM & "/" & fAD & "/" & fAY & chr(13) messagePage = messagePage & "Consumer Comments: " & chr(13) & fDesc & chr(13) Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Dim objCDOConf Set objCDOConf = Server.CreateObject("CDO.Configuration") With objCDOConf.Fields .Item(cdoSendUsingMethod) = 2 .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = objCDOConf ' Be sure to use a valid email addresses below: objCDO.From = "info@caribbeantoursspecialists.com" objCDO.To = "nik@3flexstudios.com,info@caribbeantoursspecialists.com" objCDO.Subject = "Destination" & fDestination & " Info Request: " & date() objCDO.TextBody = messageSend objCDO.Send 'Clean-up Set objCDO = Nothing Set objCDOConf = Nothing formReact = formReact & "" formReact = formReact & "

" formReact = formReact & messagePage formReact = formReact & " Click here to send another.

" Response.Write (formReact) End If Else Response.Write "