ADODB.Recordset (0x800A0CB3) ?

bLackStar · 27 Eylül 2005

Hata Tipi:
ADODB.Recordset (0x800A0CB3)
Geçerli Kayıt Dizisi yer işaretlerini desteklemiyor. Bu, sağlayıcının veya seçili kayıt kümesi türünün bir sınırlaması olabilir.
/Default.asp, line 66

-

Bu hatayı neden verebilir, fikri olan var mı?

trextra · 27 Eylül 2005

Line 66 ve alttan üstten 3 satırını kopyalarmısın buraya.

bLackStar · 27 Eylül 2005

Aslında olay kısaca şu, ilk olarak verileri komple listeletiyordum, baştan sona problem yoktu. Şimdi sayfalatma yapmaya çalıştım. Bir döküman buldum, yazıya uygun hazırladım herşeyini fakat sorun çıkarttı.

<table width="600" align="center" bgcolor="#3399CC">
<%
rs.pagesize = 5
rs.absolutepage = sf
sayfa = rs.pagecount
for i=1 to rs.pagesize '66. satır...
if rs.eof then exit for
%>
<tr valign="top">
<td width="172" bgcolor="#006699"><table width="100%" align="center" bordercolor="#FFFFFF" bgcolor="#00557D" valign="top">

trextra · 27 Eylül 2005

<%
If sf="" Then sf="1"
rs.pagesize = 5
rs.absolutepage = sf
sayfa = rs.pagecount
for i=1 to rs.pagesize
If rs.eof Then exit for
%>

sf değişkeni boşsa bunu 1. sayfa olarak algılaması lazım. yoksa hangi sayfayı getireceğini bilemez. sf değişkenini "QueryString" olarakmı alıyorsun?

bLackStar · 27 Eylül 2005

evet sf'yi QueryString olarak alıyorum. Aşağıya tüm kodu past ettim. Bir yerde bir hatam var, nerede bulamıyorum

Kod:

<html>
<head>
<title>SiberTR</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<style type="text/css">
<!--
body {
	background-color: #CCCCCC;
}
body,td,th {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
.style8 {color: #FFFFFF}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<%
sf = Request.querystring("sf")
if sf="" then 
sf=1
end if
%>
</head>

<body>
<p>
<!-- #include file="ayarlar.asp" -->
<%
sorgu = "Select * from veri where onay='ok'"
set rs=strdb1.execute(sorgu)
%>
</p>
<table width="600" align="center" bgcolor="#3399CC" >
  <tr>
    <td bgcolor="#004F75"><div align="center">
        <span class="style8"><% Response.Write(site) %>
    - Ziyaretçi Defteri</span></div></td>
  </tr>
  <tr>
    <td><div align="center">
      <table width="100%" border="0" cellpadding="0" cellspacing="0" >
        <tr>
          <td bgcolor="#006699"><div align="center"><a href="mesajekle.asp" class="style8">Ziyaretçi defterine mesaj eklemek istermisiniz? </a></div></td>
          </tr>
      </table>
    </div></td>
  </tr>
</table>
<table width="600" align="center" bgcolor="#3399CC"> 
<%
rs.pagesize = 2
rs.absolutepage = sf
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
%>
  <tr valign="top">
    <td width="172" bgcolor="#006699"><table width="100%" align="center" bordercolor="#FFFFFF" bgcolor="#00557D" valign="top">
      <tr>
        <td width="43%" bgcolor="#004F75"><span class="style8">Isim:</span></td>
        <td width="57%" bgcolor="#006699"><span class="style8"><%=rs("isim") %></span></td>
      </tr>
      <tr>
        <td bgcolor="#004F75"><span class="style8">Soyad:</span></td>
        <td bgcolor="#006699"><span class="style8"><%=rs("soyad") %></span></td>
      </tr>
      <tr>
        <td bgcolor="#004F75"><span class="style8">Şehir:</span></td>
        <td bgcolor="#006699"><span class="style8"><%=rs("sehir") %></span></td>
      </tr>
      <tr>
        <td bgcolor="#004F75"><span class="style8">Cinsiyet:</span></td>
        <td bgcolor="#006699"><span class="style8"><%=rs("cinsiyet") %></span></td>
      </tr>
    </table></td>
    <td width="416" bgcolor="#FFFFFF"><table width="100%" align="center" bgcolor="#FFFFFF" >
      <tr>
        <td bgcolor="#FFFFFF"><%=rs("mesaj") %></td>
      </tr>
    </table>
    <p> </p>    </td>
  </tr>
  <%
rs.movenext
next
%>
</table>
<%
for y=1 to sayfa 
if CINT(TRIM(sf))=CINT(TRIM(y)) then%>
<b>[<%response.write "" & y %>"></b><%
else
response.write " <a href=""default.asp?sf=" & y & """>" & y & "</a>"
end if
%><%next%>
<%
strdb1.close
set strdb1=nothing
%> 
</body>
</html>

trextra · 27 Eylül 2005

Kod:

edit

Tekrar denermisin bi.

bLackStar · 27 Eylül 2005

yok 60. satırda hata verdi. (rs.absolutepage = sf)

trextra · 27 Eylül 2005

sayfa adresini yazarmısın browserda bakayım.

bLackStar · 27 Eylül 2005

komple zip yapıp, siteye yükleyip ö.m. attım size. sorunu anlayabilirsen, burayada yazarmısın belki başkalarıda aynı yerde takılır ileride.

trextra · 27 Eylül 2005

profilindeki mail adresine gönderdim. database e bağlanma ve bağlantı açma yöntemini değiştirdim. ayarlar.asp de görürsün. kodlarını editle sende durmasın burada.

c0d3r · 27 Eylül 2005

kodlarin en basina veya sayfanin en basina

<%
sf = Request.QueryString("sf")
if sf="" then
sf = 1
end if
%>

ekle sorun duzelir.

Kolay gelsin.

trextra · 27 Eylül 2005

c0d3r' Alıntı:
kodlarin en basina veya sayfanin en basina

<%
sf = Request.QueryString("sf")
if sf="" then
sf = 1
end if
%>

ekle sorun duzelir.

Kolay gelsin.

</style>
<%
sf = Request.querystring("sf")
if sf="" then
sf=1
end if
%>
</head>

Var ztn o

Recordset yapmadan bağlanmaya çalışıyordu. bağlantıda problem varmış.

c0d3r · 27 Eylül 2005

Bence korelmek yerine zenginlesmek gerekir.

Mesela ben ASP bir kod yazarken asla response.write kullanmam onun yerine ekrana.yaz "yazi" kullanirim response.redirect yerine git "url" yaparim. veya sayfalama yapmayacaksam direk kayitlari listeleteceksem listele yazarim o kendisi listeler. Hem yazdigim kodlar turkce oluyor hata oldugunda daha rahat buluyorum ( hos cok nadir hata oluyor ama ) hemde daha zevkli kiliyorum asp 'yi bence kendinizi zenginlestirin ...

Saygilar.

bLackStar · 27 Eylül 2005

çok teşekkürler. kodları değiştirmeme gerek yok zaten bu scripti tamamlayınca aspindir'den direk yayınlayacaktım. kendime hazırladığım bişey değil yani.

ADODB.Recordset (0x800A0CB3) ?

bLackStar

0

bLackStar

0

bLackStar

0

bLackStar

0

bLackStar

0

0

0

0

bLackStar