<% ' Create an object of ActiveX set objUserSettings = Server.CreateObject("KIDDB.KidDBControlCtrl.1") if objUserSettings is nothing then Response.Clear Response.end end if CRLF = Chr(10) dim strKidId dim strPwd dim strHashPwd dim strParentID dim m_byteLanVal dim m_byteLanCon dim m_byteSexNVal dim m_byteSNCon dim m_byteVAni dim m_byteVChar dim m_byteVHum dim m_byteVCon dim m_byteChat dim m_byteEmail dim m_byteIM dim m_byteKidGuide dim m_BitArray dim strPorts dim retValue stop strKidId = "amar_kid2" retValue = objUserSettings.NewKidData(strKidId,"nish","0xasfdfd","amar") if (retValue <> true) then set objUserSettings = nothing Response.Clear Response.End else Response.Write("
NewKid Created") end if retValue = objUserSettings.GetKidData(strKidId) if (retValue <> true) then set objUserSettings = nothing Response.Clear Response.End else Response.Write("
GetKidData Successful") end if strKidId = objUserSettings.KidId strPwd = objUserSettings.KidPwd strHashPwd = objUserSettings.KidHashPwd strParentID = objUserSettings.ParentID m_byteLanVal = objUserSettings.LanVal m_byteLanCon = objUserSettings.LanCon m_byteSexNVal = objUserSettings.SNVal m_byteSNCon = objUserSettings.SNCon m_byteVHum = objUserSettings.VHum m_byteVAni = objUserSettings.VAni m_byteVChar = objUserSettings.VChar m_byteVCon = objUserSettings.VCon m_byteChat = objUserSettings.Chat m_byteEmail = objUserSettings.Email m_byteIM = objUserSettings.IM m_byteKidGuide = objUserSettings.KidGuide m_BitArray = objUserSettings.BitArray strPorts = objUserSettings.Ports 'HardCode the values to set the user ratings objUserSettings.LanVal = "4" objUserSettings.LanCon("3") objUserSettings.SNVal("2") objUserSettings.SNCon("1") objUserSettings.VHum("4") objUserSettings.VAni("3") objUserSettings.VChar("2") objUserSettings.VCon("1") objUserSettings.Chat("4") objUserSettings.Email("3") objUserSettings.IM("2") objUserSettings.KidGuide("1") objUserSettings.BitArray("1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1") 'This function sets the kid ratings. retValue = objUserSettings.SetKidData ' if return value is false then exit if (retValue <> true) then set objUserSettings = nothing Response.Clear Response.End else Response.Write("
SetKidData(...) successful") end if retValue = objUserSettings.GetKidData(strKidId) if (retValue <> true) then set objUserSettings = nothing Response.Clear Response.End else Response.Write("
GetKidData Successful") end if strKidId = objUserSettings.KidId strPwd = objUserSettings.KidPwd strHashPwd = objUserSettings.KidHashPwd strParentID = objUserSettings.ParentID m_byteLanVal = objUserSettings.LanVal m_byteLanCon = objUserSettings.LanCon m_byteSexNVal = objUserSettings.SNVal m_byteSNCon = objUserSettings.SNCon m_byteVHum = objUserSettings.VHum m_byteVAni = objUserSettings.VAni m_byteVChar = objUserSettings.VChar m_byteVCon = objUserSettings.VCon m_byteChat = objUserSettings.Chat m_byteEmail = objUserSettings.Email m_byteIM = objUserSettings.IM m_byteKidGuide = objUserSettings.KidGuide m_BitArray = objUserSettings.BitArray strPorts = objUserSettings.Ports strPwd = "changed" strHashPwd = "ABCDEF" ' Change the user password retValue = objUserSettings.ChangeKidPwd(strKidId,strPwd, strHashPwd) ' if return value is false then exit if (retValue <> true) then set objUserSettings = nothing Response.Clear Response.End else Response.Write("
ChangeKidPwd(...) successful") end if ' Print out the values of the usersetting that we have got from the function Response.Write("KidId = " & strKidId) Response.Write("
Language Value = " & m_byteLanVal ) Response.Write("
Language Context = " & m_byteLanCon) Response.Write("
SexNudity Value = " & m_byteSexNVal) Response.Write("
SexNudity Context = " & m_byteSNCon) Response.Write("
Animal Violence = " & m_byteVAni) Response.Write("
Character Violence = " & m_byteVChar) Response.Write("
Human Violence = " & m_byteVHum ) Response.Write("
Violence Context = " & m_byteVCon ) Response.Write("
Chat = " & m_byteChat) Response.Write("
Email = " & m_byteEmail) Response.Write("
IM = " & m_byteIM) Response.Write("
KidGuide = " & m_byteKidGuide) Response.Write("
Kid Settings:
") Response.Write("
" & m_BitArray) Response.Write("
Ports = " & strPorts ) Response.Write(CRLF) %>