codigo tremenu

[Lordztein]

necesito una ayuda : utilizo dreamweaver para programar con asp y me dieron un codigo para crear un arbol dinamico de menus. el problema que tengo es que no se como utilizarlo con las conexiones que realiza el dreamweaver. Alguien puede ayudarme ??

el codigo que me dieron

Código:

<%
Call DoTree(0,0)

'here we initially call the sub routine, we pass 0 as the parent ID 
'this will pull all top level parent (meaning they don't have an 'ancestor). 
'we also pass 0 for the level, this is used for spacing, or
'making the results appear threaded. 
'---------------------------------------------------------- 
Sub DoTree(ParentID, intLevel)
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open var_cadena_de_conexion

Dim SQLQ, DBConn, rs, i
SQLQ = "SELECT RecordID, DisplayName FROM RECORDS " & _ 
"WHERE ParentID = " & ParentID & " ORDER BY DisplayName ASC"
Set rs = DBConn.Execute(SQLQ) 
If Not rs.EOF Then 
Do Until rs.EOF 
' Response.Write "<img src=Spacer.gif Width= " & _
' 15 * intLevel & ">" 
Response.Write Replace(Space(intLevel), " ", "&nbsp;&nbsp;&nbsp;&nbsp;")
Response.Write rs("DisplayName") & "<br>" 
'now call the subroutine we're in to see if this value has 
'any children and increase the indent, and so on... 
DoTree rs("RecordID"), intLevel + 1 
rs.MoveNext 
Loop 
End If 
rs.Close 
Set rs = Nothing 

DBConn.Close 
Set DBConn= Nothing 

End Sub 
'------------------------------------------------------------ 
%>