! Paginação MySQL + ASP

podrera · Novembro 20, 2005

Olá Pessoal!Eu tenho um sistema de guestbook que funcionava corretamente quando era em SQL Server, depois que mudei pro mysql o negócio desandou...tive que trocar a programação do guestbook mais de 5 vezes e nenhuma delas funcionou!Peguei esse código na net de paginação em MySQL, está dando este erro, alguem poderia me ajudar?Desde já agradeço a atenção de todos.-------------------------------------------------------------------------------------------------Tipo de erro:Microsoft Cursor Engine (0x80004005)O provedor de dados ou outro serviço retornou um status E_FAIL./sites/en/gbook.asp, line 56--------------------------------------------------------------------------------------------<% 'Definição de Variáveis Dim ObjConn Dim ObjRecSet Dim StrQuery Dim Pag '----------------------------------------------------------- 'Controles de Paginação pag = Request.QueryString("pagina") If pag = "" Then pag = 1 End if '----------------------------------------------------------- 'Conexão com o banco de dados Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; Server=localhost; Uid=root; Pwd=; Database=efeitonocivo" ObjConn.CursorLocation = 3 '<- Cursor de conexão ObjConn.Open '<- Abre a conexão '----------------------------------------------------------- 'Criação de RecordSet Set ObjRecSet = Server.CreateObject("ADODB.RecordSet") '----------------------------------------------------------- 'Conexão Ativa Set ObjRecSet.ActiveConnection = ObjConn '----------------------------------------------------------- 'Select na tabela do banco StrQuery = " SELECT * FROM assinar " '----------------------------------------------------------- ObjRecSet.CursorType = 3 'Tipo do cursor do RecordSet ObjRecSet.PageSize = 8 'Qtde de registros a serem exibidos ObjRecSet.Open StrQuery '<- Executa o Select '----------------------------------------------------------- 'Se nao existir dados cadastrados If ObjRecSet.Eof Then Response.Write("<b>Não Existem Dados cadastrados!</b>") Else ObjRecSet.AbsolutePage = pag 'Tazemos todos os dados da tabela While Not ObjRecSet.Eof Response.Write(ObjRecSet("nome")&"<br>") ObjRecSet.MoveNext Wend End If '----------------------------------------------------------- 'Numero de páginas (Paginação) criação de links para a navegação With Response .Write("<table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""2"" border=""0"">") & Vbcrlf .Write("<tr><td colspan=""2"" height=""2""></td></tr>")& Vbcrlf .Write("<tr><td align=""center"" class=""texto"">[ -") & Vbcrlf For i = 1 to ObjRecSet.Pagecount If i = Cint(pag) then .Write("<b>"& i &"</b> ") Else .Write("<a href='" & Request.ServerVariables("Script_Name") & "?pagina=" & i & "'>" & i & "</a> ") End if Next .Write("- ]</b></td></tr><br>")& Vbcrlf .Write("</table>")& Vbcrlf End With %>