Either BOF or EOF is True, or the current record has been deleted

**gilgalbiblewheel** · Mar 9, 2005 04:45

Howcome it doesn't work?

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/gemetria/kjvresp3.asp, line 0

It was working before!!!

Code:

<%Option Explicit
'this is an attempt to put kjvresp.asp into pageing.asp march 9 2005

' ADO constants used in this page
Const DB_NAME = "hebrewbible.mdb" ' Name of our database file
Const RECORDS_PER_PAGE  = 10            ' Number of records per page

Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdTableDirect = &H0200
Const adUseClient = 3
%>

<html>
<head>
  <style>
  body { font-family : Verdana; font-size : 8pt; }
  a { font-family : Verdana; font-size : 8pt; text-decoration : none; }
  </style>
<script src="javascripts/calculator.js" type="text/javascript"></script>
<script src="javascripts/letters.js" type="text/javascript"></script>
</head>
<body>

<%
  Dim connStr
Private Function GetConnectionString()
    GetConnectionString =   "Driver={Microsoft Access Driver (*.mdb)};" & _
                "DBQ=" & Server.MapPath(DB_NAME) & ";" & _
                "UID=;PWD=;"
End Function

  Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
    
    rs.PageSize = 10
    rs.CacheSize = 5
    rs.CursorLocation = adUseClient
    Set connStr = server.createobject("ADODB.Connection")
connStr.open GetConnectionString

    
    rs.PageSize = RECORDS_PER_PAGE
    rs.CacheSize = 5
    rs.CursorLocation = adUseClient
    Dim SQL
    SQL = "SELECT * FROM hebrewbibletable "


'    rs.Open, connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect
    RS.Open SQL, connStr, adOpenForwardOnly, adLockReadOnly
    Response.Write SQL
    
    If Len(Request("pagenum")) = 0  Then
        rs.AbsolutePage = 1
      Else
        If CInt(Request("pagenum")) <= rs.PageCount Then
            rs.AbsolutePage = Request("pagenum")
          Else
            rs.AbsolutePage = 1
        End If
    End If
    
    Dim abspage, pagecnt
      abspage = rs.AbsolutePage
      pagecnt = rs.PageCount
    
    If Not rs.EOF Then
      Response.Write "PageCount : " & rs.PageCount & "<br>" & vbcrlf
      Response.Write "Absolute Page : " & rs.AbsolutePage & "<br>" & vbcrlf
      Response.Write "Total number of records : " & rs.RecordCount & "<br><br>" & vbcrlf%>
<!--#include file="gemetria2.asp"-->        
        <%Dim fldF, intRec%>
        

<form name="conv_form">
<table border="1" cellspacing="1" bgcolor="#0066CC">
<tr style="height:12.75pt">

 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Book<br></font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Chapter<br></font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Verse<br></font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Text</font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Text in Hebrew</font></th>
  </tr>

   <%  dim page
       dim i
' skip the dummy records
if not rs.eof then
rs.Move (page-1)*rs.pagesize
     ' Display the records
for i=1 to rs.pagesize
%>
<tr>
<td align=center BGCOLOR="#FFFFFF">
<%=rs("book")%>
</td>

<td nowrap align=center BGCOLOR="#FFFFFF">
<%=rs("chapter")%>
</td>

<td nowrap align=center BGCOLOR="#FFFFFF">
<%=rs("verse")%>
</td>
<td align=right BGCOLOR="#FFFFFF">
<%=rs("text_data")%>
<br>
</span>
</td>

 <td nowrap align=right BGCOLOR="#FFFFFF"><font face="BSTHebrew">
<font size='2' face="Verdana">
  <h4>Unicode</h4>
<textarea name="unic_area" rows="3" cols="16"
 class="onLoad" onmouseover="this.className='onMouseOver'"
 onmouseout="this.className='onMouseOut'">
 </textarea>
</font>
 </td>
</tr>
   <%rs.movenext
      ' Exit the loop when reaching the end of the recordset
If rs.EOF Then Exit For 'end if
next
end if%> 
 </table>
 <br>

