Kategori olusturmak

<% @Language=VBScript %>
 
 
<%
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">
        <img border="0" src="images/Lopez2_Bullet2.gif"></font></span><font face="Verdana" size="2"> 
<a href="kategori.asp?kategori_no=<%=kategori("kategori_no")%>"><%=kategori("kategori_adi")%></a></font></td>
      </tr>
<%
If Not kategori.EOF Then
%>
<% kategori.MoveNext
End If
%>
<% Wend %>
 
'----------------------------------------------------------------------------------------------------------------
www.turkhackteam.org