<%
	
	kidid = request("kidName")
	nNewHrs = request("hourallowed")
	Gmtime = request("gmtTime")

	if (request("Schedule") = "Daily") then
		schtype = "D"
	elseif (request("Schedule") = "Weekly") then
		schtype = "W"
	end if

	strSchedule = nNewHrs &""&schtype 
	
	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
	rs.Open "SELECT schedule From Kidonlinetime where Kidid ='"& kidid &"'",cn

	if(rs.recordcount = 1) then
		nOldHrs = left(rs("schedule"),len(rs("schedule"))-1)
		if right(rs("schedule"),1) = schtype And nOldHrs =  nNewHrs then
			str1 = "UPDATE KidOnlineTime SET Schedule =  '"&strSchedule&"' ,GMT = '"&Gmtime&"' ,TimeLeft = "& 60 * request("hourallowed")&  "Where kidid = '" &kidid&"'" 
		else
			str1 = "update kidonlinetime set Schedule =  '"&strSchedule&"' , mon = 'Always', tue = 'Always', wed = 'Always',thu = 'Always' ,fri = 'Always', sat = 'Always',sun = 'Always' ,GMT = '"&Gmtime&"' ,TimeLeft = " & 60 * request("hourallowed")&"where kidid = '" &kidid&"' "
		end if
	else
		ntime=60 * request("hourallowed")
		str1 = "insert into kidonlinetime (kidid,Schedule,mon,tue,wed,thu,fri,sat,sun,GMT,TimeLeft) values( '"&kidid&"','"&strSchedule&"','Always','Always','Always','Always','Always','Always','Always','"&Gmtime&"',"&ntime&")"
	end if

	cn.Execute str1
	rs.close()
	cn.close()
	Response.redirect "ScheduleManager.asp"

%>