<center> <input name="convert" type="button" value="Convert" onclick="mc2unic()"></center>
<br>
<br>
</center>
</form>        
<%        ' Now showing first, next, back, last buttons.
        Response.Write "<div align=""center"">" & vbcrlf
        Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=1"">First Page</a>"
        Response.Write "&nbsp;|&nbsp;"
        
        If abspage = 1 Then
        Response.Write "<span style=""color:silver;"">Previous Page</span>"
        Else
        Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & abspage - 1 & """>Previous Page</a>"
        End If
                Response.Write "&nbsp;|&nbsp;"
        
        If abspage < pagecnt Then
        Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & abspage + 1 & """>Next Page</a>"
        Else
        Response.Write "<span style=""color:silver;"">Next Page</span>"
        End If
        Response.Write "&nbsp;|&nbsp;"
        Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & pagecnt & """>Last Page</a>"
        Response.Write "</div>" & vbcrlf
        
    Else
      Response.Write "No records found!"
    End If
            
    rs.Close
    Set rs = Nothing
%>
</body>
</html>

**DaveMaxwell** · Mar 9, 2005 06:35

line 0? You can't have a line zero....

**ole dawg** · Mar 9, 2005 09:17

What's in gemetria2.asp? Does it have any data retrieval or recordset code in it?

**gilgalbiblewheel** · Mar 9, 2005 13:58

Originally Posted by ole dawg

What's in gemetria2.asp? Does it have any data retrieval or recordset code in it?

No it doesn't

**gilgalbiblewheel** · Mar 9, 2005 13:59

line 0
but after working from the model code adding line by line when

Code:

   <%  dim page
   dim i
' skip the dummy records
if not rs.eof then
rs.Move (page-1)*rs.pagesize
 ' Display the records
for i=1 to rs.pagesize
%>

was added (or replaced), that's when the error showed up (even though it said line 0).
THe problem with the model code was that there was no SQL statement (SQL = "SELECT..."). So when framing a table there were too many for/while loops + IFs:

Code:

If Not rs.EOF Then
Response.Write "PageCount : " & rs.PageCount & "<br>" & vbcrlf
Response.Write "Absolute Page : " & rs.AbsolutePage & "<br>" & vbcrlf

Response.Write "Total number of records : " & rs.RecordCount & "<br><br>" & vbcrlf

Dim fldF, intRec

Response.Write "<table border=1 align=center cellpadding=3 cellspacing=0><thead><tr>"
For Each fldF in rs.Fields
Response.Write "<td>" & fldF.Name & "</td>"
Next
Response.Write "</tr></thead><tbody>"

For intRec=1 To rs.PageSize
If Not rs.EOF Then
Response.Write "<tr>"
For Each fldF in rs.Fields
Response.Write "<td>" & fldF.Value & "</td>"
Next
Response.Write "<tr>"
rs.MoveNext
End If
Next
Response.Write "</tbody></table><p>"

So I guess my question should be "How do you replace the table so that I can call as many fieldnames as I choose instead of everything?"

**DKY** · Mar 30, 2005 12:01

this is just an extremely noob guess, cause I have no idea what's going on here and am just scratching the surface on this eof bof thing. Can't you do something like this

Code:

If Not rs.EOF AND Not rs.BOF Then
Response.Write ""
Else
'put your entire page here
End If

What does EOF and BOF stand for anyway?

**team_ecommerce** · Apr 3, 2005 22:37

That error occurs when you try to access a record when the record pointer is at the End Of File (EOF) already. To avoid that, make sure that you test first if the pointer is at EOF before fetching a row.

Ex.
'Open table part here yada yada...
IF NOT MY_RECORDSET.EOF THEN
' do a data access command here like response.write MY_RECORDSET("COLUMN1")
ELSE
response.write "Error. You are at the End Of File"
END IF

Makes sense?

User Tag List

Thread: Either BOF or EOF is True, or the current record has been deleted

Thread Tools

Display

Either BOF or EOF is True, or the current record has been deleted

no query in gemetria3

THis might be the problem:

Bookmarks

Bookmarks

Posting Permissions