<%set kotnrol=server.createobject("adodb.recordset")
kotnrol.open "Select Count(*) as toplam from xxx_yorum where sayfa='Otel' and sid like '%"&id&"%' order by id desc",baglan,1,3
kontroller=Cint(kontrol("toplam"))
if kontroller<>0 then
%>
<%
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
%>
<% end if%>
dene