<% response.redirect("https://forms.doublestruck.co.uk/") %> <% page = "order" %> <% accordionnumber = -1 'BG = "#FFFFFF" progbar = "" MYSQL = "EXEC WEB_GetPackageInfoFromView @inv=2, @sites=1" rs.Open MYSQL, Conn packagerows = "
" while not rs.EOF Tbl_packageid = rs("packageid") Tbl_packname = rs("Name") Tbl_packprice = rs("price") Tbl_productID = rs("productID") Tbl_user = rs("defaultUserCount") Tbl_fam = rs("Family") Tbl_familyID = rs("familyID") 'Any mention of Exampro is removed to avoid needless repetition Tbl_packname = "" & Replace(rs("Name"),"Exampro","") & "" infoBtn = "" rs.MoveNext ' if (Tbl_fam <> "Modern Foreign Languages") then 'BEGIN EXCLUDE FAMILY ' if InStr(session("cartArray"),Tbl_productID) > 0 then ' cartCheck = "" ' progbar = "" ' end if '======== HERE WE DEFINE WHICH PACKAGES CAN/CANNOT BE ORDERED TOGETHER, AND WHICH ACCORDION TABS THEY USE 'these may change if a new family is added, so we store them as variables DT_accno = 1 ENG_accno = 2 HUMAN_accno = 3 ICT_accno = 4 LANG_accno = 5 MATHS_accno = 6 'MfL_accno = 7 PE_accno = 7 PSYCH_accno = 8 SCIENCE_accno = 9 'DT_accno = 8 'HUMAN_accno = 1 'ICT_accno = 2 'LANG_accno = 3 'MATHS_accno = 4 'PE_accno = 5 'PSYCH_accno = 6 'SCIENCE_accno = 7 cartCheck = "" ' S.G. 11.06.2013 ca = split(session("cartArray"),",") for x = 0 to ubound(ca) if ca(x) = Tbl_ProductID then cartCheck = "" progbar = "" end if next ' --- ENGLISH --- if InStr(session("cartArray"),"PK_EP_127") > 0 then accordionnumber = ENG_accno 'if (Tbl_productID = "PK_EP_127") then ' cartCheck = "" ' accordionnumber = ENG_accno 'end if end if ' --- SCIENCE --- 'here we prohibit them from ordering single A Level Sciences if they've ordered the A Level Package, and vice-versa if InStr(session("cartArray"),"PK_EP_135") or InStr(session("cartArray"),"PK_EP_137") or InStr(session("cartArray"),"PK_EP_136") or InStr(session("cartArray"),"PK_EP_19") or InStr(session("cartArray"),"PK_EP_22") or InStr(session("cartArray"),"PK_EP_23") or InStr(session("cartArray"),"PK_EP_25") or InStr(session("cartArray"),"PK_EP_60") or InStr(session("cartArray"),"PK_EP_130") or InStr(session("cartArray"),"PK_EP_131") or InStr(session("cartArray"),"PK_EP_132") > 0 then accordionnumber = SCIENCE_accno if (Tbl_productID = "PK_EP_24") then cartCheck = "" accordionnumber = SCIENCE_accno end if end if if InStr(session("cartArray"),"PK_EP_24") > 0 then accordionnumber = SCIENCE_accno if (Tbl_productID = "PK_EP_135") or (Tbl_productID = "PK_EP_137") or (Tbl_productID = "PK_EP_136") or (Tbl_productID = "PK_EP_19") or (Tbl_productID = "PK_EP_22") or (Tbl_productID = "PK_EP_23") or (Tbl_productID = "PK_EP_25") or (Tbl_productID = "PK_EP_60") or (Tbl_productID = "PK_EP_130") or (Tbl_productID = "PK_EP_131") or (Tbl_productID = "PK_EP_132") then cartCheck = "" accordionnumber = SCIENCE_accno end if end if 'here we prohibit them from ordering single GCSE Sciences if they've ordered the GCSE Package, and vice-versa if InStr(session("cartArray"),"PK_EP_48") or InStr(session("cartArray"),"PK_EP_49") or InStr(session("cartArray"),"PK_EP_50") or InStr(session("cartArray"),"PK_EP_52") or InStr(session("cartArray"),"PK_EP_57") or InStr(session("cartArray"),"PK_EP_56") > 0 then accordionnumber = SCIENCE_accno if (Tbl_productID = "PK_EP_51") then cartCheck = "" accordionnumber = SCIENCE_accno end if end if if InStr(session("cartArray"),"PK_EP_51") or InStr(session("cartArray"),"PK_EP_56") > 0 then accordionnumber = SCIENCE_accno if (Tbl_productID = "PK_EP_58") or (Tbl_productID = "PK_EP_48") or (Tbl_productID = "PK_EP_49") or (Tbl_productID = "PK_EP_50") or (Tbl_productID = "PK_EP_52") or (Tbl_productID = "PK_EP_57") then cartCheck = "" accordionnumber = SCIENCE_accno end if end if if InStr(session("cartArray"),"PK_EP_58") > 0 then accordionnumber = SCIENCE_accno if (Tbl_productID = "PK_EP_51") or (Tbl_productID = "PK_EP_52") or (Tbl_productID = "PK_EP_57") or (Tbl_productID = "PK_EP_56") then cartCheck = "" accordionnumber = SCIENCE_accno end if end if if InStr(session("cartArray"),"PK_EP_48") or InStr(session("cartArray"),"PK_EP_49") or InStr(session("cartArray"),"PK_EP_50") or InStr(session("cartArray"),"PK_EP_52") or InStr(session("cartArray"),"PK_EP_57") or InStr(session("cartArray"),"PK_EP_51") > 0 then accordionnumber = SCIENCE_accno if (Tbl_productID = "PK_EP_56") then cartCheck = "" accordionnumber = SCIENCE_accno end if end if 'other Sciences, not linked to compendium packages if InStr(session("cartArray"),"PK_EP_21") or InStr(session("cartArray"),"PK_EP_53") or InStr(session("cartArray"),"PK_EP_58") > 0 then accordionnumber = SCIENCE_accno end if ' --- MATHS --- 'here we prohibit them from ordering single A Level Maths if they've ordered the A Level Package, and vice-versa if InStr(session("cartArray"),"PK_EP_29") or InStr(session("cartArray"),"PK_EP_30") or InStr(session("cartArray"),"PK_EP_31") or InStr(session("cartArray"),"PK_EP_32") > 0 then accordionnumber = MATHS_accno if (Tbl_productID = "PK_EP_33") then cartCheck = "" accordionnumber = MATHS_accno end if end if if InStr(session("cartArray"),"PK_EP_33") > 0 then accordionnumber = MATHS_accno if (Tbl_productID = "PK_EP_29") or (Tbl_productID = "PK_EP_30") or (Tbl_productID = "PK_EP_31") or (Tbl_productID = "PK_EP_32") then cartCheck = "" accordionnumber = MATHS_accno end if end if 'other Maths stuff, not linked to compendium packages if InStr(session("cartArray"),"PK_EP_54") or InStr(session("cartArray"),"PK_EP_55") or InStr(session("cartArray"),"PK_EP_128") > 0 then accordionnumber = MATHS_accno end if ' --- LANGUAGES --- 'here we prohibit them from ordering single GCSE Languages if they've ordered the GCSE Languages, and vice-versa if InStr(session("cartArray"),"PK_EP_35") or InStr(session("cartArray"),"PK_EP_36") or InStr(session("cartArray"),"PK_EP_37") > 0 then accordionnumber = LANG_accno if (Tbl_productID = "PK_EP_38") then cartCheck = "" accordionnumber = LANG_accno end if end if if InStr(session("cartArray"),"PK_EP_38") > 0 then accordionnumber = LANG_accno if (Tbl_productID = "PK_EP_35") or (Tbl_productID = "PK_EP_36") or (Tbl_productID = "PK_EP_37") then cartCheck = "" accordionnumber = LANG_accno end if end if 'here we prohibit them from ordering single A-Level Languages if they've ordered the A-Level Languages, and vice-versa if InStr(session("cartArray"),"PK_EP_110") or InStr(session("cartArray"),"PK_EP_111") or InStr(session("cartArray"),"PK_EP_112") > 0 then accordionnumber = LANG_accno if (Tbl_productID = "PK_EP_113") then cartCheck = "" accordionnumber = LANG_accno end if end if if InStr(session("cartArray"),"PK_EP_113") > 0 then accordionnumber = LANG_accno if (Tbl_productID = "PK_EP_110") or (Tbl_productID = "PK_EP_111") or (Tbl_productID = "PK_EP_112") then cartCheck = "" accordionnumber = LANG_accno end if end if ' --- PE --- if InStr(session("cartArray"),"PK_EP_42") or InStr(session("cartArray"),"PK_EP_62") > 0 then accordionnumber = PE_accno end if ' --- HUMANITIES --- if InStr(session("cartArray"),"PK_EP_43") or InStr(session("cartArray"),"PK_EP_44") or InStr(session("cartArray"),"PK_EP_45") or InStr(session("cartArray"),"PK_EP_46") > 0 then accordionnumber = HUMAN_accno end if ' --- PSYCHOLOGY --- ' if InStr(session("cartArray"),"PK_EP_63") > 0 then ' accordionnumber = PSYCH_accno ' end if if InStr(session("cartArray"),"PK_EP_63") or InStr(session("cartArray"),"PK_EP_133") > 0 then accordionnumber = PSYCH_accno if (Tbl_productID = "PK_EP_134") then cartCheck = "" accordionnumber = PSYCH_accno end if end if if InStr(session("cartArray"),"PK_EP_134") > 0 then accordionnumber = PSYCH_accno if (Tbl_productID = "PK_EP_63") or (Tbl_productID = "PK_EP_133") then cartCheck = "" accordionnumber = PSYCH_accno end if end if ' --- ICT and COMPUTING --- if InStr(session("cartArray"),"PK_EP_104") or InStr(session("cartArray"),"PK_EP_105") or InStr(session("cartArray"),"PK_EP_106") or InStr(session("cartArray"),"PK_EP_118") > 0 then accordionnumber = ICT_accno if (Tbl_productID = "PK_EP_103") then cartCheck = "" accordionnumber = ICT_accno end if end if if InStr(session("cartArray"),"PK_EP_103") > 0 then accordionnumber = ICT_accno if (Tbl_productID = "PK_EP_104") or (Tbl_productID = "PK_EP_105") or (Tbl_productID = "PK_EP_106")or (Tbl_productID = "PK_EP_118") then cartCheck = "" accordionnumber = ICT_accno end if end if ' --- DT --- 'here we prohibit them from ordering single DT Sciences if they've ordered the DT Package, and vice-versa if InStr(session("cartArray"),"PK_EP_119") or InStr(session("cartArray"),"PK_EP_120") or InStr(session("cartArray"),"PK_EP_121") or InStr(session("cartArray"),"PK_EP_122") or InStr(session("cartArray"),"PK_EP_123") or InStr(session("cartArray"),"PK_EP_124") or InStr(session("cartArray"),"PK_EP_125") > 0 then accordionnumber = DT_accno if (Tbl_productID = "PK_EP_126") then cartCheck = "" accordionnumber = DT_accno end if end if if InStr(session("cartArray"),"PK_EP_126") > 0 then accordionnumber = DT_accno if (Tbl_productID = "PK_EP_119") or (Tbl_productID = "PK_EP_120") or (Tbl_productID = "PK_EP_121")or (Tbl_productID = "PK_EP_122")or (Tbl_productID = "PK_EP_123") or (Tbl_productID = "PK_EP_124") or (Tbl_productID = "PK_EP_125") then cartCheck = "" accordionnumber = DT_accno end if end if if InStr(session("cartArray"),"PK_EP_139") or InStr(session("cartArray"),"PK_EP_140") or InStr(session("cartArray"),"PK_EP_141") > 0 then accordionnumber = DT_accno if (Tbl_productID = "PK_EP_138") then cartCheck = "" accordionnumber = DT_accno end if end if if InStr(session("cartArray"),"PK_EP_138") > 0 then accordionnumber = DT_accno if (Tbl_productID = "PK_EP_139") or (Tbl_productID = "PK_EP_140") or (Tbl_productID = "PK_EP_141") then cartCheck = "" accordionnumber = DT_accno end if end if '======== END ========== '======================= begin MfL stuff 'Adds tracker to the basket, if any MfL package is selected if InStr(session("cartArray"),"PK_EP_142") or InStr(session("cartArray"),"PK_EP_143") or InStr(session("cartArray"),"PK_EP_145") or InStr(session("cartArray"),"PK_EP_146") > 0 then if InStr(session("cartArray"),"PK_EP_146") < 1 then 'add tracker to basket cartArray = cartArray & "," & "PK_EP_146" session("cartArray") = replace(cartArray,",,",",") end if accordionnumber = LANG_accno else 'remove tracker from basket cartArray = replace(cartArray,"PK_EP_146","") session("cartArray") = replace(cartArray,",,",",") end if if (famtest <> Tbl_fam) then packagerows = packagerows & "
" packagerows = packagerows & "
" & Tbl_fam & "
" 'Can redefine the column headings for a package within a Subject group 'Tracker packages if(Tbl_productID = "PK_EP_146") then packagerows = packagerows & "" '(excluding Tracker)' packagerows = packagerows & "" Tbl_user = "250MB" elseif (Tbl_productID = "PK_EP_142") then 'On-screen progress tests packages packagerows = packagerows & "" elseif (Tbl_productID = "PK_EP_35") then packagerows = packagerows & "" packagerows = packagerows & "" else 'Standard Subject group column header packagerows = packagerows & "" end if end if if(Tbl_productID = "PK_EP_142") or (Tbl_productID = "PK_EP_143") or (Tbl_productID = "PK_EP_145") then Tbl_user = "" end if '==================== end MfL stuff packagerows = packagerows & "" famtest = Tbl_fam ' Column headings after Tracker package , for on-screen tests if Tbl_productID = "PK_EP_146" then packagerows = packagerows & "" end if ' Column headings after On-screen package , for GCSE/A-level languages if Tbl_productID = "PK_EP_145" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_21" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_54" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_37" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_119" then packagerows = packagerows & "" end if 'if Tbl_productID = "PK_EP_33" then 'packagerows = packagerows & "" 'end if if Tbl_productID = "PK_EP_51" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_58" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_24" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_38" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_104" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_113" then packagerows = packagerows & "" end if 'if Tbl_productID = "PK_EP_126" then ' packagerows = packagerows & "" 'end if 'if Tbl_productID = "PK_EP_134" then ' packagerows = packagerows & "" 'end if if Tbl_productID = "PK_EP_138" then packagerows = packagerows & "" end if if Tbl_productID = "PK_EP_25" then packagerows = packagerows & "" end if ' end if 'END EXCLUDE FAMILY Wend rs.close packagerows = packagerows & "
20% discount if you order 3 or more Languages packages**
 PackageStoragePrice *Order
 Package Price *Order
