<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function Dim bReq bReq = False Function Required(sField) If Request.ServerVariables("REQUEST_METHOD") = "POST" and not sField <> "" Then Response.Write "Required" bReq = True End if End Function If Request.ServerVariables("REQUEST_METHOD") = "POST" Then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) If CheckCAPTCHA(strCAPTCHA) = true and bReq = false then strBody = "Title: " & Request.Form("title") & vbCrlf & _ "First Name: " & Request.Form("firstname") & vbCrlf & _ "Surname: " & Request.Form("surname") & vbCrlf & _ "Telephone: " & Request.Form("telephone") & vbCrlf & _ "Mobile: " & Request.Form("mobile") & vbCrlf & _ "Email: " & Request.Form("email") & vbCrlf & _ "How did you hear?: " & Request.Form("hear") & vbCrlf & _ "Date of Event: " & Request.Form("eventdate") & vbCrlf & _ "Type of Event: " & vbCrlf & _ "Wedding = " & Request.Form("eventwedding") & vbCrlf & _ "Corporate = " & Request.Form("eventcorporate") & vbCrlf & _ "Other = " & Request.Form("eventother") & vbCrlf & _ "Other Desc = " & Request.Form("eventotherdesc") & vbCrlf & vbCrlf & _ "Venue Name: " & Request.Form("venuename") & vbCrlf & _ "Venue Address: " & Request.Form("venueaddress") & vbCrlf & _ "Approx no of children: " & vbCrlf & _ "0 - 2 yrs = " & Request.Form("zerotwoyrs") & vbCrlf & _ "2 - 3 yrs = " & Request.Form("twothreeyrs") & vbCrlf & _ "3 - 5 yrs = " & Request.Form("threefiveyrs") & vbCrlf & _ "5 - 8 yrs = " & Request.Form("fiveeightyrs") strSubject = "A Little Something Extra Website Enquiry" Response.Write strTo & "
" Response.Write Request.Form("email") & "
" Response.Write strSubject & "
" Response.Write strBody & "
" strClientBody = "Dear " & Request.Form("firstname") & "," & vbCrlf & vbCrlf & _ "Thankyou for contacting us. We have received your details and will be in contact with you shortly." & vbCrlf & vbCrlf & _ "Yours Sincerely" & vbCrlf & vbCrlf & _ "A Little Something Extra" Set objSendmail = Server.CreateObject("CDO.Message") objSendmail.Subject = strSubject objSendmail.From = "no-reply@alittlesomethingextra.co.uk" objSendmail.To = "info@alittlesomethingextra.co.uk" objSendmail.Bcc = "chris@blue-tank.com" objSendmail.TextBody = strBody objSendmail.Send Set objSendMail = Nothing 'Set objSendmail = Server.CreateObject("CDO.Message") 'objSendmail.Subject = strSubject 'objSendmail.From ="no-reply@alittlesomethingextra.co.uk" 'objSendmail.To = "info@alittlesomethingextra.co.uk" 'objSendmail.TextBody = strClientBody 'objSendmail.Send 'Set objSendMail = Nothing Response.Redirect "contact-sent.html" Response.End () End If End If %> A Little Something Extra - Wedding Creche Service Enquiry

A Little Something Extra - Wedding Crèche Service, Leeds, West Yorkshire

Send Us a Little Note

By post:

Apartment 3, Headingley Castle, Headingley Lane, Leeds, West Yorkshire, LS6 2DJ

By phone:

Joy Garland 0113 2695472 mob: 07742 122495

Chris Barraclough 0113 2740663 mob: 07902 915954

 

Enquiry Form.
Fields marked with an asterisk are required.

Your Details


" />

" />

" />

" />

" />

" />

" />

Event Details


" />
Type of Event:
" />
" />
" />
" />

" />


Guest Details

Approx no of children
0 - 2yrs " />
2 - 3yrs " />
3 - 5yrs " />
5 - 8yrs " />

Write the characters in the image below into the textbox (Case sensitive) *

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then %> Verified (<%=strCAPTCHA%>) <% else %> Please Retry typing in the verfication code. <% end if end if %> This Is CAPTCHA Image