<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% mailsent = 0 if request.form("sent") = "true" then Dim mail_Body mail_Body = "Message from SEACURUS Website" & vbCrLf & vbCrLf mail_Body = mail_Body & "Sender: " & request.form("name") & vbCrLf mail_Body = mail_Body & "Company: " & request.form("company") & vbCrLf mail_Body = mail_Body & "Position: " & request.form("position") & vbCrLf mail_Body = mail_Body & "Interest Group: " & request.form("interestgroup") & vbCrLf mail_Body = mail_Body & "Telephone: " & request.form("telephone") & vbCrLf mail_Body = mail_Body & "email: " & request.form("email") & vbCrLf mail_Body = mail_Body & "emailverify: " & request.form("emailverify") & vbCrLf mail_Body = mail_Body & "Time: " & Now() & vbCrLf & vbCrLf mail_Body = mail_Body & "Enquiry:" & vbCrLf & request.form("enquiry") & vbCrLf & vbCrLf mail_Body = mail_Body & "End of Message" Set objMail = CreateObject("CDONTS.NewMail") objMail.From = request.form("email") objMail.To = "rob@re-media.biz" objMail.CC = "" objMail.BCC = "" objMail.Subject = "Message from SEACURUS Website" objMail.Body = mail_Body objMail.Send() Set objMail = Nothing mailsent = 1 end if %> About us
HOME | CONTACT US  
 



CONTACT DETAILS:

Tel: +44 (0)191 469 0859
Fax: +44 (0)191 469 7940

Mailing Address:
Seacurus Ltd
Design Works
William Street
Gateshead
Tyne and Wear
NE10 0JP

 <% IF mailsent = "1" then %> <% End If %>

Thank you for your enquiry, we will respond as soon as possible
Name:
Company/Organisation:
Position:
Interest Group:
Contact Telephone Number:
Contact Email Address:
Please verify your Email Address:
Your Enquiry: