sayfa düzeni tahmin ettiğin gibiyse şu vericeğim şekilde olması lazım.
<head>
<meta http-equiv="Content-Language" content="tr">
</head>

<%
Set db = Server.CreateObject("Adodb.Connection")
db.open"Provider=Microsoft.jet.oledb.4.0;data source=" & Server.MapPath("db.mdb")
%>

<table border="1" width="19%" id="table1">
	<%
	set tablo = Server.CreateObject("ADODB.Recordset")
	sql="select * from seo where seo='"& link &"'"
	tablo.open sql,db,1,3
	do while not tablo.eof
	yorumid=tablo("id") %>
		   <tr>
		<td><%=tablo("detay")%></td>
	</tr>
	<%
	tablo.movenext
	loop

	%>
	
</table>
<p>&nbsp;</p>

<%
Set Comment = Server.CreateObject("ADODB.Recordset")
sor3 = "Select * from yorum where onay=1 and yaziID=" & yorumid & "" order by id desc"
Comment.Open sor3,db,1,3
%>	
<table border="1" width="19%" id="table2">
	<tr>
		<td>Yorumlar</td>
	</tr>
	<% do while not comment.eof%>
	<tr>
		<td><%=comment("Yazan")%></td>
	</tr>
	<%
	comment.movenext
	loop
	%>
</table>
bayadır asp kodlama yapmıyorum. hata yapmadıysam sorunun çözülür
olmazsa sayfanın linkini pm at bakayım