|
Kategori
› |
<%
set rs2 = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT DISTINCT kategoriadi FROM kategori Order By kategoriadi asc"
rs2.open sql,cilem,1,3
%>
<%
do until rs2.eof
kategoriadi = kategoriadi & ""
rs2.movenext
loop
%>
<%
set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.open "Select * from kategori Order by Sira asc",cilem,1,3
if rs2.eof then
%>Kayıtlı Kategori Yok.
Haber veya Yazı Eklemek için Önce Kategori Oluşturulmalı
<%else%>
<%end if%> |