40 users online (0 members and 40 guests)  


  Results 1 to 3 of 3

Related

  1. onmouseover to change value to true?    Forum: Javascript Forum
    Replies: 0
  2. you'll never know true joy    Forum: Webmaster Ethics
    Replies: 3
  1. #1
    Afser's Avatar
    New User

    Status
    Offline
    Join Date
    May 2007
    Posts
    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>&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
    Last edited by vinyl-junkie; 05-23-2007 at 05:56 PM. Reason: Added code tags

  2. #2
    vinyl-junkie's Avatar
    Moderator

    Status
    Offline
    Join Date
    Sep 2005
    Posts
    721

    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

  3. #3
    vinyl-junkie's Avatar
    Moderator

    Status
    Offline
    Join Date
    Sep 2005
    Posts
    721

    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



Tags for this Thread