1. Home
  2. Forums Index
  3. Server Side / Microsoft IIS Web Server and ASP.NET 8:27 am Apr 28, 2026

Forum Moderators: open

Message Too Old, No Replies

ADODB.Field (0x800A0BCD)

ADODB.Field (0x800A0BCD)

         

Afser

11:31 am on May 23, 2007 (gmt 0)

10+ Year Member



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

<%@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

mattglet

11:34 am on May 23, 2007 (gmt 0)

WebmasterWorld Senior Member 10+ Year Member



Where is line 130?

Afser

11:35 am on May 23, 2007 (gmt 0)

10+ Year Member



Response.Write(Claims1.Fields.Item("Product").Value)

Afser

12:12 pm on May 23, 2007 (gmt 0)

10+ Year Member



<%@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
%>

mattglet

3:11 am on May 24, 2007 (gmt 0)

WebmasterWorld Senior Member 10+ Year Member



This query: Claims1.Source = "SELECT * FROM Drona_Products WHERE ID = " & productcode(i) is not producing any results. You need to debug your productcode() array loop to ensure the correct values are being generated.
 

Join The Conversation

Moderators and Top Contributors

Hot Threads This Week

  1. Home
  2. Forums Index
  3. Server Side / Microsoft IIS Web Server and ASP.NET 8:27 am Apr 28, 2026