% ' %> <% Dim rsCount3, AntalBocker Set rsCount3 = Connect.Execute("SELECT ID FROM BOCKER") AntalBocker = rsCount3.RecordCount rsCount3.Close Set rsCount3 = Nothing %> <% Dim rsCount, AntalSidor, Kategori Kategori = trim(request("Kategori")) Set rsCount = Connect.Execute("SELECT * FROM Katalog WHERE Kategori=" & Request("Kategori")) AntalSidor = rsCount.RecordCount rsCount.Close Set rsCount = Nothing %> <% Dim Katalog Set Katalog = Connect.Execute("SELECT * FROM Katalog WHERE Sida=" & Request("Sida") & " and Kategori=" & Request("Kategori")) While Not Katalog.EOF %> <% Dim rsCount2, AntalSidor2, ID Sida = Katalog("Sida") Set rsCount2 = Connect.Execute("SELECT * FROM Katalog WHERE Sida > " & Katalog("Sida") & " and Kategori=" & Request("Kategori")) AntalSidor2 = rsCount2.RecordCount rsCount2.Close Set rsCount2 = Nothing %>