<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> KZST 2010 - 25th Anniversary Listener's in the Caribbean Cruise on the Oasis of the Seas: Staterooms <% If request("submit") <> "" THEN function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function if not IsEmpty(Request.Form("submit")) then if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then 'Response.Write("The code you enter verified.") dim strMailBody,vname,vphone,vemail,vcomments vname = request.form("name") vphone = request.form("phone") vemail = request.form("email") vcomments = request.form("comments") IF INSTR(vComments,"http") > 0 THEN response.Write("thank you") response.End() END IF Set objEMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" Confi.Update Set objEMail.Configuration = objConfig objEMail.To = "chaela@webgoddessdesign.com;fdtweb@flyingdutchmentravel.com;ann@flyingdutchmentravel.com" 'objEMail.To = "chaela@webgoddessdesign.com" objEMail.From = vemail objEMail.Subject = "KZST 25th Anniversary Cruise contact form for " & vname strMailBody = "A KZST 25th Anniversary contact form has been submitted by " & vname strMailBody = strMailBody & chr(13) & chr(10) & "------------------------------------------- " strMailBody = strMailBody & chr(13) & chr(10) & "Name: " & vname strMailBody = strMailBody & chr(13) & chr(10) & "Email: " & vemail strMailBody = strMailBody & chr(13) & chr(10) & "Phone: " & vphone strMailBody = strMailBody & chr(13) & chr(10) & "Comments: " & vcomments objEMail.TextBody = strMailBody objEMail.send Set objEMail = Nothing Response.redirect("redirect.asp") else 'Response.Write "pass by" 'Response.Write("You entered the wrong code.") end if end if End if %>
Header image  
LISTENER'S CRUISE
  
 
 
 
 
  


 

" & vbCrLf) end if %>
 




Contact Us

Name (required): Please type your name.
Phone:
Email Address (required):: A valid email is required.Invalid format.
What is the best time to reach you?
Any comments you'd like to add?
 
Change Image
Write the characters in the image above
<% if not IsEmpty(Request.Form("submit")) then Response.Write("
") if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then Response.Write("The code you enter verified.") else Response.Write("You entered the wrong code.") end if Response.Write("



Tracy, Ann or Cece

Flying Dutchmen Travel
2245 Montgomery Drive, Suite A
@ Farmers Lane
Santa Rosa, California  95405
707-546-1212 / 800-248-7471

Office Hours
Monday - Friday 8:30a to 5:30P
Saturdays 10a - 2p

 

 

 

 

Flying Dutchmen Travel . 2245 Montgomery Drive, Suite A, Santa Rosa, CA 95405 . 707-546-1212 / 800-248-7471