Kategori sortering.

Såhär ska det nog funka. :)

If RecSet2("Kategori") <> Request.Querystring("kategori") Then
  Response.Write("<a href=""shoppen.asp?do=list&kategori=" & RecSet2("Kategori") & """>" & RecSet2("Kategori") & "</a> -")
Else
  Response.Write("<span class=""broedtext"">" & RecSet2("Kategori") & "</span> -")
End If

Tack, men nu skriver den ut samma kategori flera gånger om du kollar sidan :/

Hur ser resten av koden ut?

<a href="shoppen.asp" target="_self">Alla</a> -

<%
If RecSet2.EOF Then
%>

 Länkar<br>

<%
Else

Kategori = ""
Do Until RecSet2.EOF

If RecSet2("Kategori") <> Request.Querystring("kategori") Then
  Response.Write("<a href=""shoppen.asp?do=list&kategori=" & RecSet2("Kategori") & """>" & RecSet2("Kategori") & "</a> -")
Else
  Response.Write("<span class=""broedtext"">" & RecSet2("Kategori") & "</span> -")
End If

RecSet2.MoveNext
Loop 

End If
%>

<br>
<img src="streck.gif" border="0" alt="">
<br>

<%
If RecSet.EOF Then
%>

 <span class="broedtext">Det finns inga varor ännu!</span><br>

<%
Else
Do Until RecSet.EOF
%>

<div align="left">
  <table border="0" width="250">
    <tr>
      <td width="90" height="90" rowspan="2">
      <img src="<%=RecSet("ProduktBild")%>" border="0" alt="">
      </td>
      <td width="110" height="40"><span class="broedtext"><%=RecSet("Info")%></span></td>
      <td width="35" height="40">
      <img src="pris<%=RecSet("Pris")%>.gif" border="0" alt="">
      </td>
    </tr>
    <tr>
      <td width="109" height="40">
      <a href="shoppen.asp?do=more&vara=<%=RecSet("ID")%>" target="_self"><img src="forstoring.gif" border="0" alt=""></a>
      <a href="shoppen.asp?do=additem&ID=<%=RecSet("ID")%>" target="_self"><img src="koep.gif" border="0" alt=""></a>
      </td>
      <td width="36" height="40">
      <form name="form1" method="POST" action="shoppen.asp?do=additem&ID=<%=RecSet("ID")%>">
      <input type="text" name="antal" size="2" maxlngth="2" value="1" readonly>
      <form>
      </td>
    </tr>
  </table>
</div>

<img src="streck.gif" border="0" alt="">

<%
RecSet.MoveNext
Loop 

End If
%>

Det verkar som om det finns flera förekomster av Tees i databasen. Ändra SQL-frågan (den för att ta ut kategorierna) till något sånt här:

SELECT DISTINCT Kategori FROM tabell

Ok, tackar