<% response.buffer = true IF (checkPermission("parents")="FAILED") THEN response.write("You do not have permission to view this page") response.end END IF StrError="None" cID=sanitizeRequest("view","querystring") Function displayContent(str_str) IF str_str <> "" AND Not(IsNull(str_str)) THEN str_str=replace(str_str,chr(13),"
") 'str_str=replace(str_str,chr(10),"
") str_str=replace(str_str,"&39","'") str_str=replace(str_str,"-euro-","€") str_str=replace(str_str,"-pound-","£") str_str=replace(str_str,"-percent-","%") displayContent = str_str ELSE displayContent = "" Exit Function END IF End Function IF cID <> "" AND IsNumeric(cID) THEN 'check for any updates IF REQUEST("action")<>"" THEN var_act = sanitizeRequest("action","querystring") SELECT CASE var_act case "delete_acc": dbCBK.Execute("DELETE FROM cbk_parents WHERE `parentID`='"&cID&"' AND `schoolID`='"&str_u_id&"' limit 1") response.redirect("/schools/control-panel/?go=parents¬ify=Parent+account+deleted+sucessfully&nact=success") END SELECT END IF bSQL = "SELECT `parentID`, `name`, `pupilROLEIDS`, `email`, `acpwd`, `phone`, `mobile`, `address1`, `address2`, `address3`, `countystate`, `postcode`, `country`, `signupDATE`, `origin_source`, `acc_type`, `business_accountID`, `cust_notes` from cbk_parents WHERE `parentID`='"&cID&"' AND `schoolID`='"&str_u_id&"' limit 1" SET rsB = dbCBK.Execute(bSQL) IF rsB.EOF THEN StrError="Parent data could not be found" END IF DO WHILE NOT rsB.EOF parentID=rsB("parentID") name=rsB("name") pupilROLEIDS=rsB("pupilROLEIDS") email=rsB("email") acpwd=rsB("acpwd") phone=rsB("phone") mobile=rsB("mobile") address1=rsB("address1") address2=rsB("address2") address3=rsB("address3") countystate=rsB("countystate") postcode=rsB("postcode") country=rsB("country") signupDATE=rsB("signupDATE") origin_source=rsB("origin_source") acc_type=rsB("acc_type") business_accountID=rsB("business_accountID") customerNOTES=rsB("cust_notes") rsB.MoveNext loop rsB.Close SET rsB = Nothing ELSE StrError="Parent data invalid" END IF Function fetchSchoolName(aID, norl) IF aID = "0" THEN fbRET="No School Assigned" fetchSchoolName=fbRET ELSEIF aID <> "" AND IsNumeric(aID) THEN SET rsfbN = dbCBK.Execute("SELECT `schoolname` from cbk_schools WHERE `schoolID`='"&aID&"' limit 1") IF rsfbN.EOF THEN fbRET="School not found.." END IF DO WHILE NOT rsfbN.EOF IF norl="n" THEN fbRET=rsfbN("schoolname") ELSE fbRET="" & rsfbN("schoolname") & "" END IF rsfbN.MoveNext loop rsfbN.Close SET rsfbN = Nothing fetchSchoolName=fbRET ELSE Exit Function END IF End Function Function fetchPupilByID(pID) IF pID = "0" THEN fpRET="No Pupil Assigned" fetchPupil=fpRET ELSEIF pID <> "" AND IsNumeric(pID) THEN SET rsfbPID = dbCBK.Execute("SELECT cbk_pupils.pupilID As pupilID, cbk_pupils.roleID As roleID, cbk_pupils.name As name, cbk_schools.schoolname As schoolname FROM cbk_pupils LEFT JOIN cbk_schools ON cbk_pupils.schoolID = cbk_schools.schoolID WHERE cbk_pupils.pupilID='"&pID&"' limit 1") IF rsfbPID.EOF THEN fpRET="Pupil not found.." END IF DO WHILE NOT rsfbPID.EOF fpRET="▸ " & rsfbPID("roleID") & " (" & rsfbPID("name") & " - " & rsfbPID("schoolname") & ")" rsfbPID.MoveNext loop rsfbPID.Close SET rsfbPID = Nothing fetchPupilByID=fpRET ELSE Exit Function END IF End Function IF StrError <> "None" THEN 'print the errors %>
<%=StrError%>
<%ELSE%>

View Parent Details

Acc ID: <%=parentID%>

Quick Contact

Name: <%=PCase(name)%>
<%IF phone<>"" THEN%> <%ELSE%> <%END IF%>

Tools

Manage Parent
<% str_fp=request("fp") IF str_fp <> "" AND IsNumeric(str_fp) THEN %>

◀ Return to Pupil View

<%end if%>
Parent Details
Name <%=PCase(name)%>
Contact # <%IF NOT(phone <> "") AND NOT(mobile <> "") THEN%>-<%END IF%> <%IF phone <> "" THEN response.write("" & "tel: " & phone & "")%> <%IF mobile <> "" THEN response.write("" & "mob: " & mobile & "")%>
Email <%IF email <> "" THEN%><%=email%><%ELSE%>-<%END IF%>
Address
<%=address1%>, <%=address2%>
<%=address3%>
<%=countystate%>
<%=postcode%>
<%IF country="GB" THEN response.write("UK") ELSE response.write(country) END IF%>
Portal Login Details
School ID <%=str_u_id%>
Email <%=email%>
Password ************
Pupil / Child Details
  <% IF pupilROLEIDS <> "" THEN str_pids=split(pupilROLEIDS,"||") for each x in str_pids response.write(fetchPupilByID(x) & "
") next ELSE response.write("none assigned") END IF %>
Additional Information
Signup Date <%=formatDateTime(signupDATE,vblongdate)%>
Notes (*office use only)
<%IF customerNOTES <> "" THEN%><%=displayContent(customerNOTES)%><%ELSE%>none<%END IF%>
<%END IF%>