<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
%>
<%
Set game = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM oyunlar WHERE kate='macera'"
game.Open Sorgu,Baglanti,1,3
syf = Request.QueryString("syf")
if syf="" then
syf=1
end if
%>
<%
If game.eof then
Response.Write "<center>Içerik yok</center>"
Response.End
End If
%>
<%
game.pagesize = 15
game.absolutepage = syf
sayfa = game.pagecount
for i=1 to game.pagesize
if game.eof then exit for
%>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="335" height="39" id="AutoNumber1">
<tr>
<td width="335" height="39">Urun adý:<%=game("ad")%> Kategori No: <%=game("id")%></td>
</tr>
</table>
</div>
<% game.movenext%>
<% next %>
Sayfalar :</B>
<%
for y=1 to sayfa
' if shf=y then
if y=cint(shf ) then 'bulunduðun sayfaya link yok
response.write y
else
response.write "<b> <a href=""kat.asp?islem=kayitlar&syf="&y&""">"&y&"</a></b>"
end if
next
%> verileri yan yana alt alta sıralama
0
●1.298
- 10-08-2009, 00:30:04Üyeliği durduruldumerhaba bu gun ikinci sorum ama k.bakmayın forumda bldum aslında ama uygulayamadım istediğim veritabanından gelen verileri yan yana ve alt alta sıralamak şimdiden saolun