<% 'auth.smtp.1ana1.co.uk if Request.QueryString ("send")="1" then ' Build HTML for message body body="" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "" body=body & "
Subject"& Request.Form("ddlSubject") &"
Name"& Request.Form("tbxName") &"
Job Title"& Request.Form("tbxJobTitle") &"
Comany Name"& Request.Form("tbxCompanyName") &"
Email"& Request.Form("tbxEmail") &"
Comany Address"& Request.Form("tbxCompanyAddress") &"
Telephone"& Request.Form("tbxTelephone") &"
Message"& Request.Form("tbxMessage") &"
" Set myMail=CreateObject("CDO.Message") myMail.Subject=Request.Form("ddlSubject") myMail.From= Request.Form("tbxEmail") myMail.To="thomas.harrison@venusam.co.uk, ashar@venusam.co.uk" myMail.HTMLBody = body myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="auth.smtp.1and1.co.uk" 'Server port myMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing Response.Redirect ("Contactus.asp?send=2") end if %>


<% if Request.QueryString ("send")="2" then Response.Write ("Enquiry send successfully!") end if %>  
Subject
Name
Job Title
Company Name
Email
Company Address
Telephone
Message
Phone
Email Email
info@venusam.co.uk