|
|
| <%
Set db=Server.CreateObject("ADODB.Connection")
db.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("db/neutral.mdb")
%>
<%
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql = " Select * from kategoriler"
rs.open sql,db,1,3
do while not rs.eof
%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
|
|
|
|
|
<%
kategori=Request.Querystring("kategori")
Set Rs=Server.CreateObject("Adodb.Recordset")
sorgu="select * from album where kategori = '" & kategori & "' and onay=1 ORDER BY baslik ASC"
Rs. Open Sorgu, db, 1, 3
If rs.eof then
Response.Write "
Veritabanında Henüz Kayıt Yok."
Response.End
End If
adet=rs.recordcount
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
<%
rs.pagesize = 12
rs.absolutepage = shf
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
if i mod 4=1 then
response.write ""
end if
%>
|
|
<%
if i=4 or i=8 or i=12 or i=16 or i=20 or i=24 or i=28 or i=32 or i=36 or i=40 or i=44 or i=48 or i=52 or i=56 or i=60 then
response.write " | "
end if
%>
<%
rs.movenext
%>
<%
if i mod 4=0 then
response.write " "
end if
next %>
<%=adet%>
Ürün. | Sayfa :
<%
for y=1 to sayfa
if shf=y then
response.write y
else
response.write " ["&y&"] "
end if
next
%>
|
|
|
|
