<% SUB sendmail( fromWho, toWho, Subject, Name, Tel, Venue, dayofmonth, venuemonth, venueyear, recommend, Body ) Dim objCDO Dim iConf Dim Flds Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = MailServer .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf objCDO.From = fromWho objCDO.To = toWho objCDO.cc = "julia@whitedoverelease.org.uk" objCDO.Subject = Subject objCDO.HTMLBody = "

Hello

You have received a booking request from White Dove Release, please see the request details below:

" objCDO.HTMLBody = objCDO.HTMLBody & "

Their name: " & request.form("Name") & "

" objCDO.HTMLBody = objCDO.HTMLBody & "

Their e-mail address: " & request.form("fromWho") & "

" objCDO.HTMLBody = objCDO.HTMLBody & "

Their telephone number: " & request.form("Tel") & "

" objCDO.HTMLBody = objCDO.HTMLBody & "

Their venue: " & request.form("Venue") & "

" objCDO.HTMLBody = objCDO.HTMLBody & "

Requested date: " & request.form("dayofmonth") & " " & request.form("venuemonth") & " " & request.form("venueyear") & "

" objCDO.HTMLBody = objCDO.HTMLBody & "

Recommendation: " & request.form("recommend") & "

" objCDO.HTMLBody = objCDO.HTMLBody & "

Their comments: " & request.form("Body") & "

" objCDO.HTMLBody = objCDO.HTMLBody & "

Please check where the venue is and if the date is available for a release. Also check the customers comments above for additional information before contacting them either by phone or e-mail with an estimated cost.

Thank you

The White Dove Release online booking system.

" objCDO.Send END SUB Dim Domainname Dim MailServer Dim From Dim subject1 Domainname = "whitedoverelease.org.uk" MailServer = ("mail-fwd") From = "support@verio.de" subject1 = "IDS-11564926 - " fromWho = Request.Form( "fromWho") toWho = ("mike@whitedoverelease.org.uk") Subject = TRIM( ( "White Dove Release Booking Request" ) ) Name = TRIM( Request.Form( "Name") ) Tel = TRIM( Request.Form( "Tel") ) Venue = TRIM( Request.Form( "Venue") ) dayofmonth = TRIM( Request.Form( "dayofmonth") ) venuemonth = TRIM( Request.Form( "venuemonth") ) venueyear = TRIM( Request.Form( "venueyear") ) recommend = TRIM( Request.Form( "recommend") ) Body = TRIM( Request.Form( "Body") ) send_mail = Request.Form( "send_mail") If send_mail <> "" THEN sendMail fromWho, toWho, Subject, Name, Tel, Venue, dayofmonth, venuemonth, venueyear, recommend, Body 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing Response.redirect "thankyou.html" END IF %> White Dove Release - Booking

Booking

White Dove Release
">

PLEASE NOTE: We do not share, pass on or sell any of your details to third parties.