ASP - Asp-XML treeview

Que tal a todos!,el problema que tengo es que estoy desarrollando un archivo de ASP donde se forma un XML con un recordset,el problema es que me despliega los datos pero necesito un nivel más antes de ke despliegue los datos

<%
Dim Cat 'variable que contienen el objeto Catalog
Dim debug
Dim total
Response.expires = 0

debug = false

if session("SelectedContrat") = "" then
session("SelectedContrat") = "Todos"
end if

strConexion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=mis;Password=mis;Initial Catalog=" & strDB & ";Data Source="& DataSource

Set Conn = Server.CreateObject("ADODB.connection")
Set objSerie=server.CreateObject("ADODB.recordset")
Conn.open strConexion
'Cat.ActiveConnection = "Provider=SQLOLEDB.1;Data Source=" & DataSource & ";Initial Catalog=" & strDBOLAP
'Cat.ActiveConnection = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=mis;Password=mis;Initial Catalog=" & strDB & ";Data Source=" & DataSource

strOpciones="exec sp_cont_combos @opcion=2"
objSerie.Open strOpciones,Conn,1
Cadena = objSerie("CONTRATO")
'cdf = objSerie.recordcount
'
'if objSerie("CONTRATO").count > 0 then tieneHijos = "true" else tienehijos= "false"
if (IDUnico = 0) then
SelectedContrato = "true"
habilitado = "true"
etiqueta = "Todos"
else
SelectedContrato = "false"
etiqueta = .Fields("CONTRATO")
habilitado = "true"
end if


%>
<?xml version="1.0" encoding="ISO-8859-1"?>
<Members Axis="Y">
<%
if session("SelectedContrat") = Cadena then SelectedContrato = "true" else SelectedContrato = "false" end if

With objSerie
IDUnico = 0
Do While Not .EOF

IDUnico = IDUnico + 1
Response.Write "<Member ID='" & IDUnico & "' Caption='" & .Fields("CONTRATO") & "' CaptionSelContrato= '" & .Fields("CONTRATO") & "' MemTipoContrato= '" & .Fields("CONTRATO") & "' EnviarDatoContrato='" & .Fields("CONTRATO") & "' Enabled='" & habilitado & "' Selected='" & SelectedContrato & "' Opened='false' Level='1.1' HasChildren='" & SelectedContrato &"'>"
Response.Write "</Member>" & vbCRLF

.MoveNext
Loop
objSerie.Close
'Set objSerie = Nothing
End With
%>
</Members>