<%@ 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=Exception"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "delete from exceptionlist where url like '" & request("url") & "' and kidid like '" & session("id") & "_%'",cn
for x = 1 to Request.Form.Count
Select Case (Request.Form.Key(x))
	case "url"
	Case "submit1"
	case else
	if Request.Form.Item(x) <> "X" then
	sql = "INSERT INTO ExceptionList ([KidId],[URL], [Allowed]) VALUES ('" & Request.Form.Key(x) & "', '" & request("url") & "', '" & Request.Form.Item(x) & "')"
	rs.Open sql,cn
	end if
end select
next
Response.Redirect "webmgr.asp"%>