verileri yanyana listelemek?

selam arkadaşlar bi scriptte verileri yanyana listelemek istiyorum ancak bir türlü yapamadım kodu aşağıda veriyorum yardımcı olurmusunuz?

			<table border="0" width="550" id="table1" cellpadding="0" style="border-collapse: collapse">
				<tr>
					<td height="26" width="15">&nbsp;</td>
					<td height="26"  width="525">
					<p align="center">
					<font class="baslik">Son Eklenen Bloglar</font></td>
					<td height="26" width="10">&nbsp;</td>
				</tr>
				<tr>
					<td class="o_tab" valign="top" width="550" colspan="3" align="center">

<%
Set zd_msg = Server.CreateObjecT("ADODB.recordSet")
rSQL = "Select * FROM blog where gorunsun=1 ORDER BY id desc"
zd_msg.open rSQL,data,3,3
adet = zd_msg.recordcount

if zd_msg.eof then
response.write("<center><font class=""orta"">kayýt bulunamadý</font>")
else

sayfa = Request.QueryString("sayfa")
    if isnumeric(sayfa)=false then
        Response.redirect "index.asp"
    Else
If sayfa="" then sayfa=1





zd_msg.pagesize = (StrBlogSayi)
sayfa_sayisi = zd_msg.pagecount
if Cint(sayfa)<1 then sayfa=1
if Cint(sayfa_sayisi) < Cint(sayfa) then sayfa=sayfa_sayisi
zd_msg.absolutepage = sayfa
for i=1 to zd_msg.pagesize
if zd_msg.eof then
exit for
end if
tarih=zd_msg("tarih")
parcala=""&tarih&""

parcala = split(parcala,"/" )
ay=Left(MonthName(parcala(0)),3)
gun=parcala(1)
yil=Right(parcala(2),2)
%>


<div align="center">
<table width="110" border="0">
  
  <tr>
    <td align="center"><font class="blog"><a href="<%=SEOLink(zd_msg("id"))%>"><%=zd_msg("konu")%></a></td>
    </tr>
  <tr>
    <td><a href="<%=SEOLink(zd_msg("id"))%>"><img src="<%=zd_msg("afis")%>" width="130" height="170" border="0" /></a></td>
    </tr>
  <tr>
    <%
set ktg = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from Kategori where id = "&zd_msg("kat_id") &""
ktg.open SQL,data,1,3
%>
    <td align="center"><a href="kategori.asp?id=<%=ktg("id")%>">&nbsp;<%=ktg("ad")%></a></td>
    </tr>
</table>

<%zd_msg.movenext%>
  <% next %> 


<div align="center">
	<table border="0" width="530" id="table1" cellpadding="0" style="border-collapse: collapse">
		<tr>
			<td colspan="3" align="center"><font class="orta">Toplam <%=adet%> Blog, <%=sayfa_sayisi%> Sayfada Gösterilmektedir.</font></td>
			</tr>
		<tr>
			<td align="center" valign="center">
<%
If sayfa > 1 Then
response.write "<b><a href=""?sayfa=1"" title=""ilk sayfa"">««</a></b> "
a = sayfa -1
Response.Write "<b><a href=""?sayfa=" & a & """ title=""Önceki"">«</a></b> "
End If
If sayfa + 5 > sayfa_sayisi Then
b = sayfa_sayisi 
Elseif sayfa_sayisi < 5 Then
sayfa_sayisi = 1
Else
b = sayfa + 5
End If
If sayfa < 5 Then
c = 1
Else
c = sayfa - 5
End If
if c < 1 then 
c = 1
end if
For j = c To b
If j = CInt(sayfa) Then
Response.Write "<font class=""orta"">[<b>" & j & "</b>] </font>"
Else
Response.Write "<b><a href=""?sayfa=" & j & """>" & j & "</a></b> "
End If
Next
if Cint(sayfa) < sayfa_sayisi then
a = sayfa + 1
Response.Write "<b><a href=""?sayfa=" & a & """ title=""Sonraki"">»</a></b> "
Response.Write "<b><a href=""?sayfa=" & sayfa_sayisi & """ title=""Son Sayfa"">»»</a></b>"
End If
end if
%>
			</td>
		</tr>
	</table>
</div>
<% End if %>
					</td>
				</tr>
				<tr>
					<td colspan="3" width="550">&nbsp;</td>
				</tr>
			</table>

arkadaşım yanyana listelemeyi yapacagın tablo işlemlerini neyle yapacaksın access mi mysql mssql mi ?

Mysql Yanayana listeleme şekli

<table width="900" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
KayitSayisi = 5

If Request.QueryString("s") <> "" Then
Sayfa = CInt(Request.QueryString("s"))
Else
Sayfa = 3
End If

Set SQLTop = Mysql.Execute("SELECT COUNT(id) FROM galeri")
TopKayit = SQLTop(0)

set rs = Mysql.Execute("SELECT * FROM galeri ORDER BY id DESC LIMIT "&(KayitSayisi*Sayfa)-(KayitSayisi)&","& KayitSayisi&"")
i=0
do while not rs.eof
i=i+1
%>
<td><table width="225" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="detay"><%=rs("adres")%></td>
</tr>
</table></td>
<%
if i = 4 then
%>
</tr>
<tr>
<%
i=0
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
<tr>
<td>
<%
If CInt(TopKayit) > CInt(KayitSayisi) Then
SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi)
If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1

If SayfaSayisi > 1 Then
For i=1 To SayfaSayisi
Response.Write "<a href=""?s=" & i & """ style=""color:#0000FF"">" & i & "</a> "
Next
End If
End If
%>
</td>
</tr>
</table>

access hocam..

armut piş ağzıma düş.

adı ustunde "ASP Script sorunları yardım paylaşım bölümü"

hocam asp script indirirken netten hiç armut piş ağzıma düş denmiyo nedense hemen hazırdaki script indiriliyor bu neden boyle bir alıntı yaptı anlamadım doğrusu

Adı üstünde yardım sen yapmaya çalış ilgili uygulamaları dene sonra deki şunu yaparken şurda hata aldım sen kodunu koymuşsun sayfalama yapısını yapın verin olmuş o yüzden armuş piş ağzıma düş dedim sen hiçbişey yapmak sitemiyorsun ondan bişeyler öğrenmek istiyorsan önce ilgili dokümanları oku aldığın hatayı bize bildir bizde ilgili bölümdeki hatanın sebeplerini arayalım çözüm üretelim.