Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Foxbh

Erro na paginação em Mysql

Recommended Posts

Fiz uma paginação em Mysql, no começo ela estava funcionando normalmete, depois começo a dar erro, disendo que nada foi encontrado, como se não tivesse nada gravado no BD, isso na minha maquina , quando mandei pro servidor ela voltou a funfar, o erro so da na minha maquina, criei uma nova tabela pra testar, e ai ela funciono, na tabela que ela deveria funcionar nao funciona, [/ASP]<%Set xgames = Server.CreateObject("ADODB.Connection")xgames.Open "driver=MySQL ODBC 3.51 Driver;DATABASE=xgames;SERVER=localhost;UID=marcos;PASSWORD=teste"Const intPageSize=5 set rs=server.CreateObject("adodb.recordset")xgames.CursorLocation=3 'AdUseClientRS.Open "select * from lancamentos ",xgamesif RS.EOF then%><p align="center"><b><font size="5" face="Verdana">Ainda não existe destaque cadastrado </font></b><%else%></p><div align="center"><table border="0" width="80%"><tr><td bgcolor="#00C6FD" align="center"><b><font face="Verdana" size="2">Nome do jogo</font></b></td><td bgcolor="#00C6FD" align="center" width="337"><b><font face="Verdana" size="2">Cadastrado em</font></b></td><td bgcolor="#00C6FD" align="center" width="206"><b><font size="2" face="Verdana">Ação</font></b></td></tr><%intCurrPage=cint(Request.QueryString("CurrPage"))if intCurrPage=0 then intCurrPage=1RS.PageSize=intPageSizeRS.AbsolutePage=intCurrPage colorchanger = 0color1 = ("#E8E8FF")color2 = ("#E8E8FF")a=0 while a < intPageSize and not RS.EOFa=a+1%><tr><td width="429" bgcolor="<%=color1%>"><font face="Verdana" size="2"><%=RS.Fields("nome")%></font></td><td width="337" bgcolor="<%=color2%>"><font face="Verdana" size="2"><%=RS.Fields("data")%></font></td><td width="206" bgcolor="<%=color2%>"><p align="center"><a href="?link=modificar&acao=Informativo&id=<%=RS.Fields("id")%>">Modificar</a> | <a href="java script:confirmaExclusao('?link=excluir&id=<%=RS.Fields("id")%>&acao=lancamentos')">Excluir</a></td></tr><%RS.MoveNext If colorchanger = 1 Thencolorchanger = 0color1 = ("#E8E8FF")color2 = ("#E8E8FF")Elsecolorchanger = 1color1 = ("#DCF1FC")color2 = ("#DCF1FC")End Ifwend%> <tr><td colspan="3" bgcolor="#FFFFFF"><p align="center"><b><font size="2" face="Verdana">Pagina <%cid = Request.Querystring("cidade")for a = 1 to RS.PageCountif a <> intCurrPage then Response.Write "<a href=""?link=mostra_destaque&cidade="&cid&"&Currpage=" & a & """>" & a & "</a> "elseResponse.Write a & " "end ifnextResponse.Write ""if intCurrPage > 1 then'Response.Write "<a href=""?link=mostra_destaque&cidade="&cid&"&Currpage=" & intCurrPage-1 & """>Página Anterior</a>"end ifResponse.Write " "if intCurrPage < RS.PageCount then'Response.Write "<a href=""?link=mostra_destaque&cidade="&cid&"&Currpage=" & intCurrPage+1 & """>Próxima Página</a>"end ifRS.Closexgames.Close set rs=nothingset xgames=nothingend if%></font></b></table></div><script language="javascript">function confirmaExclusao(aURL) {if(confirm('Você tem certeza que deseja excluir ?')) {location.href = aURL;}}</script>[ASP]

Compartilhar este post


Link para o post
Compartilhar em outros sites

os drives do mysql estao instaldos corretamente??

Compartilhar este post


Link para o post
Compartilhar em outros sites

Minha conexão esta correta, e erro num da nenhum ele so diz que não acho nenhum registro no BD, so que contem dados sim, e como eu disse, se eu criar uma nova tabela e star os caminhos pra ela ai ele acha

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.