<%
public MyConnection
public MyCommand
public EndofFile

public sub getDBConnection(sqlString)
	set Myconnection = server.CreateObject("ADODB.Connection")
	set MyCommand = server.CreateObject("ADODB.Command")
	MyConnection.ConnectionString = "Provider=MSDAORA.1;User ID=dedo/dedo;Data Source=cam1;Persist Security Info=False"
	MyConnection.Open 
	MyCommand.ActiveConnection = MyConnection 
	MyCommand.CommandType = 1'4
	MyCommand.CommandText = sqlString
end sub

public function getRecordSet()
	dim MyRecordSet
	dim myRS
	set MyRecordSet = MyConnection.Execute
	myRS = MyRecordSet.getRows
	'set MyRecordSet = server.CreateObject("ADODB.RecordSet")
	'MyRecordSet.CursorType = 2 'adOpenDynamic
	'MyRecordSet.CursorLocation = 3 'adUseClient
	'MyRecordSet.LockType = 3 'adLockOptimistic
	'MyRecordSet.Open MyCommand
	'EndofFile = MyRecordSet.EOF
	'if EndofFile=false then
		'myRS = MyRecordSet.GetRows
	'end if
	'MyRecordSet.Close 
	set MyRecordSet = nothing
	set MyCommand = nothing
	set MyConnection = nothing
	getRecordSet = myRS
end function

public function createXMLTree(rArray)

end function

'sqlText = "classTemp.getrecord"
sqlText = "select xmlgen.getxml('select * from claim_bal') from dual"
call getDBConnection(sqlText)
myArray = getRecordSet()
Response.Write ubound(myArray, 2)
%>