<% option explicit session.lcid=1053%> <% dim conn, sql, rs, x set conn = server.createobject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("frolista.mdb") sql = "SELECT * FROM frolista Where ID > 433 ORDER BY ID;" set rs = conn.execute(sql) %> <% x = 0 %> <% Do while x < 545 and not rs.eof %> <% x = x + 1 %> <% Else %> ')">Lägg till länk <% End If %> <%rs.MoveNext Loop%>

A (1-433)   B-D (434-978)   E-I (979-1490)   J-O (1491-1822)   P-R (1823-2249)   S-Z (2250-2693)
Nr	Namn	Länk	Kommentar
<%=rs("ID")%>	<%=rs("planta")%>	<% If rs("link1") <> "" Then %> " target="blank">LÄNK ')">Byt länk	<%=rs("plantinfo")%> <% If rs("plantinfo") <> "" Then %> <% End If %> ')">Kommentera
A (1-433)   B-D (434-978)   E-I (979-1490)   J-O (1491-1822)   P-R (1823-2249)   S-Z (2250-2693)  Nästa -->

<% rs.close set rs = Nothing conn.close set conn = Nothing %>