<%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim ExcludeFields Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") ExcludeFields = "FFSubmitted;" & "" objCDO.From = "CharterQueen" objCDO.To = "charterqueen@charterqueen.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "" BodyString = Replace("this is a test","~",chr(13) & chr(10) )& chr(13) For Each item In Request.Form If InStr(1,ExcludeFields,item,1) = 0 then BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) End If Next objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send end if %> <% FFeditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then FFeditAction = FFeditAction & "?" & Request.QueryString End If %> Charter Queen Limited
 

 
Feedback Form
 

 

If you have a question, please first check our Help/FAQs page.

Fields marked with a red asterisk ( * ) cannot be left blank. Please type "n/a" if not applicable.

method=post>

  How may we help you?
Please choose a category
so we can better understand
your questions or suggestions.

Others (pls. specify):

*  Your message:
Enter your question or comment here. Please include as many details as possible so we can assist you better.

*  Your e-mail address:

Please send a copy of this message to my e-mail address.
*  First Name:

*  Last Name:

*  Company:

  Phone number:
country
dial code
area code -  
  Fax number:
country
dial code
area code -  

 

© Charter Queen Ltd. All Rights Reserved. All other trademarks & copyrights are the property of their respective holders.
Best viewed in Internet Explorer 4+