<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% s=Request("s") 'get agent referral If Request.Cookies ("CSDagent") <> "" Then CSDagent = Request.Cookies ("CSDagent") else CSDagent= "Direct Customer" end if %> <% if Request.ServerVariables("request_method") = "POST" then 'if Request.Form("Date") <> "" then nameVar = Request.Form("Name") address1 = Request.Form("Address1") address2 = Request.Form("Address2") town = Request.Form("Town") county = Request.Form("County") postcode = Request.Form("Postcode") email = Request.Form("email") phoneE = Request.Form("phoneE") phoneD = Request.Form("phoneD") eventtype = Request.Form("Event") edate = Request.Form("Date") venue = Request.Form("Venue") location = Request.Form("Location") starttime = Request.Form("StartTime") endtime = Request.Form("EndTime") howmanypeople = Request.Form("howmanypeople") rdoset = Request.Form("rdoSet") othermusic = Request.Form("OtherMusic") chkJazzQuartet = Request.Form("chkJazzQuartet") chkCDpartymusic = Request.Form("chkCDpartymusic") chkDJrequired = Request.Form("chkDJrequired") chkarrangetune = Request.Form("chkarrangetune") comments = Request.Form("comments") chkAvailability = Request.Form("chkAvailability") chkPrice = Request.Form("chkPrice") Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = email objCDO.To = "info@cardiffsoulband.com" objCDO.Bcc = "" objCDO.Subject = "Cardiff Soul Band Web Request" objCDO.Body = "Name: "& nameVar &VBCRLF&"Add1: "&address1 &VBCRLF&"Add2: "&address2 &VBCRLF&"Town: "&town &VBCRLF&"County: "&county &VBCRLF&"Pcode: "&postcode &VBCRLF&"Email: "&email &VBCRLF&"TelE: "&phoneE &VBCRLF&"TelD: "&phoneD &VBCRLF&"Type: "&eventtype &VBCRLF&"Date: "&edate &VBCRLF&"Venue: "&venue &VBCRLF&"Locn: "&location &VBCRLF&"Start: "&starttime &VBCRLF&"End: "&endtime &VBCRLF&"People: "&howmanypeople &VBCRLF&"Set: "&rdoset &VBCRLF&"Other: "&othermusic &VBCRLF&"Jazz: "&chkJazzQuartet &VBCRLF&"Music: "&chkCDpartymusic &VBCRLF&"DJ: "&chkDJrequired &VBCRLF&"Tune: "&chkarrangetune &VBCRLF&"Comment: "&comments &VBCRLF&"Available:"&chkAvailability &VBCRLF&"Price: "&chkPrice & VBCRLF&VBCRLF&"CSD AGENT REFFERAL: " & CSDagent objCDO.Send() Set objCDO = Nothing if CSDagent <> "Direct Customer" then 'do agent email copy Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "info@cardiffsoulband.com" objCDO.To = CSDagent objCDO.Bcc = "info@cardiffsoulband.com" objCDO.Subject = "Cardiff Soul Band - Automated Agent Referral" msg = "The following enquiry was received by Cardiff Soul Band from a customer referred through your web site in the last year. Our quotation to the customer will include a standard agency fee (or a specific agency fee if previously agreed). After payment for any resulting gig, Cardiff Soul Band will self-invoice and forward the agency fee to you. You need do nothing - but you are welcome to call Ash on 029 2048 5770 or reply to this email if you need to discuss. If you want to influence our response to the customer, please make contact promptly." &VBCRLF&VBCRLF msg = msg & "Name: "& nameVar &VBCRLF&"Add1: "&address1 &VBCRLF&"Add2: "&address2 &VBCRLF&"Town: "&town &VBCRLF&"County: "&county &VBCRLF&"Pcode: "&postcode &VBCRLF&"Email: "&email &VBCRLF&"TelE: "&phoneE &VBCRLF&"TelD: "&phoneD &VBCRLF&"Type: "&eventtype &VBCRLF&"Date: "&edate &VBCRLF&"Venue: "&venue &VBCRLF&"Locn: "&location &VBCRLF&"Start: "&starttime &VBCRLF&"End: "&endtime &VBCRLF&"People: "&howmanypeople &VBCRLF&"Set: "&rdoset &VBCRLF&"Other: "&othermusic &VBCRLF&"Jazz: "&chkJazzQuartet &VBCRLF&"Music: "&chkCDpartymusic &VBCRLF&"DJ: "&chkDJrequired &VBCRLF&"Tune: "&chkarrangetune &VBCRLF&"Comment: "&comments &VBCRLF&"Available:"&chkAvailability &VBCRLF&"Price: "&chkPrice & VBCRLF&VBCRLF&"CSD AGENT REFFERAL: " & CSDagent objCDO.Body = msg objCDO.Send() Set objCDO = Nothing end if ' ends agent email end if %> Cardiff Soul Band - Cardiff, South Wales and the West. Soul band, jazz
Dave Mitchell - Lead Singer of Cardiff Soul Band
<% if not Request.ServerVariables("request_method") = "POST" then %> <%End If%>

Contact Cardiff Soul Band

<% if Request.ServerVariables("request_method") = "POST" then %>

Thank you for your enquiry <%if edate <> "" then%> about <%=edate%> <%end if%> . You should hear from us within a few days - if you need to know sooner, please telephone Andrew on 029 2048 5770.

<%else%>

Cardiff Soul Band have now joined forces with Classic Soul Dogs, South Wales' Most Popular Wedding Soul Band. All bookings from now on will go through Classic Soul Dogs.

Please use the following contact details for Classic Soul Dogs

 

N.B. If you have booked Cardiff Soul Band for an event in the future, please do not worry. Your booking will be honoured in exactly the same way as before. Please do not hesitate to contact us if you have any queries.

 

<%end if%>

Cardiff Soul Band are proud to have joined forces with Classic Soul Dogs - South Wales' most popular wedding soul band.

Click here to visit the Classic Soul Dogs website.