Ir para conteúdo

POWERED BY:

Arquivado

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

designmix

Que erro é esse?

Por , em ASP Clássico

Recommended Posts

designmix    0

designmix
Postado 

A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto. /dtp/default_mostra_tudo.asp, line 7
a linha do erro

ASP

[*]

 

[*]1- <!--#include FILE="_conn/bib_conexao_.asp"-->

 

[*]2- <%

 

[*]3-

 

[*]4- call abre_conexao

 

[*]5-

 

[*]6- Set Rstodas = Server.CreateObject("ADODB.Recordset")

 

[*]7- Rstodas.Open "SELECT COUNT(*) AS NRecords FROM noticia"

 

[*]8-

 

[*]9- NRecords = Rstodas("NRecords")

 

[*]10- Rstodas.Close

 

[*]11- Set Rstodas = Nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

kauebranco    0

kauebranco
Postado

axo que precisa colocar o objeto de conexão depois da query ..por exemplo ..Rstodas.Open "SELECT COUNT(*) AS NRecords FROM noticia",conexao...

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Tenho essa linha na minha paginação , so que ela mostra as paginas assim

1 2 3 4 5 gostaria que ficasse voltar e avançar

 

 

ASP

[*]<%

 

[*]

 

[*] For Linktemp = 1 to paginas 

 

[*] %>

 

[*] <td><a href="default_mostra_tudo.asp?pagina=<%= LinkTemp%>"><%= LinkTemp%></a> </td>

 

[*] <%next%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você precisa ver aul é a pagina atual pra poder alterar estes linksonde você define a pagina atual??

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Esta assim

ASP

[*]<%

 

[*]

 

[*] If NumReg > 0 Then

 

[*] For LinkTemp = 1 to NumReg

 

[*] if rsNoticia.EOF = Flase then rsNoticia.MoveNext

 

[*] Next

 

[*] End If 

 

[*] regAtual = 1

 

[*]

 

[*] While Not rsNoticia.EOF AND regAtual <= 5

 

[*]

 

[*] %>

 

[*] <tr>

 

[*] <td width="14%" bgcolor="#EEEEEE" height="22">

 

[*] <div align="left" class="texto"><font color="#CC0000"><a href="default_db_mostra.asp?id=<%=rsNoticia("id")%>"><%= rsNoticia ("data")%></a></font></div></td>

 

[*] <td height="22" bgcolor="#EEEEEE"><a href="default_db_mostra.asp?id=<%=rsNoticia("id")%>">

 

[*] <div align="left"><span class="texto"><small><%= rsNoticia ("materia")%></small> </span></div></a></td>

 

[*] </tr>

 

[*] <%

 

[*] rsNoticia.MoveNext

 

[*] MunReg = NumReg + 1

 

[*] regAtual = regAtual + 1

 

[*] Wend

 

[*] %>

 

[*] </table>

 

[*] <table align="center">

 

[*] <tr>

 

[*] <%

 

[*]

 

[*] For Linktemp = 1 to paginas 

 

[*] %>

 

[*] <td class="texto"><a href="default_mostra_tudo.asp?pagina=<%= LinkTemp%>"><%= LinkTemp%></a> </td>

 

[*] <%next%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

logo no inicio tem um erro de digitação que coloquei em destaque

 

If NumReg > 0 Then

 

For LinkTemp = 1 to NumReg

 

if rsNoticia.EOF = Flase then rsNoticia.MoveNext

 

Next

 

 

 

mas o que quero saber é onde você define a pagina atual, não vi no codigo que você postou

 

acho que deve ser perto de onde você define o total de paginas que você colocou na var paginas

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Aqui esta o Codigo. do topo

ASP

[*]<!--#include FILE="_conn/bib_conexao_.asp"-->

 

[*]<%

 

[*]

 

[*]call abre_conexao

 

[*]

 

[*]Set Rstodas = Server.CreateObject("ADODB.Recordset")

 

[*]Rstodas.Open "SELECT COUNT(*) AS NRecords FROM noticia",conn

 

[*]

 

[*]NRecords = Rstodas("NRecords")

 

[*]Rstodas.Close

 

[*]Set Rstodas = Nothing

 

[*]

 

[*]If Request.QueryString("pagina") <> "" then

 

[*]pagina = Request.QueryString("pagina")

 

[*]End If

 

[*]

 

[*]If pagina = "" then

 

[*]pagina = 1

 

[*]End If

 

[*]

 

[*]If pagina < 1 Then

 

[*]Response.Write"<html><h1>Erro 69</h1></html>"

 

[*]Response.End

 

