<% 'If the form has not been submitted execute the following code If Request.Form="" Then %>

Thank you for your interest in touring

"America's Most Prestigious Ship."


Due to operational obligations and construction on our pier, the ship will not offer tours effective

4 June 2008 until 1 September 2008. 

We apologize for any inconvenience!

 

Just to get you started...When we are at our home port in Baltimore, MD we offer tours on Thursdays between 0900-1400. Please be aware that this is a US Navy Ship and not a historical museum. Due to the daily onboard requirements we are not staffed to offer daily tours and need to adhere to the Thursday only Tour Day..

 

The tour is approximately 1 and 1/2 to 2 hours long and must be scheduled in advance, the tour coordinators will be your POC for available dates.

 

We are not allowed to have children under the age of 8 come on board due to safety reasons.

 

The tour coordinators will need to know how many guests will be coming for the tour.

 

Also, are there any specific interests that you or your group has regarding the USNS Comfort?

 

After a date and time are established, we will need a list of the names of individuals that will be on the tour in order to get authorization for them to come onboard.

 

If you are interested in scheduling a tour, please fill in your answers below.
The phone number to the ship is 410-631-7461 ext 7369 or ext 7422.  The tour coordinators are HMC Colon and HM1 Koziczkowski. Comfort's fax number is 410-631-7467.

 

Again, thanks for your interest in the USNS Comfort!

 

Request for tour.

Name
E-mail
 
   
 

<% 'If the form has been submitted execute the following code Else 'receive the form values Dim sName, sEmail, sFeedback sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sFeedback=Request.Form("txtFeedback") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "HTML Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Comments message from: " & sName & "
" sEmailText = sEmailText & "Message:" & sComments & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail NewMailObj.To = "ombudsman@comfort.navy.mil" NewMailObj.Subject = "Comments" NewMailObj.Body = sEmailText NewMailObj.Send Set NewMailObj=Nothing Response.write "
Thank you for sending your comments.
" Response.write "We will get back to you if necessary.
" Response.write "
click here to return to the home page return
" End If %>