<%Response.Buffer = True%> <% If Request.Form("Submit") <> "" Then Dim strTo ' Strings to hold our email fields Dim strFrom Dim strSubject Dim strBody Dim objCDO strBody = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "Contact Us" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "

Enquiry

" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
Name"& Request.Form("txtName") &"
Company"& Request.Form("txtcompany") &"
Email " & vbCrLf _ & "Address"& Request.Form("txtEmail") &"
Address 

"& Request.Form("txtAdd") &"

" & vbCrLf _ & "

 

Comments"& Request.Form("txtComm") &"
" & vbCrLf _ & "
" & vbCrLf _ & "" & vbCrLf _ & "" strFrom = Request.Form("txtEmail") strTo = "info@seachef.com" strSubject = "The enquiry from the website" Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = strFrom objCDO.To = strTo objCDO.Subject = strSubject objCDO.Body = strBody objCDO.BodyFormat = 0 ' CdoBodyFormatHTML objCDO.Send Set objCDO = Nothing End If %> Seachef ::::: The Road Ahead

Seachef plans to progress beyond the existing levels of customer delight and attain the following objectives:

To bring together all our work places including ships and storage points under HACCP (Hazard Analysis Critical Control Points) and apply for this certification formally.

To bring up the standards to the best in the cruise ship industry, by benchmarking and upgrading our services continually in housekeeping, food storage, food production and service deliverance.

This will encourage the ship's staff to develop a healthy lifestyle leading to better health, motivation and productivity on board