<% Dim Conexion Set Conexion=Server.CreateObject("adodb.connection") Set rs=Server.CreateObject("adodb.recordset") Conexion.Open "Driver={Microsoft Access Driver (*.mdb)};" & "Dbq=" & Server.MapPath("sh.mdb") Dim sql sql="Select * From gestio Where publicar=1 and menu=1 Order by orden , subtitol asc " rs.Open sql,Conexion If rs.BOF And rs.EOF Then %>

No hi ha menu

<%else%> <%While not rs.EOF %> <%if rs.Fields("nivel")="0" then %> | " class="enlacenav" target="_parent" accesskey="<%=rs.Fields("teclat")%>" title="<%=rs.Fields("title")%>" onMouseover="MostrarTexto('<%=rs.Fields("onMouse")%>')" onMouseout="OcultarTexto()" ><%=rs.Fields("titol")%> <%end if%> <%rs.MoveNext%> <%Wend%> <%end if%> <%rs.Close %>