För att förtydliga vad LarsG menar: Du kommer få ut datat på denna form:
[b]Prylkategori Prylnamn[/b]
Datorer Dator 1
Datorer Dator 2
Datorer Dator 3
Motor Mobil 1
Mobiler Mobil 2
Mobiler Mobil 3
GPS GPS 1
GPS GPS 2
GPS GPS 3
Det din kod måste göra i det fallet är att detektera när det kommer en ny kategori. Lite pseudokod:
tmpKat = ""
while not rs.eof()
if tmpKat <> rs.kategorinamn
skrivutkategori rs.kategorinamn
tmpKat = rs.kategorinamn
end if
skrivutpryl rs.prylnamn
rs.next
end while
Detta är bara pesudokod, och knappast i närheten gångbar ASP. Men jag hoppas att du ska se vilken logik som behövs i ASP'n. (Ungefär som om jag skulle snacka franska, utifrån min gamla skolfranska... Jag skulle få ur mig ett par ord, kanske till och med göra mig förstådd, men det skulle ändå låta skrattretande.)
<%
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Visa2 = "SELECT * FROM collectiondb WHERE visa = 'ja' order by kategori ASC "
RecSet2.Open Visa2, Connect, adOpenStatic, adLockOptimistic
%><% Do Until RecSet2.EOF %><div id="text">
<div id="listatop"><b><% = Ucase(RecSet2("kategori")) %></b></div>
</div>
<div class="box"><%
Set RecSet3 = Server.CreateObject("ADODB.Recordset")
Visa3 = "SELECT * FROM collectiondb WHERE visa = 'ja' and kategori = '" & Trim(Recset2("kategori")) & "' order by collectionid DESC "
RecSet3.Open Visa3, Connect, adOpenStatic, adLockOptimistic
%>
<% Do Until RecSet3.EOF %>
<div id="minibox"><h5><a href="images/<% = RecSet3("bildstor") %>" class="lightbox" title="<% = RecSet3("rubrik") %>"><img border="0" src="images/<% = RecSet3("bildmini") %>"></a><br><b><% = RecSet3("rubrik") %></b><br>
<% = RecSet3("pris") %> kr</h5></div>
<% RecSet3.Movenext
loop
%></div><% RecSet2.Movenext
loop
%>
Den listar dock om samma kategori lika många gånger som det finns prylar i den aktuella kategorin... så nu kommer tricket att få ett asp-skript som bara skriver ut den en gång... hm...