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>