Hi all,
I have an ASP that has a list of data in it that displays a snippet of an event with a link to the detailed page. Currently there are no events in the database, which on occasion may be the case for this particular page.
My problem is i get the following error:
Is there a way around this that will allow me to leave this page without any records? Being somewhat of a beginner when it comes to customising this sort of thing, I'd appreciate any help. The code on the page displaying the records is as follows:
Thanks in advance
Dean
-------------------------------------------------------------
"The most overlooked advantage of owning a computer is that if they foul up there's no law against whacking them around a bit."
I have an ASP that has a list of data in it that displays a snippet of an event with a link to the detailed page. Currently there are no events in the database, which on occasion may be the case for this particular page.
My problem is i get the following error:
Code:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/creative/index.asp, line 155
Is there a way around this that will allow me to leave this page without any records? Being somewhat of a beginner when it comes to customising this sort of thing, I'd appreciate any help. The code on the page displaying the records is as follows:
Code:
<%
While ((Repeat1__numRows <> 0) AND (NOT pages.EOF))
%>
<tr>
<td class="linktext">
<%
Dim Mymonth1
Mymonth1 =(events.Fields.Item("Date").Value)
Response.Write Day(Mymonth1)&"-"&MonthName(Month(Mymonth1),true)&"-"&Right(Year(Mymonth1),4)
%>
</td>
</tr>
<tr>
<td width="200" class="linktext">
<%
Response.Write("<img src='[URL unfurl="true"]http://www.calvarycc.org.au/userfiles/image/church/")[/URL]
Response.Write(events.Fields.Item("Img").Value)
Response.Write("' width= '200' height= '100' border= '0'>")
%> </td>
</tr>
<tr>
<td class="linktext"><%=(events.Fields.Item("Short Description").Value)%><br>
<A HREF="events.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "ComingID=" & events.Fields.Item("ComingID").Value %>">...More>></A></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
pages.MoveNext()
Wend
%>
Thanks in advance
Dean
-------------------------------------------------------------
"The most overlooked advantage of owning a computer is that if they foul up there's no law against whacking them around a bit."