<%
a=0
%>
<%
KategoriNo=request.querystring("Kategori")
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql = " Select * from album where KategoriNo="&KategoriNo&" order by ID desc"
rs.open sql,db,1,3
if rs.recordcount=0 then
%>
Üzgünüz ! BU KATEGORİDE Bir kayıt yok.
Daha sonra tekrar arayınız.
İyi günler dileriz
<%
end if
do while not rs.eof
%>
 " width="80" height="60" border=0>
"> DETAY  |
<%
a=a+1
%>
<%
if a=5 or a=10 or a=15 or a=16 or a=20 or a=24 or a=28 or a=32 or a=36 or a=40 then response.write ""
%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
|