<% set cn = Server.CreateObject("ADODB.Connection") cn.ConnectionTimeout = 6000000 cn.CommandTimeout = 6000000 cn.Open "DSN=kidsnet_Parent;uid=sa;PWD=sgmkj;APP=ASP Script;DATABASE=Kidsnet" Set rs = Server.CreateObject("ADODB.Recordset") rs.cursorlocation=3 rs.cursortype=3 set cn2 = Server.CreateObject("ADODB.Connection") cn2.Open "DSN=kidsnet_Parent;uid=sa;PWD=sgmkj;APP=ASP Script;DATABASE=Kidsnet" Set rs2 = Server.CreateObject("ADODB.Recordset") 'id = session("id") 'sid = session("sid") rs.Open "SELECT a.kidid,b.schedule,b.Mon,b.Tue,b.Wed,b.Thu,b.Fri,b.Sat,b.Sun,b.gmt FROM Kids as a left outer JOIN Kidonlinetime as b ON a.kidid = b.kidid where a.parentid = '"&session("id")&"' and a.kidid = '"&request("KidID")&"'",cn Dim arrayDays(6,8) 'ReDim arayDays(rs2.RecordCount,8) Dim arrayTemp if request("HourField") = "Empty" then response.end End if %>

Here are your Online Time Manager settings For <%=right(request("KidID"),len(request("KidID"))-(instr(1,request("KidID"),"_",1)) )%>. 


Change a setting click on the Modify button next to the day and child specified.
 To delete a setting click on the Delete Button next to the day and child specified.

<% rs.MoveFirst %> <% do while rs.EOF = false for i = 1 to 7 Select Case i Case 1 DaySchedule= rs("Mon") WhichDay = "Monday" Case 2 DaySchedule= rs("Tue") WhichDay = "Tuesday" Case 3 DaySchedule= rs("Wed") WhichDay = "Wednesday" Case 4 DaySchedule= rs("Thu") WhichDay = "Thursday" Case 5 DaySchedule= rs("Fri") WhichDay = "Friday" Case 6 DaySchedule= rs("Sat") WhichDay = "Saturday" Case 7 DaySchedule= rs("Sun") WhichDay = "Sunday" End Select if DaySchedule <> " " then else DaySchedule = "No Schedule" End if nPos = Instr(1,rs("kidid"),"_",1) strKid = right(rs("kidid"),len(rs("kidid"))-nPos) %> <% if DaySchedule = "Always" Then %> <% elseif DaySchedule = "Never" Then %> <% elseif rs("schedule") <> " " then %> <% else %> <% End if %> <% next %> <% rs.MoveNext %> <% loop %>

Day

Time Schedule

Modify

Delete
<%=WhichDay%>

 No Time Restrictions Set

Add Schedule

Add Schedule

Internet Not Allowed

Add Schedule

Add Schedule

<%=DaySchedule%>

&WhichDay=<%=WhichDay%> &HourAllowed=<%=rs("schedule")%>&scheduleTime=<%=DaySchedule%>&CheckForDelete=1 " >Modify

&WhichDay=<%=WhichDay%> &HourAllowed=<%=rs("schedule")%>&scheduleTime=<%=DaySchedule%> " >Delete

No Time Restrictions Set

No Schedule

No Schedule

 

Click to return to the Parent's page.