<% Response.Redirect("https://support.exampro.co.uk/support/tickets/new") %> <% page = "support" %> <% SC = request("SC") givethanks = 0 errFlag = 0 %> <% clicked = request("clicked") if clicked = "1" then name = validate(request("name")) position = validate(request("position")) school = validate(request("school")) address = validate(request("address")) postcode = validate(request("postcode")) email = validate(request("email")) telephone = validate(request("telephone")) comment = validate(request("comment")) family = validate(request("fam")) dfes = validate(request("dfes")) '-------begin validation if len(name) < 2 then errflag = 1 errText = "Name is required." & "
" end if if len(school) < 2 then errflag = 1 errText = errText & "Centre name is required. " & "
" end if if len(email) < 5 AND len(telephone) < 5 then errflag = 1 errText = errText & "Email is required." & "
" end if if len(email) > 0 AND (InStr(email,".") = 0 OR InStr(email,"@") = 0) then errflag = 1 errText = errText & "Invalid email address." & "
" end if if len(comment) < 2 then errflag = 1 errText = errtext & "A comment is required." & "
" end if if len(family) < 3 then errflag = 1 errText = errText & "Please select a product family." & "
" end if if len(Position) < 2 then errflag = 1 errtext = errtext & "Please include your position." end if '------end validation '------if validated, save in the database if errFlag = 0 then 'make the vars database friendly nameF = LEFT(replace(name,"'","''"),50) positionF = LEFT(replace(position,"'","''"),50) schoolF = LEFT(replace(school,"'","''"),150) addressF = LEFT(replace(address,"'","''"),150) postcodeF = LEFT(replace(postcode,"'","''"),20) emailF = LEFT(replace(email,"'","''"),150) telephoneF = LEFT(replace(telephone,"'","''"),50) commentF = LEFT(replace(comment,"'","''"),1000) ipaddressF = LEFT(Request.ServerVariables("REMOTE_ADDR"),50) browserF = LEFT(replace(Request.ServerVariables("HTTP_USER_AGENT"),"'","''"),200) MYSQL = "EXEC ADDContact @name='" & nameF & "',@position='" & positionF & "'," MYSQL = MYSQL & "@school='" & schoolF & "',@address='" & addressF & "'," MYSQL = MYSQL & "@postcode='" & postcodeF & "',@email='" & emailF & "'," MYSQL = MYSQL & "@telephone='" & telephoneF & "',@comment='" & commentF & "'," MYSQL = MYSQL & "@ipaddress='" & ipaddressF & "',@browser='" & browserF & "',@site='" & session("site") & "',@contactType=1," MYSQL = MYSQL & "@dfes='" & dfes & "',@family='" & family & "' " rs.Open MYSQL, DataConn res=rs("res") rs.Close givethanks = 1 end if end if %> Exampro - Contact us

Contact

New address:
Exampro
PO Box 68318
London
NW1 2SD

We cannot give login or
licence details over the phone
Tel: 0345 145 1500

Forgot your login details?

Request login details

If you forgot your Account Manager login details, use the form on the right to submit your request.


To hear about subject news and updates

Sign up for emails

For all other queries

<% '-----Here we check if the user did a search---- if request("pstcdsrch") = "1" then SearchPostCode = replace(request("SearchPostCode")," ","") SearchPostCode = replace(SearchPostCode,"'","") SearchPostCode = validate(request("SearchPostCode")) if Len(SearchPostCode) > 2 then MYSQL = "EXEC SearchSchoolsPC @postCode='" & SearchPostCode & "'" rs.Open MYSQL, DataConn if not rs.EOF then While NOT rs.eof dfes = rs("dfes") org = rs("org") ad1 = rs("address1") ad2 = rs("address2") '-----Here we loop through search result and build a table---- searchResult = searchResult & "" & dfes & "" & org & "" & ad1 & " " & ad2 & "" rs.MoveNext Wend searchResult = "DfECentreAddress"& searchResult searchResult = "

Click your centre name or enter your details manually" & searchResult searchResult = "
" & searchResult & "
" rs.Close else '------If no records are found, tell them so-------- searchResult2 = "No results found" rs.Close end if '------If less than 3 digits were entered, tell them so-------- else searchResult2 = "Please enter 3 digits of your postcode" end if end if %> <% if Len(SC) < 4 and givethanks=0 then %>
Enter your postcode to find your school
or enter your details manually
<% = SearchResult2 %>
<% = SearchResult %>
<% end if %> <% if Len(SC) > 4 then if SC <> "00000" then 'overseas school MYSQL = "EXEC GetSingleSchool @dfes='" & SC & "'" rs.Open MYSQL, DataConn if not rs.EOF then address = rs("addressComplete") postcode = rs("postcode") dfes = rs("dfes") school = rs("org") end if rs.close end if %>
<< search again
<% if errFlag = 1 OR clicked <> "1" then %> <% end if %> <% 'end if %>
Your name:
Your subject area:
Your position:
Your email:
Centre name:
Centre address:
Centre postcode:
Comment:
<% = res %>
<% = errText %>
<% end if %> <% if givethanks=1 then %> Thank you <% = name %>.
We will contact you shortly. <% end if %>