<% Dim Conn, rs, sqltxt, mTable Dim xni, xnj, xnUltReg set rs = CreateObject("ADODB.Recordset") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\bdadmin.mdb")) rs.CursorType = adOpenKeyset 'rs.LockType = adLockOptimistic sqltxt="select * from taulell where mostrar=True order by orden" rs.Open sqltxt,conn mTable=rs.GetRows rs.Close set rs=nothing Conn.Close Set Conn=nothing strTemp = "#CCCCCC" contador=1 xnUltReg=UBound(mTable,2) %> <% While xni<=xnUltReg%>
>
<%=mTable(2,xni)%>
target="principal" class="LinkSenseSubratllar">[+]
<%=mTable(3,xni)%>
<% If xni
>
<%=mTable(2,xni+1)%>
target="principal" class="LinkSenseSubratllar">[+]
<%=mTable(3,xni+1)%>
<% End If %>
<% xni=xni+2 Wend %>