ASP üstadları Acil Yardım Lütfen!!!!

[thedukha]

Teknik Bilgiler (destek personeli için)

Hata Tipi:
ADODB.Recordset (0x800A0BCD)
Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor.
/ee/Files/SubFiles/HomePage/homeson.asp, line 37



<%
bloktitle = lhome1
call oblokust%>

<%

Kayit_Sayisi2 = ksayhome
tablewidth2 = 4
tkacanimvar=ksayhome

set liste = Server.CreateObject("ADODB.RecordSet")
SQL_L = "Select TOP "&ksayhome&" id,hangikat,fiyat,adi from urun where aktif = True order by id desc"
liste.open SQL_L,data,1,3
%>
<table border="0" align="center" cellpadding="0">
<tr>
<td>
<%

Gosterilen_kayit2 = CInt(Request.QueryString("Sayfa"))
If (Gosterilen_kayit2 ="" or Gosterilen_kayit2 = 0) Then Gosterilen_kayit2 = 1 Else Gosterilen_kayit2=Gosterilen_kayit2

Toplam_Kayit2=Cint(tkacanimvar)
ikayit2=Cint(Kayit_Sayisi2*(Gosterilen_kayit2-1))
Kacsayfa2 = tkacanimvar/Kayit_Sayisi2
If Kacsayfa2 <> Cint(Kacsayfa2) Then
Kacsayfa2=Kacsayfa2+1
End if

If Toplam_Kayit2 <=ikayit2 Then
Response.Write "<center><font class=""tablo_font"">"&shfyok&"</center>"
Else

%>
<table border="0" cellpadding="0" cellspacing="0" id="AutoNumber1">
<%
liste.move(ikayit2)===>> Line 37 burası
i = 0
Do While Not liste.Eof and i<Kayit_Sayisi2
if (i mod tablewidth2)=0 then response.write "<tr>"
tillistelism = liste("adi")
response.write "<td width='" & (100/tablewidth2) & "%' align='center' >"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><a href="default.asp?git=urun&urunid=<%= liste("id")%>&cat_id=<%=getLink(liste("hangikat"))%>"><strong><%= liste("adi") %></strong></a></td>
</tr>
<tr>
<td align="center"><a href="default.asp?git=urun&urunid=<%= liste("id")%>&cat_id=<%=getLink(liste("hangikat"))%>"><img border="0" src="<%=getresim(liste("id"))%>" width="100" height="100" alt="<%= liste("adi")%>" title="<%= liste("adi")%>" /></a></td>
</tr>
<tr>
<td align="center"> <b><%=lhome3%>:</b> <%= liste("fiyat") %> <%=strCurrency%></td>
</tr>
<tr>
<td> </td>
</tr>
</table>

<%response.write "<br></td>"

if (i+1 mod tablewidth2)=0 then response.write "</tr>"

i = i + 1
liste.MoveNext
Loop
%>
</table>
<%
End if
%>

</td>
</tr>
</table>

<%call oblokson%>
<%liste.close
set liste = nothing%>

 

[thedukha]

neden kımse bakmıyor bile yahu

 

[ShitDeath]

Üstad sayılmam ama bence bağlantında problem var.. aşağıdaki kodu incelersen ne demek istediğimi anlarsın...

<%
set baglanti=server.createobject("adodb.connection")
set liste=Server.CreateObject("ADODB.RecordSet")
baglanti.provider="Microsoft.Jet.OLEDB.4.0"
baglanti.connectionString="Data Source="&Server.MapPath("db_yolu/db_adi.mdb")
baglanti.open
%>

Sayfa sonuna da aşağıdaki kodları eklemenin hem serverı daha az yorduğu hemde güvenlik açısından iyi geldiğini duymuştum...

<%
liste.close
baglanti.close
set liste=nothing
set baglanti=nothing
%>

 

[desingby]

sorunun cevapı zaten sorunun için de "Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor." urun tablosundaki tüm kayıtları silersen bu sorunla karşılaşırsın. eger bu sorunu görmek istemiyosan if kullanmalısın