Member Avatar for tarunisgod

When i try to extract the data from a datbase and display it in text area i get the following error message inside the text box:

<font face="Arial" size=2>
<p>ADODB.Field</font> <font face="Arial" size=2>error '800a0bcd'</font>
<p>
<font face="Arial" size=2>Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.</font>
<p>
<font face="Arial" size=2>/feedback online/Liked.asp</font><font face="Arial" size=2>, line 71</font>

The Code that gives the error is:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/sqlnew.asp" -->
<%
Dim Recordset1__fname
Recordset1__fname = "a"
If (Session("fname")    <> "") Then 
  Recordset1__fname = Session("fname")   
End If
%>
<%
Dim Recordset1__fclass
Recordset1__fclass = "a"
If (Session("fclass")   <> "") Then 
  Recordset1__fclass = Session("fclass")  
End If
%>
<%
Dim Recordset1__fmodule
Recordset1__fmodule = "a"
If (Session("fmodule")   <> "") Then 
  Recordset1__fmodule = Session("fmodule")  
End If
%>
<%
Dim Recordset1__fuser
Recordset1__fuser = "a"
If (Session("MM_Username")  <> "") Then 
  Recordset1__fuser = Session("MM_Username") 
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_sqlnew_STRING
Recordset1.Source = "SELECT liked_about_session  FROM feedback  WHERE faculty_name='" + Replace(Recordset1__fname, "'", "''") + "' and class='" + Replace(Recordset1__fclass, "'", "''") + "' and module_covered='" + Replace(Recordset1__fmodule, "'", "''") + "' and User_name='" + Replace(Recordset1__fuser, "'", "''") + "'"

Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Liked About Session</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
	font-size: 36px;
	font-weight: bold;
}
-->
</style>


</head>

<body bgcolor="#E8FFEE">

<p class="style1">Feedback Reports
</p>
<form action="" method="post" name="form1">
   <p><strong>  Liked about the Session</strong></p>
     <p>
      <label for="textfield"></label>
	     <textarea name="textarea" cols="80" rows="15" wrap="virtual" ><% =(Recordset1.Fields.Item("liked_about_session").Value)%></textarea>
  </p>
  </form>
<p class="style1">&nbsp;</p>

</body>
</html>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

--
where fname,fclass and fmodule are the session variables.
Can anyone crack this??

  • 2 Contributors
  • 1 Reply
  • 131 Views
  • 1 Week Discussion Span
  • Latest Post Latest Post by pmpn
Member Avatar for pmpn

change line no 71
instead of this <% =(Recordset1.Fields.Item("liked_about_session").Value)%> use

<% 
if not Recordset1.eof then
    response.write(Recordset1.Fields.Item("liked_about_session").Value)
end if
%>
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.