<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% DIM objConn DIM objRS DIM strSQL DIM wpID wpID = Request.QueryString("dbc") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("btlsa.mdb") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT bmsWebTreePages.bmsPageTreeText FROM bmsWebTreePages WHERE id_bmsPageTree = " & wpID & ";" objRS.Open strSQL,objConn %>

<% DO WHILE NOT objRS.EOF %> <%=objRS("bmsPageTreeText")%> <% objRS.MoveNext LOOP %>

<% objRS.Close Set objRS = Nothing Set objConn = Nothing %>