Ir para conteúdo

POWERED BY:

Arquivado

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

neotheone

Problemas na paginação

Por , em ASP Clássico

Recommended Posts

neotheone    0

neotheone
Postado

Fala pessoal, to tentando fazer uma paginação de colunas (onde é mostrado 3 registros por coluna), e também uma pagina de paginas (onde é mostrado por exemplo 9 objetos por página), mas as 2 juntas estão dando o seguinte erro:

 

Microsoft VBScript compilation error '800a0400'

 

Expected statement

 

/maladireta/etiquetas.asp, line 97

 

wend

^

 

 

PS: vou marcar a linha 97 com ******

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><%Set con = server.createobject("ADODB.connection") 'criação do objetocaminho = Server.MapPath("../usuarios.mdb") 'indicação do caminho físico do bancoconexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminhocon.open conexao 'abrindo a conexãosql="Select * From usuarios where nome <>'administrador'"set rs=con.execute(sql)%><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table align="center" width="494" border="0" cellpadding="0" cellspacing="0">  <!--DWLayoutTable-->  <tr> 	<td width="494" height="78" valign="top"><%		n_page=request("n_page")If n_page="" Then n_page = 1Set con = server.createobject("ADODB.connection") 'criação do objetocaminho = Server.MapPath("../usuarios.mdb") 'indicação do caminho físico do bancoconexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminhoset rs=server.CreateObject("ADODB.RecordSet")con.open conexao 'abrindo a conexãosql="Select * From usuarios where nome <>'administrador'"rs.open sql, conexao, 3 ,3rs.PageSize=3if rs.EOF thenresponse.Write("nao há registros para exibição")elsers.AbsolutePage = Cint(n_page) 	 cont=0%> </td>  </tr>  <tr> 	<td height="243" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">		<!--DWLayoutTable-->		<tr> 		  <% Dim contadorcontador=1maxcol=3				 Do While not rs.EOF AND cont < rs.PageSize %>		  <% if contador <= maxcol then %>		  <td width="494" height="115" valign="top"><p><font size="1">Nome: <%=rs("nome")%> <br>			  Endereço: <%=rs("endereco")%> <br>			  CEP: <%=rs("cep")%> <br>			  Bairro: <%=rs("bairro")%> <br>			  Cidade: <%=rs("cidade")%> <br>			  Estado: <%=rs("estado")%> </font></p></td>		  <% contador=contador+1			else%>		</tr>		<tr> 		  <td height="128" valign="top"> <font size="1">Nome: <%=rs("nome")%><br>			Endereço: <%=rs("endereco")%> <br>			CEP: <%=rs("cep")%> <br>			Bairro: <%=rs("bairro")%> <br>			Cidade: <%=rs("cidade")%> <br>			Estado: <%=rs("estado")%></font><br> </td><% contador=2end ifrs.movenextloop'completa as colunasdo while contador<=maxcol%><%contador=contador+1loop%>		</tr>	  </table><%		   rs.MoveNextcont=cont+1wend******************************************************************  	 response.write "<br>"  ' barra de navegação	 For navega= 1 to rs.PageCount   		 If navega= Cint(n_page) Then		 			response.write navega					 Else		 			response.write " "& "<a href=etiquetas.asp?n_page="&navega&">"&navega&"</a>"& "  "		 End If	 Next	 response.write "<br><br>"	 anterior=n_page-1	 proxima=n_page+1	 	 If not anterior = 0 Then	  		response.write "<a href=etiquetas.asp?n_page="&anterior&">Anterior</a>"				 End If	 	 If proxima < navega Then	 		response.write " <a href=etiquetas.asp?n_page="&proxima&">Próxima</a>"				 End If	 End If%></td>  </tr>  <tr> 	<td height="50" valign="top"></td>  </tr>  <tr> 	<td height="86"> </td>  </tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

bem tiozinho aparentemente voce tem um wend sem ter um while iniciadonão sei se eu vi direito mas voce tem dois do while e dois loop fechando ouseja aquele wend não ta correto nãomas veja ai isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

acho que esta falha aconteceu quando voce juntou os dois scripts

Compartilhar este post

Link para o post
Compartilhar em outros sites

neotheone    0

neotheone
Postado

Fala pessoal, vou postar meu código novamente com algumas modificações, alguem poderia me ajudar a por um código de paginação onde ele mostrasse só 3 linhas por páginas

 

Exemplo

 

 

 

 

[texto][texto][texto]

 

 

[texto][texto][texto]

 

 

[texto][texto][texto]

 

 

1 - 2 - 3 -> quando clicasse no numero 2 iria pra pagina 2

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><%		n_page=request("n_page")If n_page="" Then n_page = 1Set con = server.createobject("ADODB.connection") 'criação do objetocaminho = Server.MapPath("../usuarios.mdb") 'indicação do caminho físico do bancoconexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminhoset rs=server.CreateObject("ADODB.RecordSet")con.open conexao 'abrindo a conexãosql="Select * From usuarios where nome <>'administrador'"rs.open sql, conexao, 3 ,3rs.PageSize=3if rs.EOF thenresponse.Write("nao há registros para exibição")elsers.AbsolutePage = Cint(n_page) 	 cont=0%> <head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table align="center" width="494" border="0" cellpadding="0" cellspacing="0">  <!--DWLayoutTable-->  <tr> 	<td width="494" height="269" valign="top"> <table width="100%" border="1" cellpadding="5" cellspacing="5">		<!--DWLayoutTable-->		<tr> 		  <% Dim contadorcontador=1maxcol=3		 do While not rs.EOF AND cont <rs.PageSize %>		  <% if contador <= maxcol then %>		  <td width="494" height="115" valign="top"><p><font size="1">Nome: <%=rs("nome")%> <br>			  Endereço: <%=rs("endereco")%> <br>			  CEP: <%=rs("cep")%> <br>			  Bairro: <%=rs("bairro")%> <br>			  Cidade: <%=rs("cidade")%> <br>			  Estado: <%=rs("estado")%> </font></p></td>		  <% contador=contador+1			else%>		</tr>		<tr> 		  <td height="128" valign="top"> <font size="1">Nome: <%=rs("nome")%><br>			Endereço: <%=rs("endereco")%> <br>			CEP: <%=rs("cep")%> <br>			Bairro: <%=rs("bairro")%> <br>			Cidade: <%=rs("cidade")%> <br>			Estado: <%=rs("estado")%></font><br> </td>		  <% contador=2end ifrs.movenextloop'completa as colunas%>		</tr>	  </table></td>  </tr>  <tr>	<td height="78"> </td>  </tr>  <tr> 	<td height="18" valign="top"><% 		rs.MoveNextcont=cont+1 	 response.write "<br>"  ' barra de navegação	 For navega= 1 to rs.PageCount   		 If navega= Cint(n_page) Then		 			response.write navega					 Else		 			response.write " "& "<a href=etiquetas.asp?n_page="&navega&">"&navega&"</a>"& "  "		 End If	 Next	 response.write "<br><br>"	 anterior=n_page-1	 proxima=n_page+1	 	 If not anterior = 0 Then	  		response.write "<a href=etiquetas.asp?n_page="&anterior&">Anterior</a>"				 End If	 	 If proxima < navega Then	 		response.write " <a href=etiquetas.asp?n_page="&proxima&">Próxima</a>"				  End If	 End If%></td>  </tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce tem esta sua page online???para voce mostrar como está e como quer que fique??até mesmo para vermos os erros que surgem

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