Ir para conteúdo

POWERED BY:

Arquivado

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

Khelly

Erro quando crio paginação

Por , em ASP Clássico

Recommended Posts

Khelly    0

Khelly
Postado

To eu aki de volta galerinha, como sempre com um abacaxi pravcme ajudarem a descascar...seguinte meus amores, criei uma pagina onde necessito depaginação para exibir o conteudo, eu estava utilizando um bs access , mas mudei para mysql e fiz as devidas modificações para que apaginação pudesse funcionar porem depois que fiz asautereações no codigo dapaginação estaacontecendo o seguinte erro:

 

Microsoft VBScript compilation error '800a03f6'

 

Expected 'End'

 

/admin/usados/usados2.asp, line 202

 

 

o codigo é esteabaixo, desde já sou grata a vcs meus amores!

 

<!--#include file="../checa_senha.inc"-->
<!--#Include File="arquivo_de_conexao.asp"-->
<%

Call AbreConn()

'pega a pagina atual
pagina = request.ServerVariables("SCRIPT_NAME")

'numero de registros por pagina...
pageSize = 4

if(len(Request.QueryString("p")) = 0 )then
  paginaAtual = 1
else
  paginaAtual = CInt(Request.QueryString("p"))
end if

' conta o numero de registros...
sql = "SELECT COUNT(*) AS total FROM usados ORDER BY marca"
set rs = conn.execute(sql)

'total de registros
recordCount = Cint(rs("total"))

'calculamos o numero de paginas...

pageCount = Clng(recordCount / pageSize)

If pageCount < 1 then
pageCount = 1
end if

rs.Close()


Flag1 = INT(paginaAtual / pagesize)

PI = INT(Flag1 * pagesize)

IF PI = 0 THEN
PI = 1
END IF
PF = PI + pagesize - 1

sql = "SELECT * FROM usados ORDER BY marca DESC LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize

set Usados = conn.execute(sql)


%>

<html>
<head>
<title>Administração de Boletim Escolar</title>
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FFFFFF" vlink="#FFFFFF" leftmargin="0" topmargin="0">
<table width="600" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" bgcolor="#000000" cellspacing="1" cellpadding="3" align="center">
              <tr bgcolor="#990000"> 
                <td width="62%" bgcolor="#000000"> 
                  <div align="center"><font size="2" face="Arial"><b><font color="#FFFFFF">Administração 
                    de veículos Usados</font></b></font></div>
                </td>
                <td width="38%" bgcolor="#FFCC00"> 
                  <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="incluir.asp?tipo=marca" class="menu">Incluir 
                    marca</a>   <a href="incluir.asp?tipo=veiculo" class="menu">Incluir 
                    veículo</a></font></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <p align="center"><b><font size="2" face="Arial">Listagem dos veículos usados</font></b><br></p>
<% If Usados.EOF Then %>
<p align="center"><b><font size="2" face="Arial" color="#CC0000">Não há itens cadastrados</font></b></p>
<% Else %>
      <p align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">O 
        modelo em negrito está configurado como <b>Oferta</b>.</font></p>
      <table width="100%" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#000000">
        <tr bgcolor="#CC0000"> 
          <td width="10%"> 
            <div align="center"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Código</font></b></div>
          </td>
          <td width="15%"> 
            <div align="center"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Marca</font></b></div>
          </td>
          <td width="20%"> 
            <div align="center"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Modelo</font></b></div>
          </td>
          <td width="10%"> 
            <div align="center"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Ano</font></b></div>
          </td>
          <td width="15%"> 
            <div align="center"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Valor</font></b></font></div>
          </td>
          <td width="15%"> 
            <div align="center"><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Loja</font></b></font></div>
          </td>
          <td width="8%"> </td>
        </tr>
        <%
	'Usados.AbsolutePage = CInt(pagina)
	'Contador = 0
	'Usados.MoveFirst
	Usados.MoveFirst : While Not Usados.EOF
