<%
' Create an object of ActiveX
set objUserSettings  = Server.CreateObject("KIDDB.KidDBControlCtrl.1")
if objUserSettings is nothing then 
	Response.Clear
	Response.Write "failed"
	Response.end
end if

dim KidId
KidId = ""
Kidid = "alex_bob" 
' Declare the variables for Kid Rating
dim	LanVal
dim LanCon 
dim SexNVal 
dim	SNCon 
dim VAni 
dim VChar 
dim	VHum 
dim VCon 
dim Chat 
dim Email 
dim ID 
dim	KidGuide 
dim retValue 
dim BitArray(64) 

' Declare the variables for other fields in kid table
dim Pwd
dim ConPwd
dim HashPwd
dim Guide
dim Age
dim Gender
dim ParentID
dim Ports
dim Others
' Function called to retrieve user rating values. The parameters passed to this function are 
' out parameters except for the first one which is kidID. After this function
' call the value for LanVal can be retrieved from the second out paramter LanVal
' and similarly for the ratings.
' retValue only indicates if the function was successful or not   
dim PortsnServices
function GetKid(KidID)
retValue = objUserSettings.GetUserSettings(KidID, LanVal, LanCon ,SexNVal,SNCon,VHum,VAni,VChar,VCon,Chat,Email,ID, KidGuide, BitArray, PortsnServices)
end function
%>