Teachers and Librarians Registration

<% function makeSimpleOptionList(byVal myTwoFieldRS, mySelectedValue) myOptionListString = "" mySelectedValue = cint(mySelectedValue) do while not myTwoFieldRS.EOF IDField = myTwoFieldRS(0).Value TextField = myTwoFieldRS(1).Value if mySelectedValue = IDField then myOptionListString = myOptionListString & "" & vbCRLF else myOptionListString = myOptionListString & "" & vbCRLF end if myTwoFieldRS.MoveNext loop makeSimpleOptionList = myOptionListString end function Select Case request.querystring("action") Case "post" %>

<% sSQL="" sSQL=sSQL & "INSERT INTO tbShadowingAccount " sSQL=sSQL & "(Title,FirstName,Surname,JobTitle,GroupName,Address1,Address2,Town,County,Postcode,Region,Country,Tel,Email,HowHear,NoInGroup,Carn,Green,GroupType,LibraryType,LibraryTypeOther,SchoolInfants,SchoolPrimary,SchoolMiddle,SchoolSecondary,SchoolState,SchoolIndependent,SchoolMixed,SchoolBoys,SchoolGirls,Roll,Urban,Rural,MixedComm,EAZ,Year1,Year2,Year3,Year4,Year5,Year6,Year7,Year8,Year9,Year10,Year11,Year12,sWhere,UseICT,UseCKGWeb,UseOwnWeb,UseVideo,UseEmail,DistBoys,DistGirls,DistAdults,DistSN,DistGifted,DistOther,LinksBookshop,LinksSLS,LinksLibrary,LinksFeeder,LinksLinkedSchools,LinksOtherSchools,LinksSponsor,LinksOther,ActivitiesDrama,ActivitiesAuthor,ActivitiesArt,ActivitiesVideo,ActivitiesPaired,ActivitiesNewsletter,ActivitiesForum,ActivitiesOther,Plans,Signup,DateStamp,HomePage,IsLive,sUserName,sPassword,IsCILIPMember,OptOut) " sSQL=sSQL & "VALUES(" sSQL=sSQL & "'" & replace(request.form("Title"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("First Name"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Surname"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Job Title"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Shadowing Group Name"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Address"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Address2"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Address3"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Address4"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Postcode"),"'","''") & "'," 'sSQL=sSQL & "'" & Left(replace(request.form("Region"),"'","''"), InStr(replace(request.form("Region"),"'","''"), ".") - 1) & "'," sSQL=sSQL & request.form("Region") & "," sSQL=sSQL & "'" & replace(request.form("Country"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Telephone"),"'","''") & "'," 'sSQL=sSQL & "'" & replace(request.form("Fax"),"'","''") & "'," sSQL=sSQL & "'" & request.form("Email") & "'," sSQL=sSQL & "'" & replace(request.form("HowDidYouHear"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("Number In Shadowing Group"),"'","''") & "'," SELECT CASE request.form("Which Medal Are You Shadowing") CASE "Carnegie Medal" sSQL=sSQL & "'Y',''," CASE "Kate Greenaway Medal" sSQL=sSQL & "'','Y'," CASE "Both" sSQL=sSQL & "'Y','Y'," CASE ELSE sSQL=sSQL & "'',''," END SELECT If request.form("Type of Group")="Other" Then sSQL=sSQL & "'Other (" & replace(request.form("TypeOther"),"'","''") & ")'," Else sSQL=sSQL & "'" & request.form("Type of Group") & "'," End If sSQL=sSQL & "'" & replace(request.form("txtLibraryType"),"'","''") & "'," sSQL=sSQL & "'" & replace(request.form("txtLibraryTypeOther"),"'","''") & "'," sSQL=sSQL & "'" & request.form("chkSchoolFirst") & "'," sSQL=sSQL & "'" & request.form("chkSchoolPrimary") & "'," sSQL=sSQL & "'" & request.form("chkSchoolMiddle") & "'," sSQL=sSQL & "'" & request.form("chkSchoolSecondary") & "'," sSQL=sSQL & "'" & request.form("chkSchoolState") & "'," sSQL=sSQL & "'" & request.form("chkSchoolIndependent") & "'," sSQL=sSQL & "'" & request.form("chkSchoolMixed") & "'," sSQL=sSQL & "'" & request.form("chkSchoolBoys") & "'," sSQL=sSQL & "'" & request.form("chkSchoolGirls") & "'," sSQL=sSQL & "'" & replace(request.form("txtNoOnRoll"),"'","''") & "'," sSQL=sSQL & "'" & request.form("chkCatchmentUrban") & "'," sSQL=sSQL & "'" & request.form("chkCatchmentRural") & "'," sSQL=sSQL & "'" & request.form("chkCatchmentMixedComm") & "'," sSQL=sSQL & "'" & request.form("chkCatchmentEAZ") & "'," sSQL=sSQL & "'" & request.form("chkYear1") & "'," sSQL=sSQL & "'" & request.form("chkYear2") & "'," sSQL=sSQL & "'" & request.form("chkYear3") & "'," sSQL=sSQL & "'" & request.form("chkYear4") & "'," sSQL=sSQL & "'" & request.form("chkYear5") & "'," sSQL=sSQL & "'" & request.form("chkYear6") & "'," sSQL=sSQL & "'" & request.form("chkYear7") & "'," sSQL=sSQL & "'" & request.form("chkYear8") & "'," sSQL=sSQL & "'" & request.form("chkYear9") & "'," sSQL=sSQL & "'" & request.form("chkYear10") & "'," sSQL=sSQL & "'" & request.form("chkYear11") & "'," sSQL=sSQL & "'" & request.form("chkYear12") & "'," sSQL=sSQL & "'" & request.form("radWhere") & "'," sSQL=sSQL & "'" & request.form("chkUseICT") & "'," sSQL=sSQL & "'" & request.form("chkUseReviews") & "'," sSQL=sSQL & "'" & request.form("chkUseOwnSite") & "'," sSQL=sSQL & "'" & request.form("chkUseVideoConferencing") & "'," sSQL=sSQL & "'" & request.form("chkUseEmails") & "'," sSQL=sSQL & "'" & request.form("chkDistinguishingBoys") & "'," sSQL=sSQL & "'" & request.form("chkDistinguishingGirls") & "'," sSQL=sSQL & "'" & request.form("chkDistinguishingAdults") & "'," sSQL=sSQL & "'" & request.form("chkDistinguishingSpecialNeeds") & "'," sSQL=sSQL & "'" & request.form("chkDistinguishingGifted") & "'," If request.form("chkDistinguishingOther")="Y" Then sSQL=sSQL & "'" & replace(request.form("txtDistinguishingOther"),"'","''") & "'," Else sSQL=sSQL & "''," End If sSQL=sSQL & "'" & request.form("chkLinksBookshop") & "'," sSQL=sSQL & "'" & request.form("chkLinksSchools") & "'," sSQL=sSQL & "'" & request.form("chkLinksPublicLibrary") & "'," sSQL=sSQL & "'" & request.form("chkLinksFeederSchools") & "'," sSQL=sSQL & "'" & request.form("chkLinksLinkedSchools") & "'," sSQL=sSQL & "'" & request.form("chkLinksOtherSchools") & "'," sSQL=sSQL & "'" & request.form("chkLinksSponsors") & "'," If request.form("chkLinksOther")="Y" Then sSQL=sSQL & "'" & replace(request.form("txtLinksOther"),"'","''") & "'," Else sSQL=sSQL & "''," End If sSQL=sSQL & "'" & request.form("chkActivities") & "'," sSQL=sSQL & "'" & request.form("chkActivitiesAuthorVisit") & "'," sSQL=sSQL & "'" & request.form("chkActivitiesArtClass") & "'," sSQL=sSQL & "'" & request.form("chkActivitiesVideo") & "'," sSQL=sSQL & "'" & request.form("chkActivitiesPairedReading") & "'," sSQL=sSQL & "'" & request.form("chkActivitiesNewsletter") & "'," sSQL=sSQL & "'" & request.form("chkActivitiesForum") & "'," If request.form("chkActivitiesOther")="Y" Then sSQL=sSQL & "'" & replace(request.form("txtActivitiesOther"),"'","''") & "'," Else sSQL=sSQL & "''," End If sSQL=sSQL & "'" & replace(request.form("txtPlans"),"'","''") & "'," 'sSQL=sSQL & "'" & request.form("radCeremony") & "'," sSQL=sSQL & "'Web Form'," sSQL=sSQL & "'" & Now() & "'," sSQL=sSQL & "'" & replace(request.form("txtHomePage"),"'","''") & "'," sSQL=sSQL & "'N'," sSQL=sSQL & "'" & replace(request.form("Surname"),"'","''") & "'," sSQL=sSQL & "'" & lcase(left(replace(replace(request.form("Shadowing Group Name")," ",""),".",""),4)) & RandomPassword() & "'," sSQL=sSQL & "'" & request.form("IsCILIPMember") & "'," If request.form("chkOptOut")="N" Then sSQL=sSQL & "'')" Else sSQL=sSQL & "'Y')" End If ExecSQL sSQL %>

Thank you for registering!

Your registration won't go live on the website until we have double-checked it. This usually takes between 1 and 5 days.

When it has been approved we will send you a confirmation email with further details, including a username and password, which will allow you to manage your group homepage.

If you register during the active period (March - July) you will also receive a confirmation letter through the post.

If you have any concerns about your registration contact us. Please don't register again as this can cause problems when your group comes to submit reviews to the site.

We hope you enjoy being part of the story.

<% Case Else %>

By registering for the shadowing scheme you will receive the following:

A dedicated home page on this website for your group, which will display your book reviews of the shortlisted titles, a photograph and group description.
At least two postal mailings from us announcing the shortlist (24 April) and the winners (25 June)
A publicity pack including posters, stickers and bookmarks featuring the shortlisted titles

Please complete the form below to register a new group. Registration is free, you can register at any time and once you are registered you won't need to register again each year.

Has your school or library taken part before? If so please don't register again, email ckg@cilip.org.uk or call us on 020 7255 0650 and we can update your group details.

More than one registration for the same school or library can lead to problems when you start to submit reviews. For the same reason we can only accept one registration per group. If you have more than one group at the same address i.e. one for Carnegie and one for Greenaway, please make this clear in the group name.

Read our Privacy Policy

Please complete this form very carefully in upper and lower case as appropriate.

<% RegionSQLString = _ "SELECT ID, Region "&_ "FROM tbRegion ORDER BY ID;" set RegionRS = GetResult(RegionSQLString) RegionOptionListString = makeSimpleOptionList(RegionRS, 0) RegionRS.close set RegionRS = nothing %>

Title	*
First Name	*
Surname	*
Job Title
Are you a CILIP member?	Yes / No
Shadowing Group (i.e. name of school, or public library, or home-educated group etc)	*
Address	* *
Postcode	*
Region	(Select from the drop down list)
Country (If not UK)
Telephone	*
Email	*
How did you hear about the CKG Shadowing project?
Type of Group	School College Library Home Educated Other
Number In Shadowing Group	*
Which Medal Are You Shadowing?	Carnegie Medal Kate Greenaway Medal Both

For Libraries:
Type of Group:	Reading Group Homework Club/Study Support Family Reading Group Other

For Schools: (For each question, please select all the categories that apply)
Type of School	First School/Infants Primary School/Junior Middle School Secondary State School Independent Mixed Boys Girls
No. On Roll
Catchment	Mainly Urban Mainly Rural Mixed community Education Achievement Zone
Which Year Group(s)?	Year 1 Year 2 Year 3 Year 4 Year 5 Year 6 Year 7 Year 8 Year 9 Year 10 Year 11 Year 12
Where Are Meetings Being Held?	Library Reading Group - Established Library Reading Group - New In Class

For All Groups:
We are greatly interested in all the groups taking part in the CKG shadowing scheme; we like to know what kinds of young people are involved, and what kinds of things they're doing as part of their projects. Please take a moment to run through these lists and select all the categories that apply to your group. Use of ICT Sending/reading reviews through CKG Shadowing web site Own Web site Video conferencing Exchanging e-mails with other groups
Any distinguishing features…	Boys only Girls only Including adults (e.g. other interested teachers/librarians/parents) Special Needs Gifted and talented Other
Links - any partners?	Local bookshop Schools Library Service Public Library Feeder schools Linked secondary schools Other schools Sponsors Other
Activities - are you including any of these in your project?	Drama Author visit/session Art class Making a video Paired reading/mentoring Newsletter/magazine Forum with other schools Other, e.g. special events
The press are always looking for interesting stories, and we hear of many wonderful CKG shadowing projects each year. Please use this box to tell us anything else about your shadowing group and your plans that you feel we'd like to know!
If your shadowing group has a home page or website enter the full URL here:
CILIP would like to send you updates and information on other awards, events and related matters of professional interest. If you would like to receive this information via email please check this box.

<% End Select %>

<% '*************************************************** Private Function RandomPassword() Dim IntLow Dim IntHigh IntLow=1 IntHigh=9 For Counter=1 to 4 randomize timer lRnd = Int((IntHigh - IntLow + 1) * Rnd + 1) strRandom = strRandom & "" & lRnd Next RandomPassword=trim(strRandom) End Function %>