xè da errore qs codice.
passo il db a un menu...
devo ancora fare i sottomenu, ma non va nemmeno il menu!
aiutooooooooooooooo!


<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script language="VB" runat="server">
<configuration>
<compilation debug="true"/>
</configuration>

sub Page_Load(obj as Object, e as EventArgs)
'set up connection
dim ObjConn as new OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=d:/siti/aspnet/mio.mdb")

'open connection
dim ObjCmd as new OleDbDataAdapter ("select * from menu", ObjConn)

'fill dataset
dim ds as DataSet = new DataSet()
objCmd.Fill(ds, "menu")

'select data view and bind to server control
MyDataList.DataSource = ds.Tables("menu").DefaultView
MyDataList.DataBind()
for i = 1 to 4
lrmenu[i].style("visibility") = "hidden"
next
' lrAsp1.style("visibility") = "hidden"
' lrAsp2.style("visibility") = "hidden"
' lrPhp.style("visibility") = "hidden"
end sub


' dal db, prendo i nomi dei menu. ad uno ad uno, li rendo visibili (max 7)

Sub mostra_forum(obj As object, e As EventArgs, k as integer)
fpr i = 1 to 4
if i=k then
lrmenu[i].style("visibility") = "visible"
else
lrmenu[i].style("visibility") = "hidden"
end if
' lrAsp1.style("visibility") = "hidden"
' lrAsp2.style("visibility") = "hidden"
' lrPhp.style("visibility") = "hidden"
End Sub

</script>
<html>
<head>
<title>Menu A tendina con vb.net</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>


<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"
onload="setInterval('barra()',100);">
<ASPataList id="MyDataList" runat="server">
<ItemTemplate>
<Form runat="Server">

<div id="lrTitolo" style="position:absolute; left:0px; top:0px; width:300; height:20; z-index:2">
<table width="300" border="0" cellspacing="0" cellpadding="0" background="tabella_off.gif">
<tr>
<td height="20" width="100" background="tabella_off.gif" id="tbForum" onMouseOver="tbForum.background='tabella_on.gif'"
onMouseOut="tbForum.background='tabella_off.gif'">
<div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<asp:LinkButton id="lbForum" text="<%#DataBinder.Eval(Container.DataItem, "Campo1")%>" runat="server" onClick="<%#mostra_forum(DataBinder.Eval(Container .DataItem, "ID")%>)" />
</font></div>
</td>
</ItemTemplate>
</ASPataList>
</tr>
</table>
</div><asp:LinkButton id="lbForum" text="<%#DataBinder.Eval(Container.DataItem, "Campo1")%>" runat="server" onClick="<%#mostra_forum(DataBinder.Eval(Container .DataItem, "ID")%>)" />




segue tanto txt!
la riga in rosso, è la linea d'errore, dove dovrebbe visualizzare il testo del menu.