Ir para conteúdo
Fórum Script Brasil
  • 0

Alguems Sabe O Q Pode Ser Esse Erro.

kiloko

Perguntado por kiloko,

 Share

Pergunta

8 respostass a esta questão

Posts Recomendados

  • 0
[ GuTo ]

[ GuTo ]

Postado
Postado

Poste o código ae!

Link para o comentário
Compartilhar em outros sites
  • 0
kiloko

kiloko

Postado
  • Autor
Postado

<%@ Language = VBScript %>

<%

Option Explicit

%>

<!--#include file="conexao.inc"-->

<%

Dim conexaodb

Dim QuantidadeRegistros

Dim PaginaAtual

Dim RegistroAtual

Dim TotalRegistros

Dim PaginaAnterior

Dim PaginaPosterior

PaginaAtual = Request("PaginaAtual")

If PaginaAtual = "" Then

  PaginaAtual = 1

End If

QuantidadeRegistros = Session("RegistrosPorPagina")

If QuantidadeRegistros = "" Then

  QuantidadeRegistros = 25

End If

Sub GuardaCampos

Session("NomeCliente") = Request.Form("txtnome")

If Request.Form("Quantidade") <> "" Then

  Session("RegistrosPorPagina") = Request.Form("Quantidade")

End If

End Sub

Sub ProcessaPagina

Dim rsConsulta

Dim InstrucaoSQL

Dim TotalClientes

Dim TotalPaginas

Dim NomeScript

Dim Contador

Dim ZeroAEsquerda

Dim Auxiliar

GuardaCampos

Set rsConsulta = Server.CreateObject("ADODB.RecordSet")

InstrucaoSQL = Session("InstrucaoSQL")

If InstrucaoSQL = "" Then

  InstrucaoSQL = "SELECT iddica, dica, console FROM dicas"

  Session("InstrucaoSQL") = InstrucaoSQL

End If

rsConsulta.CursorLocation = AdUseClient

rsConsulta.cachesize = 2

call abreConexao

set rsConsulta = conexaodb.execute(InstrucaoSQL)

rsConsulta.Pagesize = QuantidadeRegistros

TotalPaginas = cint(rsConsulta.PageCount)

TotalRegistros = cint(rsConsulta.PageSize)

RegistroAtual = 0

If rsConsulta.EOF Then

  Session("ConsultaErro") = 1

  rsConsulta.Close

  Set rsConsulta = Nothing

  call fechaconexao

 

  Response.Redirect "Consulta.ASP"

Else

  rsConsulta.MoveFirst

  rsConsulta.AbsolutePage = PaginaAtual

  Response.Write "<html>"

  Response.Write "<head>"

  Response.Write "<title>Fabricio Costa - Intranet - Resultado da Consulta de Clientes</title>"

  Response.Write "</head>"

  Response.Write "<body link=""#245399"" vlink=""#245399"" alink=""#245399"">"

  Response.Write "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">"

  Response.Write "<tr><td width=""30%""><p align=""center""><img src=""images/logompm.jpg"" width=""163"" height=""164""></td>"

  Response.Write "<td width=""80%""><p align=""center""><font face=""Arial"" size=""4""><strong>Fabrício Costa - Desenvolvimento para Web</strong></font></td></tr>"

  Response.Write "</table>"

  Response.Write "<p align=""center""><font face=""Arial"" size=""3""><strong>Resultado da Pesquisa no Cadastro de Clientes</strong></font></p>"

  Response.Write "<p align=""left""><font face=""Arial"" size=""2""><strong>Mostrando página " & PaginaAtual & " de " & TotalPaginas & "<br>"

  Response.Write "Selecione a página: ["

  ZeroAEsquerda = "0"

  NomeScript = Request.ServerVariables("script_name")

 

  PaginaAnterior = ""

  PaginaPosterior = ""

  For Contador = 1 to TotalPaginas

  If Contador >= 10 Then

    ZeroAEsquerda = ""

  End If

  Auxiliar = "<a href=" & NomeScript

  Auxiliar = Auxiliar & "?PaginaAtual=" & Contador

  Auxiliar = Auxiliar & "'>" & ZeroAEsquerda & Contador & "</a>"

  Response.write " "& Auxiliar & " "

  If (PaginaAtual - 1) = Contador Then

    PaginaAnterior = "<a href='" & NomeScript & "?PaginaAtual=" & Contador

    PaginaAnterior = PaginaAnterior & "'>Página Anterior</a>"

  End If

  If (PaginaAtual + 1) = Contador Then

    PaginaPosterior = "<a href='" & NomeScript & "?PaginaAtual=" & Contador

    PaginaPosterior = PaginaPosterior & "'>Próxima Página</a>"

  End If

  Next

  Response.Write ]</strong></font></p>"

  Do Until rsConsulta.EOF OR RegistroAtual >= TotalRegistros

  Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">"

  Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>"

  Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta.Fields("iddica") & "</strong></font></td>"

 

  Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">"

  Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>"

  Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta.Fields("dica") & "</strong></font></td>"

 

  Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">"

  Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>"

  Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta.Fields("console") & "</strong></font></td>"

  Response.Write "</table><p>"

  RegistroAtual = RegistroAtual + 1

  rsConsulta.MoveNext

  Loop

  Session("ConsultaErro") = 0

  rsConsulta.Close

  Set rsConsulta = Nothing

  call fechaConexao

 

  Response.Write"<p align=""center""><font face=""Arial"" size=""2"" color=""#245399""><strong><a href=""Consulta.ASP"">Nova Consulta</a>" & " | " & PaginaAnterior & " | " & PaginaPosterior & "</strong></font></p>"

  Response.Write"<p><font face=""Arial"" size=""1""><strong>Copyright 2000© - Fabricio Costa - todos direitos reservados.</strong></font></p>"

  Response.Write"</body>"

  Response.Write"</html>"

