La parte che sapevo fare l'ho fatta:
codice:
<%@Language="VBScript"%>
<%
Dim oRS, oConn
Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database/db.mdb")
oConn.Open 'qui viene aperta la connessione
strSQL="SELECT * FROM menu WHERE id "
x = 1
oRS.Open strSQL, oConn,1,3
conta=oRS.RecordCount
if not oRS.Eof then
%>
conta=<%=conta%> &gb_titolo=<%=oRS("titolo")%> &gb_link=<%=oRS("link")%> &gb_id=<%=oRS("id")%> &titolo=<%=oRS("titolo")%> &link=<%=oRS("link")%> &id=<%=oRS("id")%>
<%
Do while not oRS.EOF
%>
&titolo<%=x%>=<%=oRS("titolo")%> &link<%=x%>=<%=oRS("link")%> &id<%=x%>=<%=oRS("id")%>
<%
x = x + 1
oRS.MoveNext
Loop
end if
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
</p>
questo è il risultato... che te ne pare?
ora che si fa...
sono nelle tue mani.. eh eh eh
grazie tante