[*]End If

 

[*]

 

[*]

 

[*]NumReg = 5 * (pagina - 1)

 

[*]strSQL = "SELECT * FROM `noticia` order by data desc"

 

[*]

 

[*]Set rsNoticia = conn.Execute (strSQL)

 

[*]

 

[*]

 

[*]resto = NRecords mod 5

 

[*]

 

[*]IF resto > 0 then 

 

[*]paginas = int(NRecords / 5) + 1

 

[*]Else

 

[*]pagina = NRecords / 5

 

[*]End If

 

[*]pagina = pagina + 1

 

[*]

 

[*]%>

 

e esse é o da parte que mostro as pag e os rs

ASP

[*]<%

 

[*]

 

[*] If NumReg > 0 Then

 

[*] For LinkTemp = 1 to NumReg

 

[*] if rsNoticia.EOF = Flase then rsNoticia.MoveNext

 

[*] Next

 

[*] End If 

 

[*] regAtual = 1

 

[*]

 

[*] While Not rsNoticia.EOF AND regAtual <= 5

 

[*]

 

[*] %>

 

[*] <tr>

 

[*] <td bgcolor="#EEEEEE">

 

[*] <div align="left" class="texto"><font color="#CC0000"><a href="default_db_mostra.asp?id=<%=rsNoticia("id")%>"><%= rsNoticia ("data")%></a></font></div></td>

 

[*] <td bgcolor="#EEEEEE"><a href="default_db_mostra.asp?id=<%=rsNoticia("id")%>">

 

[*] <div align="left"><span class="texto"><small><%= rsNoticia ("materia")%></small> </span></div></a></td>

 

[*] </tr>

 

[*] <%

 

[*] rsNoticia.MoveNext

 

[*] MunReg = NumReg + 1

 

[*] regAtual = regAtual + 1

 

[*] Wend

 

[*] %>

 

[*] </table>

 

[*] <table align="center">

 

[*] <tr>

 

[*] <%

 

[*]

 

[*] For Linktemp = 1 to paginas 

 

[*] %>

 

[*] <td class="texto"><a href="default_mostra_tudo.asp?pagina=<%= LinkTemp%>"><%= LinkTemp%></a> </td>

 

[*] <%next%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você armazena em pagina mesmo então o link seria assim<td class="texto"><a href="default_mostra_tudo.asp?pagina=<%= pagina-1%>">Anterior</a> </td><td class="texto"><a href="default_mostra_tudo.asp?pagina=<%= pagina+1%>">Proximo</a> </td>ai você faz depois um tratamento pra quando for o primeiro ou o ultimo não aparecer o link

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como disse se for a pagina 1 não vai voltar mesmovocê deve tratar isso...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

acho que pode ser erro de tipo

 

tenta converter tudo para inteiro sempre e se a pagina for menor que 1 faça ela ser 1 ou tire o link de anterior é melhor do que colocar aquela arrumação de erro 69

 

Troque isso

 

ASP

    [*]If Request.QueryString("pagina") <> "" then

     

    [*]pagina = Request.QueryString("pagina")

     

    [*]End If

     

    [*]

     

    [*]If pagina = "" then

     

    [*]pagina = 1

     

    [*]End If

     

    [*]

     

    [*]If pagina < 1 Then

     

    [*]Response.Write"<html><h1>Erro 69</h1></html>"

     

    [*]Response.End

     

    [*]End If

 

por

 

 

ASP

    [*]

     

    [*]pagina = Request.QueryString("pagina") 

     

    [*]If pagina = "" then

     

    [*]pagina = 1

     

    [*]Else

     

    [*]pagina = CINT(Request.QueryString("pagina"))

     

    [*]End If

     

    [*]

 

la embaixo

 

no link você poe um if pra quando for a pagina 1 não ter link de anterior

 

ve se resolve seu blema senão a gente tenta denovo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você tem o link do bagulho funcionando pra eu ver na pratica o que ta acontecendo???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara é o seguinte

 

testei as paginas e estão funcionando

 

http://www.dtp.com.br/pagina/default_mostr...do.asp?pagina=1

 

http://www.dtp.com.br/pagina/default_mostr...do.asp?pagina=2

 

http://www.dtp.com.br/pagina/default_mostr...do.asp?pagina=3

 

mas como os links estão sendo montados é que não tá legal

 

na pagina 1 o proximo ja vai pra 3, e pra voltar ta igual parece que ta pulando de 2 em 2

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mais ele volto da 3 para 2 ?

aqui não voltou

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara nao tem erro é a pagina atual menos 1

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito