[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.