> ohne ein codebeispiel steh ich jetzt auch erst mal auf'm schlauch ;-)
sorry! hier, ist aber ein wenig lang:
Function DoNavigation()
Set oConn = DatabaseOpen(oConn)
recIdsArray = Split(recIds(intRbId),",")
recMaxCount = UBound(recIdsArray)
For i=0 To UBound(recIdsArray)
If recIdsArray(i) & "" = "" Then
strSQL = "SELECT * FROM rubriken WHERE
rb_parent is null AND rb_aktiv=true ORDER BY rb_sortierung;"
Else
strSQL = "SELECT * FROM rubriken WHERE
rb_parent = " & recIdsArray(i) & " AND rb_aktiv=true ORDER BY
rb_sortierung;"
End If
Set ors = Server.CreateObject("ADODB.RecordSet")
ors.CursorType = adOpenStatic
ors.Open strSQL, oConn, 3, 1
Do While Not ors.EOF
strSpacer =
string(i,"-")&string(i,"-")&string(i,"-")
If i<>recMaxCount Then
If
ors.Fields("rb_id").Value & "" = recIdsArray(i+1) & "" Then
Response.Write "#"&i & " "
End If
End If
'// markiertes
If
ors.Fields("rb_id").Value & "" = intRbId & "" Then
Response.Write strSpacer & "<b>" & ors.Fields("rb_rubrik").Value &
"</b>" &_
" (ID: " & ors.Fields("rb_id").Value & ", PID: "
& ors.Fields("rb_parent").Value & ")<br>"
Else
Response.Write strSpacer & ors.Fields("rb_rubrik").Value &_
" (ID: " & ors.Fields("rb_id").Value & ", PID: "
& ors.Fields("rb_parent").Value & ")<br>"
End If
ors.MoveNext
Loop
ors.Close
Set ors = Nothing
Next
DatabaseClose(oConn)
End Function
Function recIds(intRbId)
Set oConn = DatabaseOpen(oConn)
strParentSQL = "SELECT rb_parent FROM rubriken WHERE
rb_id = " & intRbId & " AND rb_aktiv=true ORDER BY rb_sortierung;"
Set orsParent = Server.CreateObject("ADODB.RecordSet")
orsParent.CursorType = adOpenStatic
orsParent.Open strParentSQL, oConn, 3, 1
ParentId =
orsParent.Fields("rb_parent").Value
strReturn = ParentId & "," & strReturn
orsParent.Close
Set orsParent = Nothing
If ParentId & "" <> "" Then recIds(ParentId)
DatabaseClose(oConn)
recIds = strReturn & intRbId
End Function
~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~
Kaffeepause im United Planet Communityserver ...
http://www.intrexx.com/communityserver
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