End If

End Sub

ProcessaPagina

%>

<!-- #Include file="ADOVBS.INC" -->

<html>

<head>

<title></title>

</head>

<body>

</body>

</html>

Esse seria o código e de um script pronto para paginação estou estudando ele mais não consigo resolver esse problema.

A linha q está em vermelho e a q apresenta o erro.

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
Postado
Esse sistema aí não tem um global.asa, por acaso?

Desculpe brother, mas pra que global.asa numa paginação? blink.gif

Tá maluko, hehehe!

kiloko

Quanto a este tipo de paginação eu nunca usei.

Eu já fiz uma sem usar estes Rs.MoveFirst e tals e um outro usando apenas o Rs.PageSize.

Este segundo q lhe falo tem um artigo no site imasters.com.br e em alguns tópicos aki do fórum o URSO deu várias vezes o link para o mesmo.

Dê uma pesquisada...

Link para o comentário
Compartilhar em outros sites
  • 0
Espartaco

Espartaco

Postado
Postado
' date='Jan 31 2004, 08:20 AM']
Esse sistema aí não tem um global.asa, por acaso?

Desculpe brother, mas pra que global.asa numa paginação? blink.gif

Tá maluko, hehehe!

kiloko

Quanto a este tipo de paginação eu nunca usei.

Eu já fiz uma sem usar estes Rs.MoveFirst e tals e um outro usando apenas o Rs.PageSize.

Este segundo q lhe falo tem um artigo no site imasters.com.br e em alguns tópicos aki do fórum o URSO deu várias vezes o link para o mesmo.

Dê uma pesquisada...

Olha o script do Global.asa da páginação aí....

<script LANGUAGE=VBScript RUNAT=Server>

Option Explicit

Sub Application_OnStart

End Sub

Sub Session_OnStart	
	Session.Timeout = 5 ' minutos

	InicializaVariaveis	
End Sub

Sub InicializaVariaveis
	Session("InstrucaoSQL") = ""
	Session("RegistrosPorPagina") = 25
End Sub

</SCRIPT>

Link para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado 

<!--#include file="conexao.inc" -->
<%
  PaginaAtual = Request("PaginaAtual")
  	If PaginaAtual = "" Then
     PaginaAtual = 1
  	End If

  QuantidadeRegistros = Session("RegistrosPorPagina")
  	If QuantidadeRegistros = "" Then
      QuantidadeRegistros = 3
  	End If

  Session("NomeCliente") = Request.Form("txtnome")
  	If Request.Form("Quantidade") <> "" Then
      Session("RegistrosPorPagina") = Request.Form("Quantidade")
  	End If


  InstrucaoSQL = "SELECT * FROM Authors"
  Set rsConsulta = Server.CreateObject("ADODB.RecordSet")
  Set rsConsulta = Conn.execute(InstrucaoSQL)
  	rsConsulta.Pagesize = QuantidadeRegistros
  	TotalPaginas = cint(rsConsulta.PageCount)
  	TotalRegistros = cint(rsConsulta.PageSize)
  	RegistroAtual = 0

  If rsConsulta.EOF Then
     Session("ConsultaErro") = 1
     rsConsulta.Close
     Set rsConsulta = Nothing  
     Response.Redirect "Consulta.ASP"
  Else
     rsConsulta.MoveFirst
