<%

Set kategori = Server.CreateObject("ADODB.Recordset")

sor = "Select * from kategori ORDER BY id" ' kategori tablomuzu id sırasına göre diziyoruz.

kategori.Open sor,Sur,1,3

toplam_kategori=kategori.recordcount

%>



</tr>

<%

While Not kategori.EOF

%>

<tr>

<td width="100%" height="13" bgcolor="#CCCCCC"><span lang="en">

<font face="Verdana" size="2">

-</font></span><font face="Verdana" size="2">
<a href="kat.asp?katno=<%=kategori("katno")%>"><%=kat egori("kat_adi")%></a></font></td>

</tr>

<%

If Not kategori.EOF Then

%>

<% kategori.MoveNext

End If

%>

<% Wend %>