<% 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 ORDER BY ID;" set rs = conn.execute(sql) %> <% x = 0 %> <% Do while x < 433 and not rs.eof %> <% x = x + 1 %> <% Else %> ')">Lägg till länk <% End If %> <%rs.MoveNext Loop%>

STA:s frölista 2005 - med kommentarer och länkar
Vem som helst kan lägga in kommentarer och länkar i frölistan - och även byta ut länkar. Var bara försiktiga så att ni inte byter ut unika länkar som frödonatorn själv lagt in! Lägg gärna in kommentarer om hur ni själva gjort när ni sått olika arter. Det är sådan information som är ovärderlig för den som ska beställa fröer. Frölistan från 2004 ligger fortfarande kvar men det är kanske inte så meningsfullt att lägga in så mycket nya kommentarer i den. Listan öppnas i ett nytt fönster.
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 %>