<%
' 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
KidID = session("KidID")
retVal = KidControl.GetKidData(KidID)
select case request("rest")
	Case "y"
	KidControl.LanVal = "0"
	KidControl.LanCon = "0"
	KidControl.SNVal = "0"
	KidControl.SNCon = "0"
	KidControl.VHum = "0"
	KidControl.VAni = "0"
	KidControl.VCHar = "0"
	KidControl.VCon = "0"
	kidControl.Ports = "42,47,53,67,68,135,137,138,139,1723,5190,7000,7900,11523"
	kidcontrol.Email =  "0"
	kidcontrol.IM = "0"
	kidcontrol.Chat = "0"
	kidcontrol.KidGuide = "0"
	KidControl.BitArray = "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
	Case "g"
	KidControl.LanVal = "0"
	KidControl.LanCon = "0"
	KidControl.SNVal = "0"
	KidControl.SNCon = "0"
	KidControl.VHum = "0"
	KidControl.VAni = "0"
	KidControl.VCHar = "0"
	KidControl.VCon = "0"
	kidControl.Ports = "42,47,53,67,68,135,137,138,139,1723,5190,7000,7900,11523"
	kidcontrol.Email =  "0"
	kidcontrol.IM = "0"
	kidcontrol.Chat = "0"
	kidcontrol.KidGuide = "0"
	KidControl.BitArray = "0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
	Case "pg"
	KidControl.LanVal =  "1"
	KidControl.LanCon = "0"
	KidControl.SNVal = "0"
	KidControl.SNCon = "7"
	KidControl.VHum = "0"
	KidControl.VAni = "0"
	KidControl.VCHar = "2"
	KidControl.VCon = "15"
	kidControl.Ports = "42,47,53,67,68,135,137,138,139,1723,5190,7000,7900,11523"
	kidcontrol.Email =  "1"
	kidcontrol.IM = "0"
	kidcontrol.Chat = "1"
	kidcontrol.KidGuide = "0"
	KidControl.BitArray = "0,0,0,1,0,0,1,0,0,0,0,1,0,0,1,1,1,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
	Case "t"
	KidControl.LanVal = "1"
	KidControl.LanCon = "7"
	KidControl.SNVal = "1"
	KidControl.SNCon = "7"
	KidControl.VHum = "1"
	KidControl.VAni = "1"
	KidControl.VCHar = "2"
	KidControl.VCon = "15"
	kidControl.Ports = "42,47,53,67,68,135,137,138,139,1723,5190,7000,7900,11523"
	kidcontrol.Email =  "2"
	kidcontrol.IM = "3"
	kidcontrol.Chat = "2"
	kidcontrol.KidGuide = "0"
	KidControl.BitArray = "0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,1,1,1,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
end select
'Set any values that have changed
setretval = KidControl.SetKidData
Response.Redirect "edit_kid6a.asp"
%>