Ciaooooooo..
Volevo sapere se c'era qualcosa di piu semplice per creare una barra di navigazione tipo questa del forum
Mr. Webmaster Forum > Fare Web > Asp
Io ho scaricato questa premetto che funzione bene pero
costringo il server a un doppio lavoro anche per una semplice barra
Dim adoCon
Dim adoRst
'Creo un oggetto per la connessione
Set adoCon = Server.CreateObject("ADODB.Connection")
'Creo un oggetto per il recordset
Set adoRst = Server.CreateObject("ADODB.Recordset")
'Apro la connessione al DB
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\menu.mdb")
'Eseguo la query recuperando tutti i campi dal DB e ordinandoli per indice
adoRst.Open "SELECT * FROM Menu ORDER BY Indice;", adoCon
'Finchè non siamo arrivati alla fine dei dati
While Not adoRst.EOF
Response.Write("<A HREF='" & adoRst("Link") & "'>" & adoRst("Titolo") & "</A>") 'Stampo il menu
'mi muovo sul record successivo
adoRst.MoveNext
if not adoRst.Eof Then
'Stampo il carattere divisorio
Response.Write " | ")
End If
Wend
'chiudo il recordset
adoRst.Close
'chiudo il DB
adoCon.Close
'Elimino i riferimenti
Set adoCon = Nothing
Set adoRst = Nothing
%>
Il risultato è questo: Home|contatti|ecc..ecc..
Grazieeee
Ciaoooooooo:byebye:
Volevo sapere se c'era qualcosa di piu semplice per creare una barra di navigazione tipo questa del forum
Mr. Webmaster Forum > Fare Web > Asp
Io ho scaricato questa premetto che funzione bene pero
costringo il server a un doppio lavoro anche per una semplice barra
Dim adoCon
Dim adoRst
'Creo un oggetto per la connessione
Set adoCon = Server.CreateObject("ADODB.Connection")
'Creo un oggetto per il recordset
Set adoRst = Server.CreateObject("ADODB.Recordset")
'Apro la connessione al DB
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\menu.mdb")
'Eseguo la query recuperando tutti i campi dal DB e ordinandoli per indice
adoRst.Open "SELECT * FROM Menu ORDER BY Indice;", adoCon
'Finchè non siamo arrivati alla fine dei dati
While Not adoRst.EOF
Response.Write("<A HREF='" & adoRst("Link") & "'>" & adoRst("Titolo") & "</A>") 'Stampo il menu
'mi muovo sul record successivo
adoRst.MoveNext
if not adoRst.Eof Then
'Stampo il carattere divisorio
Response.Write " | ")
End If
Wend
'chiudo il recordset
adoRst.Close
'chiudo il DB
adoCon.Close
'Elimino i riferimenti
Set adoCon = Nothing
Set adoRst = Nothing
%>
Il risultato è questo: Home|contatti|ecc..ecc..
Grazieeee
Ciaoooooooo:byebye: