<% Dim Tumnagel Set Tumnagel = Connect.Execute("SELECT * FROM Bocker Order by Kategori, Ordning") %> <% Tumnagel.Close Connect.Close Set Connect = Nothing %>
<% While Not Tumnagel.EOF %> <% if tumnagel("tumnagel") <> "" then %> &Kategori2=<% = tumnagel("kategori") %>&From=memory.asp">" border="1" width="100" height="100"> <% end if %> <% Tumnagel.MoveNext Wend %>