<% IF (checkPermission("customers")="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 IF REQUEST("savesafetydata")="go" THEN StrError="none" ht_pupilID=sanitizeRequest("pupilID","form") ht_type=sanitizeRequest("testT","form") ht_DATE_posted=sanitizeRequest("testDATE","form") IF ht_DATE_posted <> "" AND (IsDate(ht_DATE_posted)) THEN 'ok f=formatDateTime(CDate(ht_DATE_posted),2) 'format for mysql ht_DATE=year(f)&"-"&Qpad(month(f))&"-"&Qpad(day(f))&" 23:59:59" ELSE ht_DATE="" StrError="A valid test date is required" END IF ht_RESULT=sanitizeRequest("testRESULT","form") IF ht_RESULT <> "" THEN 'ok ELSE StrError="The test result is required" END IF ht_CODE=sanitizeRequest("testCODE","form") ht_DATENEXTDUE_posted=sanitizeRequest("testdateNEXTDUE","form") IF ht_DATENEXTDUE_posted <> "" AND (IsDate(ht_DATENEXTDUE_posted)) THEN 'ok t=formatDateTime(CDate(ht_DATENEXTDUE_posted),2) 'format for mysql ht_DATENEXTDUE=year(t)&"-"&Qpad(month(t))&"-"&Qpad(day(t))&" 23:59:59" ht_DATENEXTDUE_SQL=", `healthtestNEXTDATEDUE`='"&ht_DATENEXTDUE&"'" ELSE ht_DATENEXTDUE="" ht_DATENEXTDUE_SQL="" END IF IF StrError <> "none" THEN 'print the errors response.write(StrError) ELSE 'update the safety data aSQL = "UPDATE cbk_pupils " aSQL = aSQL & "SET `healthtestT`='"&ht_type&"', `healthtestDATE`='"&ht_DATE&"',`healthtestRESULT`='"&ht_RESULT&"',`healthtestBARCODE`='"&ht_CODE&"'"&ht_DATENEXTDUE_SQL aSQL = aSQL & " WHERE `pupilID`='"&ht_pupilID&"' AND `schoolID`='"&str_u_id&"' limit 1" dbCBK.Execute(aSQL) 'response.write(aSQL) response.redirect("/parents/control-panel/?go=safety¬ify=Test+details+updated+successfuly&nact=success") END IF END IF %>
err
<%IF request("display")<>"" THEN%> " /> <%END IF%>

Safety / Testing

Here you can manage pupil testing information
Select a pupil below to add test info.

More Information

Tracking data advantages

Having current test data for pupils enables us to track and respond quickly where necessary.

> <% IF str_ass_pupil_list <> "" THEN crl=split(str_ass_pupil_list,"||") str_asql="" rowN=1 for each i in crl IF i <> "" AND IsNumeric(i) THEN strSQL = "SELECT name, healthtestDATE, healthtestRESULT, healthtestBARCODE, healthtestNEXTDATEDUE, pupilID FROM cbk_pupils WHERE pupilID='"&i&"' AND schoolID='"&str_u_id&"' order by name asc limit 1" 'response.write(strSQL) SET rsB=dbCBK.Execute(strSQL) %> <% DO WHILE NOT rsB.EOF t_pid=rsB("pupilID") %> > <% rsB.MoveNext loop rsB.Close SET rsB=Nothing END IF rowN=rowN+1 next ELSE %> <% END IF %>
Name Last Test Date Last Result Next Test Due Action
<%=rsB("name")%> <%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%> Update

There are no pupils associated with your account yet.