I am getting this error and I can't figure out why. Can someone shed some light on this for me?
Thanks
Here is the error (I highlighted the line below)
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/scripts/quote/quote.asp, line 51
Here is the code
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connQuote.asp" -->
<%
' Declare the variables
Dim rsQuote
Dim rsQuote_numRows
Dim Number
' Make the Database connection and select the tables
Set rsQuote = Server.CreateObject("ADODB.Recordset")
rsQuote.ActiveConnection = MM_connQuote_STRING
rsQuote.Source = "SELECT * FROM Quote"
rsQuote.CursorType = 3
rsQuote.CursorLocation = 2
rsQuote.LockType = 1
rsQuote.Open()
rsQuote_numRows = 0
' Select a random recored in the database and storing it into the Number variables
Randomize
Number = (Int(RND * rsQuote.RecordCount))
' Move the cursor to the random quote in the database
rsQuote.Move Number
%>
<html>
<head>
<title>Quote</title>
<style>
a:link { text-decoration : underline; color : #666666 }
a:visited { text-decoration : underline; color : #666666 }
a:hover { text-decoration : underline; color : #000000 }
a.credit:link { text-decoration : underline; color : #FFFFFF }
a.credit:visited { text-decoration : underline; color : #FFFFFF }
td { text-decoration : none; color : #000000; font-family : arial; font-size : 9pt }
</style>
</head>
<body>
<%
' Display the quote in a table
%>
<table width="30%" border="0" cellspacing="2">
<tr>
<td><em><b><%=(rsQuote.Fields.Item("Aut or").Value)%></b></em></td>
</tr>
<tr>
<td><%=(rsQuote.Fields.Item("Quote").Value)%>< ;/td>
</tr>
</table>
</body>
</html>
<%
' Close the record set
rsQuote.Close()
Set rsQuote = Nothing
%>
Topic Options
Post Options
Thanks(0)
