LibraryNOW Student Cards

LibraryNOW Student and Educator Cards - Statistics

Please Note:

65,100 student records were loaded November 11th, 2016

Circulation statistics from October 29th, 2016 moving forward

Upgraded Cards for 2016-4 also includes 50+ existing full service accounts for students included in LibraryNOW program

Seton Catholic School library records were added in September 2018

St. Joseph's Academy library records were added beginning on May 1, 2019 when 327 digital records

<% dim chart2 set chart2 = new GoogleCharts chart2.type = CHART_LINE function lastQuarter(d) theYear = year(d) theQuarter = DatePart("q",d) theNewQuarter = theQuarter -1 if theNewQuarter = 0 then theNewQuarter = 4 theYear = theYear -1 end if lastQuarter = theYear&"-"&theNewQuarter end function function FirstDayOfQuarter(d) theYear = year(d) theQuarter = DatePart("q",d) FirstDayOfQuarter = 0 if theQuarter = 1 then FirstDayOfQuarter = "1/1/2020" End If if theQuarter = 2 then FirstDayOfQuarter = "4/1/2020" End If if theQuarter = 3 then FirstDayOfQuarter = "7/1/2020" End If if theQuarter = 4 then FirstDayOfQuarter = "10/1/2020" End If End Function chart2.title = "Student Accounts Upgraded as of " & FirstDayOfQuarter(Now()) //chart2.title = "LibraryNOW Student Cards - Upgrades - " & lastQuarter(Now()) chart2.addColumn CTYPE_STRING, "Quarter" chart2.addColumn CTYPE_NUMBER, "MPS Upgrades" chart2.addColumn CTYPE_NUMBER, "Seton Upgrades" chart2.addColumn CTYPE_NUMBER, "SJA Upgrades" chart2.addColumn CTYPE_NUMBER, "Veritas Upgrades" dim rs2 set rs2 = createObject("ADODB.Recordset") rs2.open "Select quarter,mps,seton,sja,veritas FROM connected_upgrades", MM_MPL_STRING, 0, 1 chart2.loadArray rs2.getRows() chart2.draw set rs2 = nothing Set upg_cmd = Server.CreateObject("ADODB.Command") upg_cmd.ActiveConnection = MM_MPL_STRING upg_cmd.CommandText = "SELECT * FROM connected_upgrades" upg_cmd.Prepared = true Set upg = upg_cmd.Execute Response.Write"

" While NOT upg.EOF Response.Write"" upg.MoveNext() Wend Response.Write"

Quarter	MPS Upgrades	Seton Upgrades	St. Joseph Academy Upgrades	Veritas Upgrades	Total Cards	Upgraded Cards
" & upg.Fields("quarter") & "	" & upg.Fields("mps") & "	" & upg.Fields("seton") & "	" & upg.Fields("sja") & "	" & upg.Fields("veritas") & "	" & upg.Fields("total_cards") & "	" & upg.Fields("upgraded_cards") & "

" upg.Close Set upg = Nothing %> <% dim chart5 set chart5 = new GoogleCharts chart5.type = CHART_PIE chart5.title = "Student Accounts Upgrades By Branch as of " & FirstDayOfQuarter(Now()) //chart5.title = "LibraryNOW Student Cards - Upgrades by Branch - " & lastQuarter(Now()) chart5.addColumn CTYPE_STRING, "Branch" chart5.addColumn CTYPE_NUMBER, "Count" dim rs5 set rs5 = createObject("ADODB.Recordset") rs5.open "Select branch, count FROM upgrades_branch WHERE quarter = CAST(CONCAT(EXTRACT(YEAR from now() - interval 1 quarter),'-',EXTRACT(QUARTER FROM NOW() - INTERVAL 1 quarter)) as CHAR(50))", MM_MPL_STRING, 0, 1 If rs5.EOF then Response.Write"

No data found for Upgrades by Branch, please check later...

" rs5.Close set rs5 = nothing Else chart5.loadArray rs5.getRows() chart5.draw rs5.Close set rs5 = nothing End If Set upgb_cmd = Server.CreateObject("ADODB.Command") upgb_cmd.ActiveConnection = MM_MPL_STRING upgb_cmd.CommandText = "SELECT * FROM upgrades_branch WHERE quarter = CAST(CONCAT(EXTRACT(YEAR from now() - interval 1 quarter),'-',EXTRACT(QUARTER FROM NOW() - INTERVAL 1 quarter)) as CHAR(50))" upgb_cmd.Prepared = true Set upgb = upgb_cmd.Execute Response.Write"

" While NOT upgb.EOF Response.Write"" upgb.MoveNext() Wend Response.Write"

Quarter	Branch	Upgrades
" & upgb.Fields("quarter") & "	" & upgb.Fields("branch") & "	" & upgb.Fields("count") & "

" upgb.Close Set upgb = Nothing %> <% dim chart3 set chart3 = new GoogleCharts chart3.type = CHART_PIE chart3.title = "Blocked Student Accounts as of " & FirstDayOfQuarter(Now()) chart3.addColumn CTYPE_STRING, "Blocks" chart3.addColumn CTYPE_NUMBER, "Count" dim rs3 set rs3 = createObject("ADODB.Recordset") rs3.open "Select b.blocks, b.count from connected_blocks_pie b Where blocks Like 'Upgraded%'", MM_MPL_STRING, 0, 1 chart3.id = 3 ' change id to draw a new chart with the same object chart3.loadArray rs3.getRows() chart3.draw set rs3 = nothing Set bl_cmd = Server.CreateObject("ADODB.Command") bl_cmd.ActiveConnection = MM_MPL_STRING bl_cmd.CommandText = "SELECT * FROM connected_blocks" bl_cmd.Prepared = true Set bl = bl_cmd.Execute Response.Write"