A 20% discount is applied if you order 3 or more Languages packages**
 PackageUsersPrice *Order
 PackageUsersPrice *Order
" & infoBtn & "" & Tbl_packname & "" & Tbl_user & "£" & Tbl_packprice & "" & cartcheck & "
 Package Price *Order
 PackageUsersPrice *Order
OR
OR
OR
OR
OR
OR
OR
OR
OR
OR
" %> <% '--------------------------------------------------------- ' If the user has already filled out a form ' via finding a school, we redirect them to the OrderOnline Session.Timeout = 1 '------------------------------------------- 'Here we check if the user did a search '------------------------------------------ if request("clicked") = "1" then postcode = replace(request("postCode")," ","") postcode = replace(postcode,"'","") postCode = validate(request("postCode")) B1 = validate(request("B1")) if Len(postCode) > 2 then MYSQL = "EXEC SearchSchoolsPC @postCode='" & postCode & "'" rs.Open MYSQL, DataConn if not rs.EOF then CNT = rs("CNT") if CNT = 1 then SCP = " school." else SCP = " schools." end if While NOT rs.eof dfes = rs("dfes") org = rs("org") ad1 = rs("address1") ad2 = rs("address2") '-------------------------------------------------------------- ' here we loop through the search results and build the table '-------------------------------------------------------------- searchResult = searchResult & "" & dfes & "" & org & "" & ad1 & " " & ad2 & "" rs.MoveNext Wend searchResult = "DfECentreAddressClick"& searchResult searchResult = "

