<%@ Language=VBScript %> <% ' Connect to ADO Database dim oConn set oConn = Server.CreateObject("ADODB.Connection") oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & Server.MapPath("/dbroot/calendar.mdb") oConn.Open ' Open ADO Recordset dim oRs, strSql if request("sort") = "" then strSql = "Select * From tblAMS_Advanced_Reader Order By authors " else strSql = "Select * From tblAMS_Advanced_Reader Order By " & request("sort") end if Set oRs= Server.CreateObject("ADODB.Recordset") oRs.Open strSql , oConn Function Desc(field) Dim tmp tmp = field & " ASC" If tmp = trim(request("sort")) then Desc = "DESC" else Desc = "ASC" end if End Function %> Sacred Heart Academy - Accelerated Reader

Accelerated Reader



<% On Error Resume Next oRs.MoveFirst Dim bFlag, sGroupName sVendorName = 0 If oRs.EOF Then bFlag = True Else Do While Not oRs.EOF %> <% if oRs("stock") = true then %> <% else %> <% End If %> <% oRs.MoveNext Loop End If ' Close the Recordset oRs.close set oRs = Nothing ' Close the Database oConn.close Set oConn = Nothing %>
Authors Title BL Quiz In Stock?
"> "> "> "> ">
<% = oRs("authors") %> <% = oRs("title") %> <% = oRs("bl") %> <% = oRs("quiz") %>