<% Response.Write("test") ' Create an object of ActiveX set objUserSettings = Server.CreateObject("KIDDB.KidDBControlCtrl.1") if objUserSettings is nothing then Response.Write("Create object failed") 'Response.Clear 'Response.end end if Response.Write("Success") 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 strKidId = "rescat_test" retValue = objUserSettings.NewKidData(strKidId,"nish","0xasfdfd","bowser") if (retValue <> true) then objUserSettings = nothing Response.Clear Response.End else Response.Write("
NewKid Created") end if Response.Write("
Before Kiddata") 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 ' Print out the values of the usersetting that we have got from the function Response.Write("
KidId = " & strKidId) Response.Write("
Password = " & strPwd ) 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_byteID) Response.Write("
KidGuide = " & m_byteKidGuide) Response.Write("
Kid Settings:
") Response.Write("
" & m_BitArray) Response.Write("
Ports = " & strPorts ) Response.Write(CRLF) %>