<% if request.form("email") <> "" then if chkemail(request.form("email")) <> 1 then '--- old emailform script Dim shopemail, shopBody Set objErremail= Server.CreateObject("CDO.Message") With objErremail .From = request("email") .To = sendmail .Subject = restname & " Web Form - " & request("subject") shopBody=shopBody & "Name: " & request("name") & vbcrlf & vbcrlf shopBody=shopBody & "Email: " & request("email") & vbcrlf & vbcrlf shopBody=shopBody & "Tel: " & request("tel") & vbcrlf & vbcrlf shopBody=shopBody & "Comments: " & request("enquiry") & vbcrlf & vbcrlf if request("promotions") = "YES" then shopBody=shopBody & "The sender has indicated they are willing to receive promotional messages by text or email." & vbcrlf & vbcrlf else shopBody=shopBody & "The sender has indicated they are NOT willing to receive promotional messages by text or email." & vbcrlf & vbcrlf end if shopBody=shopBody & "This email was sent on : " & date & " at " & time .TextBody = Cstr("" & shopbody) .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "195.234.116.130" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Configuration.Fields.Update .Send End With set objErremail = nothing DIM custemail, custBody Set objErremail= Server.CreateObject("CDO.Message") With objErremail .From = sendmail .To = request.form("email") .Subject = "Thank you "& request.form ("name") custBody=custBody & "Thank You " & request.form("name") & vbcrlf & vbcrlf custBody=custBody & "We have received your email and will deal with it promptly." & vbcrlf & vbcrlf custBody=custBody & restname & " - " & url & vbcrlf .TextBody = Cstr("" & custBody) .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "195.234.116.130" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Configuration.Fields.Update .Send End With set objErremail = nothing '--- end old emailform else validate = "X" end if end if %> Clifton Academy of Dance | Contact Details and Location Map, Lytham St Annes, Lancashire
home dance drama music cabaret group shop contact
Clifton Academy
DanceDrama Music Newsletter
<% if request.form("list") = "" then %> If you are interested in receiving occasional emails informing you of our latest events and special offers, simply sign up below.<%end if%> <%if request("list") <> "" and chkEmail(request("list")) = 1 then%> ! Email Address Validation Failed !
Please check the email address you entered and try again. <%end if%>
 

Contact Us

Clifton Academy

243-245 Clifton Drive South
Lytham St Annes
Lancashire
FY8 1HW
Tel: 01253 721060

<% if request.form("email") = "" or validate <> "" then %> <%else%> <%end if%>
#Thanks" onSubmit="return formCheck(this);">
<% if validate <> "" then %> Email Address Validation Failed.
Please check the email address you entered and try again. <%else%> We welcome all questions and queries. If you are interested in an event or would like to submit a review, please use our online form below. <%end if%>
Name: * " />
Email: * " />
Tel: * " />
Subject:
Enquiry:
I am happy to receive occasional text or email messages with information on special offers, events etc. (uncheck the box if you do not want to receive this information)
 
  ( * = compulsory fields)
Thank You <%=request("name")%>
We have received your email.<% if request("promotions") = "YES" then if chkEmail(request("email")) <> 1 then Set eml = Server.CreateObject("ADODB.Recordset") eml.ActiveConnection = cnnsearch eml.Source = "SELECT email from email where email = '" & request("email") & "'" eml.CursorType = 0 eml.CursorLocation = 2 eml.LockType = 1 eml.Open() if eml.eof <> false then SQL = "INSERT INTO email (" fname = fname & " email" fvalue = fvalue & "'" & replace(request("email"), "'", "''") & "'" fname = fname & ", region" fvalue = fvalue & ",'user'" SQL = SQL & fname & ") values (" & fvalue & ")" ' response.Write(sql) Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = cnnsearch MM_editCmd.CommandText = SQL MM_editCmd.Execute MM_editCmd.ActiveConnection.Close set MM_editCmd = nothing Response.Write("
You have successfully subscribed to our newsletter.") else ' already in db Response.Write("
Your are a mailing list member thank you.") end if eml.close set eml = nothing end if end if %>