<%
' Create an object of ActiveX
' Encryption Control
Set encrypt =  Server.CreateObject("ASENCRYPT.AsEncryptCtrl.1")
' Kid Control
set KidControl  = Server.CreateObject("KIDDB.KidDBControlCtrl.1")

' Get Kid Data 
if KidControl is nothing then 
	Response.Clear
	Response.end
end if
if request("kid") <> "" then
	KidID = request("kid")
	session("KidID") = KidID
else
	KidID = session("KidID")
end if
retVal = KidControl.GetKidData(KidID)

'Set Session Variables
session("LanVal")	= KidControl.LanVal
session("LanCon")	= KidControl.LanCon
session("SnVal")	= KidControl.SNVal
session("SnCon")	= KidControl.SNCon
Session("VHum")     = KidControl.VHum 
Session("VAni")     = KidControl.VAni 
Session("VChar")    = KidControl.VChar 
Session("VCon")     = KidControl.VCon 
Session("KidGuide") = KidControl.KidGuide 
Session("BitArray") = KidControl.BitArray
Session("Ports")	= KidControl.Ports
Session("email")	= KidControl.Email
Session("im")		= KidControl.IM
Session("chat")		= KidControl.Chat

'Value functions for displaying Data
'Check all Value Fields
function CheckVal(Item,Value)
	if cint(Session(Item)) = Value then
	CheckVal = "checked"
	end if
end function

' CHeck all Context Fields
function CheckCon(Item,Value)
	' Art = 1
	' Edu = 2
	' Med = 3
	' Spt = 8
	' This would mean that if both Art and Spt were allowed the *Con would return a value of 9 (1 + 8).
	Select case(item)
		Case "Art"
			if Value = 1 or  Value = 3 or  Value = 5 or  Value = 7 or  Value = 9 or  Value = 11 or  Value = 13  or value = 15 then
				CheckCon = "checked"
			end if
		Case "Edu"
			if Value = 2 or  Value = 3 or  Value = 6 or  Value = 7 or  Value = 10 or  Value = 11 or  Value = 14  or value = 15 then
				CheckCon = "checked"
			end if
		Case "Med"
			if Value = 4 or  Value = 5 or  Value = 6 or  Value = 7 or  Value = 12 or  Value = 13 or  Value = 14  or value = 15 then
				CheckCon = "checked"
			end if
		Case "Spt"
			if Value = 8 or  Value = 9 or  Value = 10 or  Value = 11 or  Value = 12 or  Value = 13 or  Value = 14  or value = 15 then
				CheckCon = "checked"
			end if
		Case "All"
			if Value = 7 or value = 15 then 
				CheckCon = "checked"
			end if
	end select
end function

'Check Bits in BitArray
'First Split the Data. Saves on Proccessor time...
ByteCode = split(SESSION("BitArray"),",")
function CheckCat(Item,Value)	
	if cint(ByteCode(cint(Item))) = cint(Value) then
		CheckCat = "checked"
	end if
end function

'Ports are a special Animal
'First Split the Ports. Saves on Proccessor time...
PortList = split(SESSION("ports"),",")
function CheckPort(Value,YN)
	Found = "N"
	for each port in  PortList
		ex = ex & port
		if cint(port) = cint(value) then
		 Found = "Y"
		end if
	next
	if Found ="Y" and YN = "1" then
	Checkport = "checked"
	end if
	if Found ="N" and YN = "0" then
	Checkport = "checked"
	end if
end function

' Set Fields As needed
' Set Val to null
Val = ""
'Passord
if request("Pwd") <> "" then
Kidcontrol.ChangeKidPwd KidId,request("Pwd"),encrypt.Hash(request("Pwd"))
end if
'Language Value
if request("LanVal") <> "" then
	KidControl.LanVal = request("LanVal")
end if
' Language Context
if request("LanCon") <> "" then
	ArCon = split(request("LanCon"),",")
	for each con in ArCon
		 Val = eval(val + trim(Con))
	next
	KidControl.LanCon = Val
end if
'Sex and Nudity Value
if request("SNVal") <> "" then
	KidControl.SNVal = request("SNVal")
end if
'Sex and Nudity Context
if request("SNCon") <> "" then
ArCon = split(request("SNCon"),",")
	for each con in ArCon
		 Val = eval(val + trim(Con))
	next
	KidControl.SNCon = Val
end if
'Violence Human Value
if request("VHum") <> "" then
	KidControl.VHum = request("VHum")
end if
'Violence Animal Value
if request("VAni")  <> "" then
	KidControl.VAni = request("VAni")
end if
'Violence Character Value
if request("VChar") <> "" then
	KidControl.VChar = request("VChar")
end if
'Violence Context
if request("VCon")  <> "" then
ArCon = split(request("VCon"),",")
	for each con in ArCon
		 Val = eval(val + trim(Con))
	next
	KidControl.VCon = Val
end if
'Kid Guide
if request("KidGuide") <> "" then
end if
'Byte Array for ResCat
if request("BitArray1") <> "" then
	NewArray = "0,"
	for x = 1 to 63
		if request("bitarray"&x) = "" then
			if x <> 63 then
				newArray = newarray & "0,"
			else
				newArray = newarray & "0"
			End if
		else
			if x <> 63 then
			newArray = newarray & request("bitarray"&x) & ","
			else
			newArray = newarray & request("bitarray"&x)
			End if
		end if		
	next
	KidControl.BitArray = newArray	
end if
'Ports List
NewPort = "42,47,53,67,68,135,137,138,139,1723,5190,11523"

if request("ftp") <> "" then
	if request("ftp") = 1 then
		newPort = Newport & ",20,21"
		kidControl.Ports = Newport
	else
		kidControl.Ports = Newport
	end if
end if
if request("Napster") <> "" then
	if request("Napster") = 1 then
		newPort = Newport & ",6699,8875,8888"
		kidControl.Ports = Newport
	else
		kidControl.Ports = Newport
	end if
end if
if request("newsgroups") <> "" then
	if request("newsgroups") = 1 then
		newPort = Newport & ",144"
		kidControl.Ports = Newport
	else
		kidControl.Ports = Newport
	end if
end if
if request("telnet") <> "" then
	if request("telnet") = 1 then
		newPort = Newport & ",23"
		kidControl.Ports = Newport		
	else
		kidControl.Ports = Newport
	end if
end if

'Email
if request("email") <> "" then
	kidcontrol.Email = request("email")
	if request("email") = 2 then
		newPort = Newport & ",25,110"
		kidControl.Ports = Newport
	else
		kidControl.Ports = Newport
	end if
end if

' Istant Messangers
if request("IM") <> "" then
	kidcontrol.IM = request("IM")
end if
'Chat
if request("chat") <> "" then
	kidcontrol.Chat = request("Chat")
end if

'Set any values that have changed
setretval = KidControl.SetKidData
%>