<% IF (checkPermission("reports")="FAILED") THEN response.write("You do not have permission to view this page") response.end END IF Function Qpad(tval) IF len(tval)=1 THEN Qpad="0"&tval ELSE Qpad=tval END IF End Function StrError="None" act=sanitizeRequest("a","querystring") schoolID=sanitizeRequest("schoolID","querystring") IF schoolID <> "" THEN IF IsNumeric(schoolID) THEN 'ok ELSEIF schoolID="all" THEN 'ok ELSE StrError="school ID Appears Invalid" END IF END IF routeID=sanitizeRequest("routeID","querystring") IF routeID <> "" THEN IF IsNumeric(routeID) THEN 'ok ELSEIF routeID="all" THEN 'ok ELSE StrError="route ID Appears Invalid" END IF END IF %> <%IF StrError <> "None" THEN%> <%=StrError%> <%ELSE%> <% rdSQL="select routeID, routename, driverID, pupilIDS from cbk_routes WHERE pupilIDS <> '' AND pupilIDS <> 'none' AND" IF routeID <> "" AND routeID <> "all" THEN rdSQL=rdSQL&" routeID='"&routeID&"'" ELSE rdSQL=rdSQL&" routeID > '0'" END IF IF schoolID <> "" AND schoolID <> "all" THEN rdSQL=rdSQL&" AND schoolID='"&schoolID&"'" END IF rdSQL=rdSQL&" order by routeID asc limit 5000" 'RESPONSE.WRITE(rdSQL) SET rsRD=dbCBK.Execute(rdSQL) IF rsRD.EOF THEN 'no data found StrData="None" END IF %> <%IF StrData <> "None" THEN%><%END IF%>

CURRENT TEST DATA

<%IF StrData="None" THEN%> <%ELSE%> <%END IF%> <% rowN=1 DO WHILE NOT rsRD.EOF t_rid=rsRD("routeID") t_rnm=rsRD("routename") t_did=rsRD("driverID") t_pl=rsRD("pupilIDS") %> > <% IF t_did <> "0" THEN SET rsDrvSTATUS=dbCBK.Execute("SELECT driverNAME, healthtestT, healthtestDATE, healthtestRESULT, healthtestBARCODE, healthtestNEXTDATEDUE from cbk_drivers WHERE driverID='"&t_did&"' limit 1") DO WHILE NOT rsDrvSTATUS.EOF t_dnm=rsDrvSTATUS("driverNAME") t_dltstd=rsDrvSTATUS("healthtestDATE") t_dltrslt=rsDrvSTATUS("healthtestRESULT") rsDrvSTATUS.MoveNext loop rsDrvSTATUS.Close SET rsDrvSTATUS=Nothing %> > <%ELSE%> > <%END IF%> <% IF t_pl <> "" AND t_pl <> "none" THEN crl=split(t_pl,"||") for each i in crl IF i <> "" AND IsNumeric(i) THEN strSQL = "SELECT pupilID, name, healthtestT, healthtestDATE, healthtestRESULT, healthtestBARCODE, healthtestNEXTDATEDUE FROM cbk_pupils WHERE pupilID='"&i&"' order by name asc limit 1" SET rsB=dbCBK.Execute(strSQL) %> <% DO WHILE NOT rsB.EOF t_pid=rsB("pupilID") %> > <% rsB.MoveNext loop rsB.Close SET rsB=Nothing END IF next END IF rowN=rowN+1 rsRD.MoveNext loop rsRD.Close SET rsRD=Nothing %>

No data found for selected route.
Route Name Test Type Test Date Test Result Next Test Due
Route Name: <%=t_rnm%> [ID#<%=t_rid%>]
Summary Driver Name: <%=t_dnm%> [ID#<%=t_did%>]
Driver Tested: <%IF t_dltstd <> "" THEN response.write(formatDateTime(t_dltstd,vblongdate)) ELSE response.write("-") END IF%>
Test Result: "><%IF t_dltrslt <> "" THEN response.write(t_dltrslt) ELSE response.write("-") END IF%>
Summary Driver Name: None Assigned
Driver Tested: n/a
Test Result: n/a
<%=t_rid%> <%=rsB("name")%> <%IF rsB("healthtestT") <> "" THEN response.write(rsB("healthtestT")) ELSE response.write("-") END IF%> <%IF rsB("healthtestDATE") <> "" THEN response.write(formatDateTime(rsB("healthtestDATE"),vblongdate)) ELSE response.write("-") END IF%> <%IF rsB("healthtestRESULT") <> "" THEN response.write(rsB("healthtestRESULT")) ELSE response.write("-") END IF%> <%IF rsB("healthtestBARCODE") <> "" THEN response.write("test no: " & rsB("healthtestBARCODE")&"") END IF%> <%IF rsB("healthtestNEXTDATEDUE") <> "" THEN response.write(formatDateTime(rsB("healthtestNEXTDATEDUE"),vblongdate)) ELSE response.write("-") END IF%>
<%END IF%>