Çözemedim gitti yaa !!

Arkadaşlar...

benim bir asp otel detay sayfam var. otel.asp?id=xxxx olarak sayfayı gösteriyoruz.
sayfanın içeriğinde :

 <!-- #include file="xxdb.asp" -->
<%
id=Request.querystring("id")
if not id="" then
if isnumeric(id) then
set otel=baglan.execute("Select * from xxx_tablo Where id="&id&"")
if not otel.eof then

%>

otel ile ilgili bir de yorum ekleme sistemi yazdım. yorum ekleme falan ok.. yorum ekleniyor. eklenen yorumları sayfaya ; id' e göre filitre yaptım. "otel" tablolarındaki "id" bu otelin id' si olanları getir. gayet basit ve kullanışlı. kodu da şöle yaptı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
	%>

buarya kadar da herşey hoş.. GELELİM SORUNUMA:

o otel ile ilgili yorum yapılmışsa getiriyor. hiç yorum yoksa sayfa açılmıyor. "server error " veriyor. anlamadım gitti yaaa .

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.

ilgin için çok teşekkür ederim amao kadar iyi değilim kodlamada. veritabanım access. o kriterlerde kayıt bulamadığı için hata veriyor. benim de isteğim hata vermesin.. henüz yorum yok. falan desin. bunu kendimce birazdenedim yapamadım. neyi nereye koyacağımı yazıveren bir arkadaşım olsa sonsuz dua edecem; ardına da <% loop %> koyacam yaa

<%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

dostum bu sefer yorum ekli olanları da açmıyor. (

500 internal server error veriyor

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

kotnrol' ler kontrol yaptım .. sorun o değil (

yardım yok mu?

aşağıdaki satırı düzeltirsen olur

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

buradaki "end if " i en alta otel.close dan hemen öncesine koy.

wallahai sağol dostum yaklaştığımızı hissediyorum. en alta koyduğumda sadece o yazı geliyor; sayfanın kalanı yok..

move next in altına koydum

<%
a="0"
end if
%>
<%
otel.movenext
next
end if

%>

şeklinde koydum bu sefer de sadece oradan aşağısı görünüyor. yorum bölgesinin yukarısı yok.

çözemedim gitti ya