<%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 ::::: Downloads

Download our new brochure:

        

PowerPoint Presentation:
Click here to download our PowerPoint Presentation.
Click here to download the Zipped version.