<%@ Language=VBScript %>
<%
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")&"'",cn
rs2.Open "Select Kidid from Kids where parentID = '"&session("id")&"'",cn2
if(rs.EOF)then
str = "No Kid Present"
response.redirect "main.asp?info=" &str
end if
Dim arrayDays(6,8)
'ReDim arayDays(rs2.RecordCount,8)
Dim arrayTemp
if request("HourField") = "Empty" then
response.end
End if
%>
Daily Weekly Hrs