Results 1 to 3 of 3
Related
-
onmouseover to change value to true? Forum: Javascript Forum
Replies: 0 -
you'll never know true joy Forum: Webmaster Ethics
Replies: 3
-
05-23-2007, 08:31 AM #1
ADODB.Field (0x800A0BCD) Either BOF or EOF is True,
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> </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 %>
Last edited by vinyl-junkie; 05-23-2007 at 05:56 PM. Reason: Added code tags
-
05-23-2007, 05:57 PM #2
Re: ADODB.Field (0x800A0BCD) Either BOF or EOF is True,
What is on line 130?
Music Around The World - Collecting tips, trade
and want lists, album reviews, & more
-
05-24-2007, 07:29 AM #3
Re: ADODB.Field (0x800A0BCD) Either BOF or EOF is True,
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.
Music Around The World - Collecting tips, trade
and want lists, album reviews, & more
Cloudjiffy- PaaS for Developers
10-05-2020, 12:30 AM in Web Hosting Forum