Sortera!!!

Hur gör man om man vill att den bara ska hämta en av varje från kategori?

		

		<%Response.Buffer = "True"%>
<%
db = Server.MapPath("databas/main.mdb")
%>

<script language="JavaScript">
<!-- 
function blured()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = blured;
}
// -->
</script>

<%Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
SQL = "Select * From galleri"

If Request.Querystring("kat") = "" then
   Id = 1
Else
   Id= Request.Querystring("kat")
End If
%>

	
			

	<br>

	
		
<table width="509" border="0" height="86" cellspacing="0" cellpadding="0" >

<%
Const perSida = 30
Sidan = Request.QueryString("sida")
If Sidan = "" then 
   sida = 1 
Else 
   sida = Sidan 
End If 

With RecSet
  .CursorLocation = 3
  .CacheSize = perSida
End With

SQL = "SELECT DISTINCT kategori,id,bild FROM galleri group by kategori,id,bild"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>

  <tr>
    <td class="normal" height="15" width="506"><br><br><br>
	<p align="center"><font size="6" face="times new roman">Bilderna är på ingång...</font></td>
  </tr>

<%Else%>

  <tr>
    <td height="1" width="509"></td>
  </tr>

<%Numcols = 5

With RecSet
  .MoveFirst 
  .PageSize = perSida 
  .AbsolutePage = sida
End With

Sidor =  RecSet.PageCount
X = 0 
Do While Not RecSet.EOF And X < RecSet.PageSize 
    Response.Write "<tr>"
For i=1 to Numcols
    Response.Write "<td width=133 align=left class=normal>"
If RecSet.EOF then
    Response.Write "&nbsp;"
Else%>
    <font size="1" face="Verdana">
    <td height="69" width="509">
    <a href="visa1.asp?id=<%=RecSet("id")%>">
    

    <font size="1" face="Verdana">
    <span style="text-decoration: none">
    <img src="uppladdning/image/<%=RecSet("Bild")%>" width="78" border="0" height="80" >&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;</span></font><span style="text-decoration: none"></font></span></a>
    
<font size="1" face="Verdana">
    
&nbsp;&nbsp;
    
<%If RecSet("id") = "" Then%>

<%Else%>

<%End If%>
<%X = X + 1
Recset.MoveNext
End If
     Response.Write "</td>"
Next
     Response.Write "</tr>"
Loop

Recset.Close
Conn.Close

Set Recset = Nothing
Set Conn = Nothing

End If%>

</td>
				</tr>
			</table>
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		
		</td>
		<td height="548" width="117" bgcolor="#FFFFFF" valign="top">
		&nbsp;</td>
		<td height="548" width="163" bgcolor="#FFFFFF" valign="top">

						<br><br><%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("databas/main.mdb")
          sqlstmt = "SELECT * FROM sommar order by datum desc"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 18
	If rs.eof then
		Exit For
	Else

		id = rs("id")
		datum1 = rs("datum")
		namn1 = rs("namn")
		nr1 = rs("nr")

   %>

			<table cellSpacing="0" width="163" border="0" id="table2" height="4">
				
				         <tr>
					<td vAlign="top" width="161">
					<b><a href="visa.asp?kat=<% =nr1 %>">
					<font face="Arial" size="1">
					<% =datum1 %><br><% =namn1 %></a></td>
				</tr>         <tr>
					<td vAlign="top" width="161"></td>
				</tr>
				         <%
rs.MoveNext
End If
next%>
			</table>