Contact

<%@LANGUAGE="VBSCRIPT"%> Contact

First Name
Surname
Address
Tel home
Tel work
Fax
Mobile
Comments
Email

<% Dim Emfrom Dim Emsub Dim Emto Dim Emcc Dim Embcc Dim Embody Dim Emattach Emfrom = "Enquiry Form" Emsub = "" Emto = "joseph_kocsis@hotmail.com" Emcc = "" Embcc = "" Embody = "" Emattach = "" Dim ObjCdo Set ObjCdo = Server.CreateObject("CDONTS.NewMail") ObjCdo.From = Emfrom ObjCdo.Subject = Emsub ObjCdo.To = Emto ObjCdo.cc = Emcc ObjCdo.bcc = Embcc ObjCdo.body = Embody 'ObjCDO.AttachFile(Emattach) ObjCdo.send Set ObjCdo = nothing %>