<% ' %> <% 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 %>
<% if katalog("detaljbild") <> "" then %>" align="center" target="_blank" title="klick"><% end if %>" border="0" onLoad="MM_goToURL('parent.frames[\'hoger\']','hoger.asp?Sida=<%=request("sida")%>&Kategori=<%=request("kategori")%>&Antalbocker=<%=antalbocker%>&Antalsidor=<% = antalsidor %>');return document.MM_returnValue"><% if katalog("detaljbild") <> "" then %><% end if %>           
"><% = Katalog("Text") %>

<% if trim(request("Kategori")) <> "1" then %>&From=<% = request("From") %>&Kategori=<% = trim(request("Kategori") - 1) %>" onMouseOver="MM_swapImage('Image3','','bilder/blandat/pil_upp_on.gif',1)" onMouseOut="MM_swapImgRestore()"><% elseif trim(request("Kategori")) = "1" then %><% end if %>
<% if trim(request("Sida")) = "1" then %><% else %>&Kategori=<% = request("kategori") %>&Kategori2=<% = request("kategori2") %>&From=<% = request("From") %>" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','bilder/blandat/pil_vanster_on.gif',1)"><% end if %><% if request("From") = "main.asp" then %><% elseif request("From") = "memory.asp" then %><% elseif request("From") = "mosaik.asp" then %>" onMouseOver="MM_swapImage('Image7','','bilder/blandat/kub_on.gif',1)" onMouseOut="MM_swapImgRestore()"><% end if %>  .gif">
<% if trim(request("Kategori")) <> antalbocker then %>&From=<% = request("From") %>&Kategori=<% = trim(request("Kategori") + 1) %>" onMouseOver="MM_swapImage('Image4','','bilder/blandat/pil_ner_on.gif',1)" onMouseOut="MM_swapImgRestore()"><% elseif trim(request("Kategori")) = antalbocker then %><% end if %>
 
 
 
 
<% Katalog.MoveNext Wend Katalog.Close Connect.Close Set Connect = Nothing %>