Ir para conteúdo

POWERED BY:

Arquivado

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

Boris

Objeto necessário: 'RS'

Por , em ASP Clássico

Recommended Posts

Boris    0

Boris
Postado

Galera será que alguem pode me ajudar, não estou encontrando o motivo deste erro :

 

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

 

Objeto necessário: 'RS'

 

/site anfacer/Web/front/Teste_Paginacao_escolhe_pra_alterar_front.asp, line 60

ASP
<%

PagAtual = Request.QueryString("PagAtual") 'página atual

Set Conn= server.createobject("adodb.connection")

DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("bd_teste.mdb")

Conn.Open DSNtest

Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação

SQL = "SELECT * FROM tbClipping WHERE  status='A'  ORDER BY idClipping DESC"

RS.Open SQL, conn, 3

'############## paginacao Introdução  #################

'------- Coloque aqui a quantidade de registros que você deseja por página --------

Const NumPorPage = 20

'Verifica qual a página solicitada

   Dim PagAtual

   IF Request.QueryString("PagAtual") = "" Then

               PagAtual = 1 'Primeira página

         Else

                PagAtual = Request.QueryString("PagAtual")

   End If

   'Cria conexão com o Banco de Dados, já abrir anteriormente

   'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset")

   '>>> FIZ EM CIMA RS.CursorLocation = 3        Acerta a posição do cursor . 3 ou adUseClient

 

   RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

   'Cria a String SQL

   '>>> FIZ EM CIMA Dim SQLpag

   '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos"

   '>>> FIZ EM CIMA RS.Open SQLpag, Conn    Abre o RecordSet

    RS.MoveFirst                'Move o RecorSet para o início

    RS.PageSize = NumPorPage    'Coloca a quantidade de páginas

    Dim TotalPages              'Pega o número total de páginas

    TotalPages = RS.PageCount

    RS.AbsolutePage = PagAtual  'Configura a página atual

'############## paginacao Introdução  - FIM #################

Count = 0       'Zera o contador

   

'Inicia a Função DO, utilizando a quantidade de páginas especificadas

'Ou seja ele irá executar a ação até que o valor Count seja menor que "10" como está no nosso exemplo

 

i = 0

'#####################################################################

'######## LINHA 60 ######################################################

DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize

'#####################################################################

'#####################################################################

 

       ' ----- linhas coloridas -------

        if i mod 2<>0 then

        cor = "#F4F4F4"

        else

        cor = "#e1e1e1"

        end if

        '-------------------------------

        'Coloca o Nº página atual / Nº Total de páginas

        Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")  

        'Mostra os botões: Anterior e Próximo, utilizando da opção de IF

        '----------- Numeros - Calculos ---------------------------------------------

        var01 = Len(PagAtual) 'Lê o tamanho do numero

        var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.

        var03 = Left(PagAtual,var02) 'obtem os digitos mais  sig. do numero

        var04 = Right(PagAtual,1)    'obtem o digito menos sig. do numero

        var05 = var03 & 0 ' Acrecenta ZERO no final

        IF var04 <> 0 THEN        ' condição se o digito menos sig. é Zero

            inicial = var05 + 1

        final = inicial + 9  

        ELSE

        inicial = var05 - 9  

        final = var05

        END IF

        indice_i = var04 - 1 'ultimo digito  - 1

        indice_f = 10 - var04 ' 10 - digito menos sig.

        ' If CInt(inicial) < 1 Then inicial = 1

     

        If CInt(final) > CInt(TotalPages) Then final = TotalPages

        '------------------------------------------------------------------------------

        IF PagAtual > 1 THEN

        'Se for a primeira página, Mostra apenas o botão Próximo e Ultima

        Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")

            Response.Write("<a href='Teste_Paginacao_escolhe_pra_alterar_front.asp?PagAtual=" &  1 & "'>")

        Response.Write("Primeira")

            Response.Write("</a></font></B>  ")

     

        Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")

        Response.Write("<a href='Teste_Paginacao_escolhe_pra_alterar_front.asp?PagAtual=" & PagAtual - 1 & "'>")

        Response.Write("Anterior")

        Response.Write("</a></font></B>  ")

        IF PagAtual > 10 THEN

        Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")

        Response.Write("<a href='Teste_Paginacao_escolhe_pra_alterar_front.asp?PagAtual=" & inicial - 1 & "'>")

        Response.Write("...")

        Response.Write("</a></font></B>  ")

                ELSE

        Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

        Response.Write("....")

        Response.Write("</font></B>  ")

        END IF

        Else

        Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")

        Response.Write("Primeira")

        Response.Write("</font></B>  ")

        Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

        Response.Write("Anterior")

        Response.Write("</font></B>  ")

        Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

        Response.Write("...")

        Response.Write("</font></B>  ")

        End If

'---------------------- NUMEROS  ---------------------------

For i = inicial To final

     If CInt(i)=CInt(PagAtual) Then

         Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "

     END IF

     If CInt(i) < CInt(PagAtual) Then

      Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='Teste_Paginacao_escolhe_pra_alterar_front.asp?PagAtual=" & i & "'>" & i & "</a></font>  "

     END IF

     If CInt(i) > CInt(PagAtual) Then

         Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='Teste_Paginacao_escolhe_pra_alterar_front.asp?PagAtual=" & i & "'>" & i & "</a></font>  "

  END IF

Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN

p1 = Left(PagAtual,var02)

p2 = Left(TotalPages,var02)

p3 = Left(TotalPages,var02) & 0

'##### CONDIÇÕES ########

'digitos mais significativos do Numero com 1 no fim > PagAtual

'EX:  21   [ 22 ]  23   24  25         2 com 1 => 21 > 22 (F)

'OU

'PagAtual <= 10      E    TotalPages > 10

'EX:  ... 1  2  3  4 [ 5 ]  6  ...              5 <= 10 (V)  E   6 > 10 (F)

IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN    

       Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")

       Response.Write("<a href='Teste_Paginacao_escolhe_pra_alterar_front.asp?PagAtual=" & final + 1 & "'>")

       Response.Write("...")

       Response.Write("</a></font></B>  ")

         ELSE

       Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

       Response.Write("...")

       Response.Write("</font></B>  ")

   END IF

      Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")

      Response.Write("<a href='Teste_Paginacao_escolhe_pra_alterar_front.asp?PagAtual=" & PagAtual + 1 & "'>")

      Response.Write("Próxima")

      Response.Write("</a></font></B>  ")

      Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")

      Response.Write("<a href='Teste_Paginacao_escolhe_pra_alterar_front.asp?PagAtual=" & TotalPages & "'>")

      Response.Write("Ultima")

      Response.Write("</a></font></B>  ")        

 ELSE

      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

      Response.Write("...")

      Response.Write("</font></B>  ")

      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

      Response.Write("Próxima")

      Response.Write("</font></B>  ")

      Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")

      Response.Write("Ultima")

      Response.Write("</font></B>  ")

End If

'################## fim paginacao 02 #######################

Rs.Close  

Set RS = Nothing

Conn.Close      

Set Conn = Nothing      

Loop  

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Desculpa Ze_Violeiro mas destaquei a linha no primeiro post tbm Valew

'#####################################################################'######## LINHA 60 ######################################################DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize '#####################################################################'#####################################################################

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