If your centre is in the list, click the tick, otherwise click to enter your details." & searchResult searchResult = "
" & searchResult & "
" rs.Close else '-------------------------------------------- ' If no records are found, tell them so. '-------------------------------------------- searchResult2 = "No results found" rs.Close end if else searchResult3 = "Please enter 3 digits of your postcode." end if end if showOrderOptions = 1 '------------------------------------- ' Get the cart with descriptions, etc. '------------------------------------- noItems = "There are currently no products selected.
Please return to the Products and Ordering page to select products for your order.

" 'updated to 7 because the free product 'PK_TB_2' is automatically added to the cart if another product is added. if Len(session("cartArray")) > 1 then showOrderOptions = 1 else showOrderOptions = 0 end if package = session("package") response.Write("") set conn = nothing set cmd = nothing set rs = nothing %> Exampro - Order Exampro today
exampro logo

Order today

Sign up by placing your order below, and we will email a username and password to you. You can order additional users after confirming which package(s) you want. To order by post or fax, print and complete the following pdf order form.

Print order form

1. Select packages: click on a subject below

Click the icon to see the years covered in each package, as these may vary.
All Online Packages provide an annual licence for three simultaneous users per subject valid from the date of purchase. You can order additional users on the next page. Exampro subscriptions include automatic updates at no extra cost: latest content and spec related changes. *VAT will be added to all orders at the current rate. **20% discount cannot be used in conjunction with any other offer.
<% = packagerows %>
Testbase and Exampro products




<% if showOrderOptions = 1 then %>

2. Your details


a) UK centres: enter your postcode  
  <% = SearchResult2 %><% = SearchResult3 %>
b) International institutions or if the search did not find your centre: click to enter your details
<% = SearchResult %>
<% end if %>
<% set conn = nothing set cmd = nothing set rs = nothing %>