<% @language="VBSCRIPT" %>
<%
' Embed within a page that has the sending form
'
' Following are mandatory fields:
' Target = Target Email Address (Hidden)
' Redirect = Page to display after success (Hidden)
' Email = Sending email address
'
' Other fields:
'
' Subject = Subject for email
' strErrorMessage = Message to display when error occurs
'
' Call with ?debug to show values
'
'################### Start Config
strTarget = "root@teaching-uk.com"
strTarget = "bob@beaconeducation.co.uk"
strRedirect = "http://www.teaching-uk.com/school_confirm.html"
strSubject = "School Registration from Teaching-UK.Com"
' strErrorMessage = request.form("errormessage")
' Swap these lines if email is not on the form
'################### End Config
' Create Array of fields
if request.form("send") = "" then
strCountry = "- Please Choose -"
strType_of_School = "- Please Choose -"
strRecruit_Period = "- Please Choose -"
strBasis = "- Please Choose -"
else
strEmail = request.form("Email")
strCountry = request.form("Country")
strType_of_School = request.form("Type_of_School")
strRecruit_Period = request.form("Recruit_Period")
strBasis = request.form("Basis")
dim aryfields()
dim arymandatory()
dim aryerrormessage()
'################### Start Config
intcnt = 14 ' Number of fields (-1)
redim preserve aryfields(intcnt)
redim preserve arymandatory(intcnt)
redim preserve aryerrormessage(intcnt)
aryfields(0) = "Full_Name"
arymandatory(0) = "Y" ' Y or N (Y if mandatory)
aryerrormessage(0) = "Please supply your full name"
aryfields(1) = "Position"
arymandatory(1) = "Y" ' Y or N (Y if mandatory)
aryerrormessage(1) = "Please enter your position"
aryfields(2) = "School_Name"
arymandatory(2) = "Y" ' Y or N (Y if mandatory)
aryerrormessage(2) = "Please supply your school name"
aryfields(3) = "Full_Address"
arymandatory(3) = "Y"
aryerrormessage(3) = "Please supply your school's full address"
aryfields(4) = "Postcode"
arymandatory(4) = "Y"
aryerrormessage(4) = "Please supply your school's postcode"
aryfields(5) = "Tel_Number"
arymandatory(5) = "Y"
aryerrormessage(5) = "Please supply your contact telephone number"
aryfields(6) = "Fax_Number"
arymandatory(6) = "N"
aryerrormessage(6) = ""
aryfields(7) = "Email"
arymandatory(7) = "Y"
aryerrormessage(7) = "Please supply your email address"
aryfields(8) = "Retype_Email"
arymandatory(8) = "Y"
aryerrormessage(8) = "Please retype your email address"
aryfields(9) = "Type_of_School"
arymandatory(9) = "Y"
aryerrormessage(9) = "Please select the type of school"
aryfields(10) = "Key_Stage"
arymandatory(10) = "Y"
aryerrormessage(10) = "Please enter the key stage or subject specialism required"
aryfields(11) = "Recruit_Period"
arymandatory(11) = "Y"
aryerrormessage(11) = "Please select the recruitment period"
aryfields(12) = "Basis"
arymandatory(12) = "Y"
aryerrormessage(12) = "Please select supply or contract basis"
aryfields(13) = "Start_Date"
arymandatory(13) = "Y"
aryerrormessage(13) = "Please supply your vacancy start date"
aryfields(14) = "Comments"
arymandatory(14) = "N"
aryerrormessage(14) = ""
'################### End Config
' Blank the error line
strErrorMessage = ""
strheading = " School Registration Details "
strbody = strbody & strHeading & vbCrLf
lowcnt=lbound(aryfields)
highcnt=ubound(aryfields)
for intcnt=lowcnt to highcnt
strFieldName = aryfields(intcnt)
strValue = Request.Form(strFieldName)
If arymandatory(intcnt) = "Y" then
if strValue = "" or strValue = "- Please Choose -" or strValue = "- Please Select -" then
if aryerrormessage(intcnt) = "" then
strErrorMessage = strErrorMessage & "Please supply your "&strfieldname&" "
else
strErrorMessage = strErrorMessage & aryerrormessage(intcnt)&" "
end if
intError = 1
end if
end if
strbody = strbody & strfieldname & ": " & "" & strValue & " " & vbCrLf
next
'################### Start Config
' Comment out if email is optional
if strEmail = "" then
else
if instr(stremail, "@") = false or instr(stremail, ".") = false then
strErrorMessage = strErrorMessage & "Please supply a valid Email address "
intError = 1
end if
end if
'################### End Config
if request.form("Email") <> request.form("Retype_Email") then
strErrorMessage = strErrorMessage & "Email addresses do not match "
intError = 1
end if
IF strErrorMessage <> "" Then
strErrorMessage = "" & strErrorMessage & "
"
End if
if strSubject = "" then
strSubject = "School Registration from Teaching-UK.Com"
end if
if intError = 1 then
else
Set objMail = Server.CreateObject("CDONTS.Newmail")
objMail.To = strTarget
objMail.Subject = strSubject
objMail.From = request.form("Email")
strBody = strBody & " Timestamp: "&now()
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "HTML Demo"
HTML = HTML & ""
HTML = HTML & ""
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Importance = 1
objMail.Body = HTML & strBody & ""
objMail.Body = strBody
objMail.Send
Set objMail = Nothing
response.redirect(strRedirect)
end if
end if
%>
School Registration Form for Teaching UK
School RegistrationWe have excellent qualified teachers registered with us from the
UK, Canada, USA, Australia, New Zealand and South Africa looking for interesting and
rewarding teaching posts in the UK. Please feel free to contact us at any time (see
contact page) or you can complete the form below to tell us about your vacancy. We promise
to contact you immediately.
Of course, the information
you give us will be kept in the strictest confidence – please refer to our Privacy Policy for details.
We have excellent qualified teachers registered with us from the
UK, Canada, USA, Australia, New Zealand and South Africa looking for interesting and
rewarding teaching posts in the UK. Please feel free to contact us at any time (see
contact page) or you can complete the form below to tell us about your vacancy. We promise
to contact you immediately.