Buyrun Çözümü yazayım!
<%
id=request("id")
sf=request.querystring("sf")
if sf="" Then
sf =1
end if
%>
<table>
<tr>
<%
kategorim = 5
Set ObjCatDri = Server.CreateObject("ADODB.Recordset")
sor = "Select * FROM urunler WHERE kategoriId LIKE '"&request("id")&"'"
ObjCatDri.Open sor,baglanti,1,3
KacarliSira = 4
KacTane = 10000
ObjCatDri.pagesize = 16
ObjCatDri.absolutepage = sf
sayfa = ObjCatDri.pagecount
for i=1 to ObjCatDri.pagesize
if ObjCatDri.eof then exit for
%>
<td style="border-style: none; border-width: medium">
<table border="1" width="100%" style="border-width: 0px">
<tr>
<td style="border-style: none; border-width: medium" colspan="3">
<p align="center">
<img src="urunResimler/<%=ObjCatDri("resim1")%>" width="150" height="150" /></td>
</tr>
<tr>
<td style="border-style: none; border-width: medium">
Ürün Kodu</td>
<td style="border-style: none; border-width: medium">
:</td>
<td style="border-style: none; border-width: medium">
<%=ObjCatDri("urunKod")%></td>
</tr>
</table>
</td>
<%
If i mod KacarliSira =0 Then
Response.Write "</tr><tr>"
End If
ObjCatDri.movenext
Next
ObjCatDri.close
set ObjCatDri = Nothing
%>
</tr></table>
<br>
<%
Response.Write "Sayfalar: "
for y=1 to sayfa
if CINT(TRIM(sf))=CINT(TRIM
) then%>
<b>[<%response.write "" & y %>]</b>
<%
else
response.write " <a href='kategori_icerik.asp?=kategoriIcerik&id="&id& "&sf=" & y & "'> "& y &".</a>"
end if
Next
%></td>