%>
        <tr bgcolor="#DDDDDD"> 
          <td width="10%" height="26"> 
            <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= Usados("id_auto") %></font></div>
          </td>
          <td width="15%" height="26"> 
            <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= Usados("marca") %></font></div>
          </td>
          <td width="20%" height="26"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
		  <% If Usados("oferta") = 1 Then %>
		  <b><%= Usados("modelo") %></b>
		  <% Else %>
		  <%= Usados("modelo") %>
		  <% End If %></font></td>
          <td width="10%" height="26"> 
            <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= Usados("ano") %> 
              </font></div>
          </td>
          <td width="15%" height="26">
            <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= FormatCurrency(Usados("valor")) %></font></div>
          </td>
          <td width="15%" height="26">
            <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= Usados("loja") %></font></div>
          </td>
          <td width="8%" height="26"> 
            <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="editar.asp?id_auto=<%= Usados("id_auto") %>"><img src="../botao_editar.gif" width="16" height="16" border="0"></a>  <a href="apagar.asp?id_auto=<%= Usados("id_auto") %>"><img src="../botao_apagar.gif" width="16" height="16" border="0"></a></font></div>
          </td>
        </tr>
        <%
	Usados.MoveNext
	'Contador = Contador + 1
	Wend
%>
      </table>
      
      
     <%
					Response.Write ("<B><strong> Página " & paginaAtual & " de " & pagecount & " </strong></B><br>")
' cria os links de pagians...
'IF CInt(paginaAtual) > 1 THEN
'Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> "
'Else
'Response.Write "<font color=""#ADADAD"">Primeira</font> "
'END IF

if CInt(paginaAtual) > 1 then
Response.Write "<a href='"&pagina&"?p=" & paginaAtual - 1 &"&textfield=" & request.querystring("textfield") & "'>Anterior</a> "

Else
Response.Write "<font color='#666666'>Anterior</font>  "
END IF

'for i=1 to pageCount
  'Response.Write("<a href='"&pagina&"?p=" & i & "'>" & i & "</a> ")
'next
  

IF (CInt(paginaAtual) < pagecount) THEN
         IF CInt(PF) <> pagecount THEN
   Response.Write "<a href='"&pagina&"?p=" & paginaAtual + 1 &"&textfield=" & request.querystring("textfield") & "'>Proxima</a> "

  END IF
Else
  Response.Write "<font color=""#ADADAD"">Próxima</font> "
END IF


'IF (CInt(paginaAtual) <> pagecount) THEN
         'IF CInt(PF) <> pagecount THEN
  ' Response.Write "<a href='"&pagina&"?p=" &"&textfield=" & request.querystring("textfield") & "'>Última</a> "
 ' END IF
'Else
  'Response.Write "<font color=""#ADADAD"">Última</font> "
 ' END IF
					%>
        </font></p>
     
</td>
  </tr>
</table>
<% end if %>
</body>
</html>
<% 
Usados.Close
Set Usados = Nothing

Conexao.Close
Set Conexao = Nothing

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Se você está acostumado a programação em JScript ou T-SQL, você provavelmente já viu esse erro uma vez que você pegou VBScript:

 

Microsoft VBScript erro de compilação '800a03f6 '

'End' esperado

 

Isto é frequentemente devido a trechos de código como o seguinte :

 

 

 

<% 
    if teste then 
        response.write "ok" 
    else if barra then 
        response.write " outra barra" 
    end if 
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

The Jhunior    0

The Jhunior
Postado

Tenho um exemplo

 

<%
		
		
StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("bancodedados.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao

Set RS = Server.CreateObject("AdoDb.RecordSet")
		

nomepagina = "nome.asp" 'IMPOTANTE:Coloque aqui o nome desta página.
registros = 10 ' numero de select por página

RS.CacheSize = registros
RS.PageSize = registros

SQL = "Select * from tabela "

RS.Open SQl,Conexao,3,3


If RS.Eof then
Response.Write("Nenhum registro encontrado.")

else

if Request.QueryString("pagina")="" then
pagina = 1
elseif cint(Request.QueryString("pagina"))<1 then
pagina = 1
elseif cint(Request.QueryString("pagina"))>RS.PageCount then
pagina = RS.PageCount
else pagina=Request.QueryString("pagina")
end if
end if

RS.AbsolutePage = pagina

contador = 0

While contador<registros and not RS.eof

%>

Conteudo da página

 

<%

RS.MoveNext

contador = contador + 1

If RS.eof then
Response.Write("")
end if

Wend

for i=1 to RS.PageCount

response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

Next
%>

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