'     rsConsulta.AbsolutePage = PaginaAtual
     Response.Write "<html>"
     Response.Write "<head>"
     Response.Write "<title>Fabricio Costa - Intranet - Resultado da Consulta de Clientes</title>"
     Response.Write "</head>"
     Response.Write "<body link=""#245399"" vlink=""#245399"" alink=""#245399"">"
     Response.Write "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">"
     Response.Write "<tr><td width=""30%""><p align=""center""><img src=""images/logompm.jpg"" width=""163"" height=""164""></td>"
     Response.Write "<td width=""80%""><p align=""center""><font face=""Arial"" size=""4""><strong>Fabrício Costa - Desenvolvimento para Web</strong></font></td></tr>"
     Response.Write "</table>"
     Response.Write "<p align=""center""><font face=""Arial"" size=""3""><strong>Resultado da Pesquisa no Cadastro de Clientes</strong></font></p>"
     Response.Write "<p align=""left""><font face=""Arial"" size=""2""><strong>Mostrando página " & PaginaAtual & " de " & TotalPaginas & "<br>"
     Response.Write "Selecione a página: ["
      ZeroAEsquerda = "0"
      NomeScript = Request.ServerVariables("script_name")  

     PaginaAnterior = ""
     PaginaPosterior = ""
      For Contador = 1 to TotalPaginas
       If Contador >= 10 Then
         ZeroAEsquerda = ""
       End If
       Auxiliar = "<a href='" & NomeScript
       Auxiliar = Auxiliar & "?PaginaAtual=" & Contador
       Auxiliar = Auxiliar & "'>" & ZeroAEsquerda & Contador & "</a>"
       Response.write " "& Auxiliar & " "

        If (PaginaAtual - 1) = Contador Then
           PaginaAnterior = "<a href='" & NomeScript & "?PaginaAtual=" & Contador
           PaginaAnterior = PaginaAnterior & "'>Página Anterior</a>"
        End If

        If (PaginaAtual + 1) = Contador Then
           PaginaPosterior = "<a href='" & NomeScript & "?PaginaAtual=" & Contador
           PaginaPosterior = PaginaPosterior & "'>Próxima Página</a>"
        End If
      Next

      Response.Write "]</strong></font></p>"

      Do Until rsConsulta.EOF OR RegistroAtual >= TotalRegistros
       Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">"
       Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>"
       Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta(0) & "</strong></font></td>"  
       Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">"
       Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>"
       Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta(1) & "</strong></font></td>"  
       Response.Write "<table border=""0"" width=""100%"" bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"" cellpadding=""0"">"
       Response.Write "<tr><td width=""15%"" bgcolor=""#BFBFBF"" align=""left""><font face=""Arial"" size=""2"" color=""#245399""><strong>Razão Social:</strong></font></td>"
       Response.Write "<td width=""30%"" bgcolor=""#BFBFBF""><font face=""Arial"" size=""2"" color=""#000000""><strong>" & rsConsulta(2) & "</strong></font></td>"
       Response.Write "</table><p>"

       RegistroAtual = RegistroAtual + 1
       rsConsulta.MoveNext
     Loop

      Session("ConsultaErro") = 0
      rsConsulta.Close
      Set rsConsulta = Nothing  
      Response.Write"<p align=""center""><font face=""Arial"" size=""2"" color=""#245399""><strong><a href=""Consulta.ASP"">Nova Consulta</a>" & " | " & PaginaAnterior & " | " & PaginaPosterior & "</strong></font></p>"
      Response.Write"<p><font face=""Arial"" size=""1""><strong>Copyright 2000© - Fabricio Costa - todos direitos reservados.</strong></font></p>"
      Response.Write"</body>"
      Response.Write"</html>"
  	End If
%>

Brother!!

Não testei seu código, apenas adaptei algumas coisas, veja se funciona e re-estruture no seu sistema (se funcionar, é claro smile.gif )

Até +

Urso

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...