Menu con funzione ricorsiva

[santino83]

Originariamente inviato da fbertoldi
Si può fare qualcosa di analogo con php?
Grazie

traduci lo script in php

[longline]

Direi che così è corretto (prima l'avevo fatto senza provarlo, e si vedeva )

Function MenuCategorie(ByVal lngId)
Dim idTmp
Dim strTmp
myrs.Filter = "id=" & lngId
idTmp = myrs("catid")
If idTmp <> 0 Then
  strTmp = myrs("Categoria")
  MenuCategorie =  MenuCategorie(idTmp) & " > " & strTmp 
Else
  MenuCategorie = MenuCategorie & myrs("Categoria")
End If
End Function


' Crea e apri il recordset

sql = "SELECT * FROM tcategoria"
Set myrs= Server.CreateObject("ADODB.Recordset")
myrs.Open sql, dbdati, 3, 3


' Crea il menu
strMenu = MenuCategorie(3)

' chiusura e distruzione recordset
myrs.Close
Set myrs = Nothing

' Visualizza il menu
Response.Write strMenu

[santino83]

myrs.Open sql, dbdati, 3, 3

basta anche

myrs.Open sql, dbdati, 1,1

o anche meglio

set myrs=dbdati.execute(sql)

è piu veloce ad aprirlo

[longline]

Originariamente inviato da santino83

myrs.Open sql, dbdati, 3, 3

basta anche

myrs.Open sql, dbdati, 1,1

o anche meglio

set myrs=dbdati.execute(sql)

è piu veloce ad aprirlo

Sei sicuro che gli esempi che posti supportino poi la proprietà Filter?

[santino83]

Originariamente inviato da longline
Sei sicuro che gli esempi che posti supportino poi la proprietà Filter?

ah perchè avete usato la filter? mica avevo visto

no allora non vanno bene mea culpa

[Adam7]

e me da sempre errore a questa riga myrs.Filter = "id=" & Idx
questo è l’errore:
Microsoft VBScript runtime error '800a0007'
Out of memory: 'myrs.Filter'
/menus.asp, line 18
io mi sono perso in altomare (non avendo mai usato filter)

[longline]

Posta l'intero codice asp.

[Adam7]

Allora …
Questa è la pagina conn.asp che si connette al database dbcat

<%
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
Response.AddHeader "cache-control", "private"
Session.LCID = 1040

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\..\dbcat.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String

'Variabili
Dim union
Dim SQL_Config
Dim Co_OK
Dim Can_Atomatico
Dim Password
Dim sql
Continuano…..
%>

questa invece è la pagina dove viene creato il menu

<%

Idx=Request.QueryString("id")



Function MenuCategorie(ByVal lngId)
Dim idTmp
Dim strTmp
myrs.Filter = "id=" & Idx
idTmp = myrs("idcat")
If idTmp <> 0 Then
strTmp = myrs("Categoria")
MenuCategorie = MenuCategorie(idTmp) & " > " & strTmp
Else
MenuCategorie = MenuCategorie & myrs("Categoria")
End If
End Function


' Crea e apri il recordset

sql = "SELECT * FROM TbCategorie"
Set myrs= Server.CreateObject("ADODB.Recordset")
myrs.Open sql, conn, 3, 3


' Crea il menu
strMenu = MenuCategorie(3)

' chiusura e distruzione recordset
myrs.Close
Set myrs = Nothing

' Visualizza il menu
Response.Write strMenu

%>

Oggi ti sto dando un po' di fastidio scusami.. grazie x l aiuto

[longline]

Hai scritto

myrs.Filter = "id=" & Idx

invece di

myrs.Filter = "id=" & lngId

[Adam7]

Edit? non ho capito...