ASP: Treeview a la Ingo [PflebIT

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.

====== ASP: Treeview a la Ingo ======

<code>
Vorgegeben ist eine Datenbank mit den Feldern

ID	IDokat		IDukat		nachname1
1	1		4		Sozialstation 1
2	1		5		b
3	1		6		c
4	5		10		d
5	5		11		e
6	10		20		f
7	20		30		g

Die Tabelle besteht aus zwei gejointen Tabellen, wobei das Feld nachname1 aus der zweiten Tabelle stammt.
Dieses Feld ist alphabetisch sortiert, so dass der Baum selbst bereits in der richtigen Reihenfolge vorliegt.
Gejoint wird das Feld kontakt_id aus der zweiten Tabelle mit dem Feld IDukat aus der Kreuztabelle.



<%@LANGUAGE="VBSCRIPT"%>

<%
'Option Explicit
Response.Expires = 0

Dim strProvider
	strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"

Dim strDatabase
	strDatabase = "DATA SOURCE=" & Server.MapPath ("../../../") & "\~db\adressen-vs.mdb;"
		
Dim strComplete
    strComplete = strProvider & strDatabase

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
	objConn.Open strComplete



%>

<%
Sub struktur(var_kategorie,var_ebene)

		Dim strsql52
		Dim objRS52
		Dim LastRS

		' Datenbank durchsuchen nach allen verbundenen Bereichen
		strsql52 =  "SELECT * FROM qry_xkontakt_firma3 where IDokat=" & var_kategorie & " AND istfirma=true"
		Set objRS52 = Server.CreateObject("ADODB.Recordset")
		objRS52.Open strsql52, objConn


	Do While Not objRS52.EOF


		For i = 1 to var_ebene
		Response.Write "_"
		Next
		Response.Write objRS52.Fields("nachname1")
		Response.Write ("<br>")


		call struktur(objRS52.Fields("IDukat"),var_ebene+1)
		

				objRS52.MoveNext
				Loop
			
				objRS52.Close
				Set objRS52 = Nothing
			



	

	
End Sub




call struktur(1,1)

		objConn.Close
		Set objConn = Nothing
%>
</code>