kardeşlerim şu koda bi bakarmısınız

21-02-2007, 00:38:58

amfibi2000

aşagıdaki kodlarda veriyi yanyana üç tane alıyorum ama alt alta 10 tane nasıl alırım yardımcı olurmusunuz..

<%
set ozy=Server.CreateObject("Adodb.Connection")
ozy.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(""&db&"/db.mdb")
set rs=Server.CreateObject("Adodb.Recordset")
SQL=" select * from download ORDER BY id desc "
rs.open SQL,ozy,1,3
for i = 1 to 3
if rs.eof then exit for%>
<td width="60" rowspan="2"><a href="down.asp?id=<%=rs("id")%>"><img border="0" src="<%=rs("res")%>" width="60" height="60"></a></font>
</td>
<td width="905" valign="top" bordercolor="#E8E8E8">
<table border="0" width="100%" id="table6">
<tr>
<td colspan="3"><b><a href="down.asp?id=<%=rs("id")%>"><img border="0" src="images/arrow_ltblue.gif" width="9" height="12"><%=rs("script_adi")%>   <%=rs("veri")%></a></b></td>
</tr>
<tr>
<td width="99%" colspan="3"></td>
</tr>
<tr>
<td width="6%"><font color="#C0C0C0" face="Tahoma"><b>Boyut</b></font></td>
<td width="1%"><font color="#C0C0C0" face="Tahoma"><b>:</b></font></td>
<td width="92%">
 <%=rs("boy")%></td>
</tr>
<tr>
<td width="6%"><font color="#C0C0C0" face="Tahoma"><b>Lisans</b></font></td>
<td width="1%">
<font color="#C0C0C0" face="Tahoma"><b>:</b></font></td>
<td width="92%">
 <%=rs("isim")%></td>
</tr>
</table>
</td>
<td width="2" valign="middle" bordercolor="#E8E8E8" rowspan="2">
<img border="0" src="images/line_d.gif" width="1" height="75"></td><%
rs.movenext
Next
rs.close
set rs = Nothing
%>

21-02-2007, 00:51:28

#2

LuGeLaS

Misafir

hepsi altalta mı olacak yoksa 3erli olarakmı alacaksın

21-02-2007, 02:00:40

#3

rnmks

Basit Sıralama

Alıntı

<%
Baslangic = 1
Bitis = 50
SiraSayisi = 2
%>

<table>
<tr><% for i = Baslangic to Bitis %>
<td> <%=i%></td>
<%
If i mod SiraSayisi = 0 Then
Response.Write "</tr><tr>"
End If
Next
%>
</tr>
</table>

1 den 50 ye kadar yanyana Sıralama Yapmış oluyosunuz ...

----------------------------------------
buda bnm daima kullandığım sistemdir ..
yanyana = 2 yanyana olmasını istediğin sayı
rs.pagesize = 8 sayfada kaç tane görünmesini istediğini ayarlıyabilrisin .

<%
set baglan = Server.CreateObject("ADODB.baglanection")
baglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb"))
set rs = server.createobject("adodb.recordset")
%>
<%
yanyana = 2
restablo = "Select * from tablo order by id desc "
rs.pagesize = 8
rs.open restablo,baglan,1,1
if request.QueryString("s")="" or request.querystring("s")=0 then
s=1
else
s=request.QueryString("s")
end if
rs.AbsolutePage = s
%><CENTER>
<table cellspacing=0 cellpadding=3 width="293">
<tr>
<% for k=1 to rs.pagesize %>
<% if rs.eof or rs.bof then exit for %>
<% if yan=yanyana then
response.write ("<tr>")
yan=0
End if
%><td width="287">

<table border="0" width="300" height="120">
<tr>
<td width="221" height="15" align="center" bgcolor="#E1E1E1"><%=rs("baslik")%></span></span></td>
</tr>
<tr>
<td >
<img border="0" src="<%=rs("resim")%>" width="70" height="50" align="left">
<table width="210" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td align="left"><a href="oku.asp?ID=<%=rs("id")%>"><%=ozeldurum(left( rs("haber_devam"),120))%>..</a></td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" >&nbsp;</td>
</tr>
</table>

</td>
<% yan=yan+1
if yan = (yanyana+1) then
response.write ("</tr>")
end if
%>
<% rs.movenext : next%>
</table>
<br>
<hr>
</CENTER>
<div align="center">


<font size="1">Sayfa</font>
&nbsp;
<strong>
<% for x=1 to rs.pagecount %>
<a href="?sayfa=sayfa&s=<%=x%>" class=ler><%=x%></a>
<% next %></td>

22-03-2007, 15:50:05

#4

~~kuzgun~~

Üyeliği durduruldu

cok tesekkurler

22-03-2007, 15:53:57

#5

Ersin

hocam her konuya neden teşekkur edıyorsun bı sorunun mu var