" While NOT bl.EOF Response.Write"" bl.MoveNext() Wend Response.Write"

Quarter	Digital Cards with MBLOCKS	Upgraded Cards with MBLOCKS	Upgraded Cards with Fines > $5	Digital Cards Blocked Total	Upgraded Cards Blocked Total	Upgraded Cards Unblocked Total
" & bl.Fields("quarter") & "	" & bl.Fields("reg_mblocks") & "	" & bl.Fields("upgraded_mblocks") & "	" & bl.Fields("upgraded_fines_over_5") & "	" & bl.Fields("reg_blocked") & "	" & bl.Fields("upgraded_blocked") & "	" & bl.Fields("upgraded_unblocked") & "

" bl.Close Set bl = Nothing %> <% dim chart6 set chart6 = new GoogleCharts chart6.type = CHART_COLUMN chart6.title = "Upgraded and Blocked Student Accounts by School as of " & FirstDayOfQuarter(Now()) chart6.addColumn CTYPE_STRING, "School" chart6.addColumn CTYPE_NUMBER, "Count" dim rs6 set rs6 = createObject("ADODB.Recordset") rs6.open "Select b.school,b.count from blocks_by_school_pie b", MM_MPL_STRING, 0, 1 chart6.id = 6' change id to draw a new chart with the same object chart6.loadArray rs6.getRows() chart6.draw set rs6 = nothing Set bls_cmd = Server.CreateObject("ADODB.Command") bls_cmd.ActiveConnection = MM_MPL_STRING bls_cmd.CommandText = "SELECT * FROM blocks_by_school" bls_cmd.Prepared = true Set bls = bls_cmd.Execute %>

<%For Each fld in bls.Fields%> <%Next%> <% Do Until bls.EOF OutputRow bls.Fields bls.MoveNext Loop %>

<%=Server.HTMLEncode(fld.Name)%>

<%Sub OutputRow(fields)%> <%For Each fld in fields%> <%=Server.HTMLEncode(fld.Value)%> <%Next%> <%End Sub bls.Close Set bls = Nothing %> <% dim chart set chart = new GoogleCharts chart.type = CHART_LINE chart.title = "Student Accounts Activity Per Quarter" chart.addColumn CTYPE_STRING, "Quarter" chart.addColumn CTYPE_NUMBER, "MPS Circ" chart.addColumn CTYPE_NUMBER, "Seton Circ" chart.addColumn CTYPE_NUMBER, "St Joseph Circ" chart.addColumn CTYPE_NUMBER, "Veritas Circ" chart.colors = "['red', 'blue', 'deepskyblue', 'green']" dim rs set rs = createObject("ADODB.Recordset") rs.open "Select c.quarter as quarter,c.MPS,c.Seton,c.St_Joseph,c.Veritas from circtrans_ff_connected c ORDER BY c.quarter ASC", MM_MPL_STRING, 0, 1 chart.loadArray rs.getRows() chart.draw set rs = nothing Set act_cmd = Server.CreateObject("ADODB.Command") act_cmd.ActiveConnection = MM_MPL_STRING act_cmd.CommandText = "Select c.quarter as quarter,c.MPS,c.Seton,c.St_Joseph,c.Veritas from circtrans_ff_connected c ORDER BY quarter ASC;" act_cmd.Prepared = true Set act = act_cmd.Execute %>

<%For Each fld in act.Fields%> <%Next%> <% Do Until act.EOF OutputRow act.Fields act.MoveNext Loop %>

<%=Server.HTMLEncode(fld.Name)%>

<%Sub OutputRow(fields)%> <%For Each fld in fields%> <%=Server.HTMLEncode(fld.Value)%> <%Next%> <%End Sub act.Close Set act = Nothing %> <% dim chart4 set chart4 = new GoogleCharts chart4.type = CHART_LINE chart4.title = "Educator Accounts Upgraded as of " & FirstDayOfQuarter(Now()) //chart4.title = "LibraryNOW Educator Cards - Upgrades - " & lastQuarter(Now()) chart4.addColumn CTYPE_STRING, "Quarter" chart4.addColumn CTYPE_NUMBER, "Upgraded Cards" dim rs4 set rs4 = createObject("ADODB.Recordset") rs4.open "Select quarter,upgraded_cards FROM educator_upgrades", MM_MPL_STRING, 0, 1 If rs4.EOF then Response.Write"

No data found for Educator upgrades, please check later...

" rs4.Close set rs4 = nothing Else chart4.loadArray rs4.getRows() chart4.draw rs4.Close set rs4 = nothing End If Set upge_cmd = Server.CreateObject("ADODB.Command") upge_cmd.ActiveConnection = MM_MPL_STRING upge_cmd.CommandText = "SELECT * FROM educator_upgrades" upge_cmd.Prepared = true Set upge = upge_cmd.Execute Response.Write"

" While NOT upge.EOF Response.Write"" upge.MoveNext() Wend Response.Write"

Quarter	Total Cards	Upgraded Cards
" & upge.Fields("quarter") & "	" & upge.Fields("total_cards") & "	" & upge.Fields("upgraded_cards") & "

" upge.Close Set upge = Nothing %>