[COLOR=red]Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E24)
O conjunto de linhas não oferece suporte para busca regressiva.
/news/inc_banners.asp, line 25
18 Dim rndMax 19 rndMax = CInt(rsBanner.RecordCount) 20 rsBanner.MoveFirst 21 22 Dim rndNumber 23 Randomize Timer 24 rndNumber = Int(RND * rndMax) 25 rsBanner.Move rndNumber
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn3.asp" -->
<%
Dim rsBanner
Dim rsBanner_numRows
Set rsBanner = Server.CreateObject("ADODB.Recordset")
rsBanner.ActiveConnection = MM_conn3_STRING
rsBanner.Source = "SELECT * FROM BANNERS"
rsBanner.CursorType = 0
rsBanner.CursorLocation = 2
rsBanner.LockType = 1
rsBanner.Open()
rsBanner_numRows = 0
'------------------------------------'
'FUNÇÃO QUE FAZ A ROTAÇÃO DOS BANNERS'
'------------------------------------'
Dim rndMax
rndMax = CInt(rsBanner.RecordCount)
rsBanner.MoveFirst
Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)
rsBanner.Move rndNumber
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="banner_redirect.asp?id=<%=(rsBanner.Fields.Item("B_ID").Value)%>&url=<%=(rsBanner.Fields.Item("B_URL").Value)%>"><img src="banners/<%=(rsBanner.Fields.Item("B_IMAGE").Value)%>" alt="<%=(rsBanner.Fields.Item("B_ALT").Value)%>" width="468" height="60"></a></td>
</tr>
</table>
<%
rsBanner.Close()
Set rsBanner = Nothing
%>Desde já obrigado!
Edição feita por: Info_Tec, 25/05/2004, 15:42.
_
