arkadaşım
<%
set otel=server.createobject("adodb.recordset")
otel.open "Select * from xxx_yorum where sayfa='Otel' and sid like '%"&id&"%' order by id desc",baglan,1,3
a="0"

pg=request.querystring("pg")

If otel.Eof Or otel.bof Then
response.write "Henüz Yorum Eklenmemiş. İlk ekleyen siz olmak ister misiniz ?"
Else
end if
if pg="" then
pg="1"
end if

otel.pagesize=50
otel.absolutepage=pg
sayfalama=otel.pagecount

for x=1 to otel.pagesize
if otel.eof then exit for

if a="0" then
%>
buradaki döngü veritabanına baktığında herhangi bir kayıt bulamadığı için hata veriyor.

Veri tabanını bilmiyorum ama muhtemelen access başına bir kontrol döngüsü eklemen lazım access uzun süre kullanmadığım için hatırlamıyorum ama mysql için örneği veriyorum

set kontroller=dongu.execute("select count(*) as toplam from xxx_yorum where sayfa='"&Otel&"' and sid like '%"&id&"%' order by id desc ")
burdan o tablodaki o özelliklerdeki veri sayısını buldurursun if ile sayı sıfırdan fazla ise yapde. sanırım access için rs.count diye birşeyer vardı google arat kodunu bulursun umarım işini görür.