ADODB.Field (0x800A0BCD) Either BOF or EOF is True,

**Afser** · 05-23-2007, 08:31 AM

I need help from you.. i am new to asp.. i have developed asp its showing error in line 130 Error Type:
ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/daxdrona/claimdetail.asp, line 130

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<% 
'Response.Write(Request.QueryString("ID")) 
'Response.End() 
MM_authorizedUsers="" 
MM_authFailedURL="index.asp?status=expired" 
MM_grantAccess=false 
If Session("MM_Username") <> "" Then 
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ 
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then 
MM_grantAccess = true 
End If 
End If 
If Not MM_grantAccess Then 
MM_qsChar = "?" 
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" 
MM_referrer = Request.ServerVariables("URL") 
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() 
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) 
Response.Redirect(MM_authFailedURL) 
End If 
%> 
<!--#include file="Connections/DaxConn.asp" --> 
<% 
Dim Claims__MMColParam 
Claims__MMColParam = "1" 
If (Session("MM_Username") <> "") Then 
Claims__MMColParam = Session("MM_Username") 
End If 
%> 
<% 
Dim Claims 
Dim Claims_numRows 
Set Claims = Server.CreateObject("ADODB.Recordset") 
Claims.ActiveConnection = MM_DaxConn_STRING 
Claims.Source = "SELECT * FROM Drona_Claims WHERE ID = " & Request.QueryString("ID") 
'response.Write(Claims.Source) 
'Response.End() 
Claims.CursorType = 0 
Claims.CursorLocation = 2 
Claims.LockType = 1 
Claims.Open() 
Claims_numRows = 0 
%> 
<% 
Dim Repeat1__numRows 
Dim Repeat1__index 
Repeat1__numRows = -1 
Repeat1__index = 0 
Claims_numRows = Claims_numRows + Repeat1__numRows 
%> 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "(URL address blocked: See forum rules)"> 
<html> 
<head> 
<title>:: Dax Drona ::</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
<link href="images/style.css" rel="stylesheet" type="text/css"> 
</head> 
<body> 
<table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> 
<td valign="top"> 
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr valign="middle"> 
<td valign="middle"> 
<table width="780" border="0" cellspacing="0" cellpadding="0"> 
<tr> 
<td valign="top"><!--#include file="include/header.asp" --></td> 
</tr> 
<tr> 
<td valign="top" bgcolor="#FFFFFF"> 
<table width="780" border="0" cellspacing="0" cellpadding="0"> 
<tr> 
<td width="170" valign="top" bgcolor="#F7F7F7"><!--#include file="include/leftpanel.asp" --></td> 
<td width="1" bgcolor="#C9C9C9"></td> 
<td width="609" valign="top"> 
<div align="center"> 
<table width="590" border="0" align="center" cellpadding="0" cellspacing="0"> 
<tr> 
<td height="500" valign="top" class="bodytext"> 
<!-- body text starts here --> 
<h2>Claims scorecard Details </h2> 
<% If Claims.EOF And Claims.BOF Then %> 
<p><strong>Sorry, you have not registered any claims as yet.</strong> </p> 
<p><a href="new_claim.asp">Register a new claim >> </a></p> 
<% End If%> 
<% If Not Claims.EOF Or Not Claims.BOF Then %> 
<table border="0" cellspacing="0" cellpadding="4" width="90%"> 
<tr class="FormHeader"> 
<td>SLNo</td> 
<td>Product code </td> 
<td>Product name</td> 
<td>Qty</td> 
<td>Unit Points</td> 
<td>Total Points</td> 
</tr> 
<% tmpproduct=Claims.Fields.Item("Product").Value 
tmpqty=Claims.Fields.Item("Quantity").Value 
productcode=split(tmpproduct,",") 
qtyvalue=split(tmpqty,",") 
for i = 0 to ubound(productcode)%> 
<tr> 
<td><%=Response.Write(i+1)%></td> 
<td><%Response.Write(productcode(i))%></td> 
<td> 
<% 
Dim Claims1 
Dim Claims1_numRows 
Set Claims1 = Server.CreateObject("ADODB.Recordset") 
Claims1.ActiveConnection = MM_DaxConn_STRING 
Claims1.Source = "SELECT * FROM Drona_Products WHERE ID = " & productcode(i) 
'response.Write(Claims1.Source) 
'Response.End() 
Claims1.CursorType = 0 
Claims1.CursorLocation = 2 
Claims1.LockType = 1 
Claims1.Open() 
Response.Write(Claims1.Fields.Item("Product").Value) 
unitpoints = Claims1.Fields.Item("Points").Value 
Claims_numRows1 = 0 
%> </td><% 
Claims1.Close() 
Set Claims1 = Nothing 
%> 
<td><%Response.Write(qtyvalue(i))%></td> 
<td><%=unitpoints%></td> 
<td><%Response.Write(unitpoints*qtyvalue(i))%></td> 
</tr> 
<% next %> 
</table> 
<% End If %> 
<p align="center"><input type="button" name="back" value="Back" onclick="history.back()" onMouseOver="this.className='Button-Focus'" onMouseOut="this.className='Button'" class="Button"></p> 
</p> 
<!-- body text ends here --> </td> 
</tr> 
<tr> 
<td>&nbsp;</td> 
</tr> 
</table> 
</div> </td> 
</tr> 
</table> </td> 
</tr> 
<tr> 
<td valign="top"><!--#include file="include/footer.asp" --></td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
</body> 
</html> 
<% 
Claims.Close() 
Set Claims = Nothing 
%>

Can any one help me

**vinyl-junkie** · 05-23-2007, 05:57 PM

What is on line 130?

**vinyl-junkie** · 05-24-2007, 07:29 AM

Do not cross-post this thread in another forum. If you want help with your problem, please answer the question I asked in a previous post.

Thread: ADODB.Field (0x800A0BCD) Either BOF or EOF is True,

Thread Tools

Related

onmouseover to change value to true? Forum: Javascript Forum

you'll never know true joy Forum: Webmaster Ethics

ADODB.Field (0x800A0BCD) Either BOF or EOF is True,

Re: ADODB.Field (0x800A0BCD) Either BOF or EOF is True,

Re: ADODB.Field (0x800A0BCD) Either BOF or EOF is True,

Tags for this Thread

How to get PR for website?

Is Directory Submissions still an effective way for link...

photoshop

Hostripples India-100% Secured Windows Shared hosting Plan

Hostripples India-100% Secured Windows Shared hosting Plan