Ir para conteúdo

POWERED BY:

Arquivado

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

Paulo Herique

[Resolvido] Como imprimir uma consulta de 10 em 10?

Por , em ASP Clássico

Recommended Posts

Paulo Herique    0

Paulo Herique
Postado

com uns botões para exibir o resto

 

eu fiz de um jeito doido aqui mas deu erro.

 

 

veja no site paulo.x-br.com/contatobd/admin.html

 

Como se faz isso?

 

A mensagem de erro é

Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method

 

/contatobd/consulta.asp, line 87

Aaaa também gostaria de saber se posso utilizar IF not consulta.EOF then pois só tinha utilizado com sucesso while not consulta.EOF...

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

1) Posta o que está na linha 87

 

2) Você pode usar IF not consulta.EOF then

 

3) Ao invés de fazer um post atrás do outro, utilize o botão de editar e acrescente a pergunta. Obs. Faça isso somente enquanto ninguém responder o post.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Paulo Herique    0

Paulo Herique
Postado

Vou botar o código todo...

 

<% @LANGUAGE = VBScript %>
<% Response.Buffer= "TRUE" %>
<%
Response.Expires = 0
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../estilos.css">
<title>Sistema de contato</title>
</head>
<body>
<center>
<div class="titulo">Sistema de Contato</div><br><br><br>
<%
Dim conexao, consulta, sql, vtipo, strcons, vnumero, vpag, i, j, k, l, m, n, item
i = 0
vtipo=Request.QueryString("tipo")
vnumero=CInt(Request.QueryString("numero"))
vpag=CInt(Request.QueryString("pag"))
vemail=Request.QueryString("email")
 IF vtipo = "todos" Then 
  strcons = "" 
 ElseIf vtipo="no" Then
  strcons ="WHERE Numero = " & vnumero
 ElseIf vtipo="em" Then
  strcons ="WHERE Email = '" & vemail & "'"
 Else
  strcons ="WHERE Tipo = '" & vtipo & "'"
 End IF
sql = "SELECT * FROM Mensagem " & strcons & "  ORDER BY Numero DESC"
Set conexao = Server.CreateObject("ADODB.Connection")
Set consulta = Server.CreateObject("ADODB.recordset")
conexao.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=C:\home\paulo\databases\contato.mdb"
consulta.Open (sql), conexao
consulta.MoveFirst
if vpag > 1 then
 j = vpag * 10
 for k =1 to j
   If not consulta.EOF then
	consulta.MoveNext
   End IF
 Next
End IF
For i = 1 to 10
 i = i +1
 if (i mod 2) = 0 then
%>
<table border="0" cellspacing="8" cellpadding="0" style="width: 750 px; background-color: #c9c9c9" class="tabela">
<tr>
<td style="width: 500px"><% = "<b>Nome:</b> " & consulta("Nome") %></td>
<td style="width: 250px"><% = "<b>Número: </b>" & consulta("Numero") %></td>
</tr>
<tr>
<td style="width: 500px"><% = "<b>E-mail: </b>" & consulta("Email") %></td>
<td style="width: 250px"><% = "<b>Tipo: </b>" & consulta("Tipo") %></td>
</tr>
<tr>
<td colspan="2"><% = "<b>Mensagem: </b>" & consulta("Texto") %></td>
</tr>
</table> 
<br>
<%
 Else
%>
<table border="0" cellspacing="8" cellpadding="0" style="width: 750 px" class="tabela">
<tr>
<td style="width: 500px"><% = "<b>Nome:</b> " & consulta("Nome") %></td>
<td style="width: 250px"><% = "<b>Número: </b>" & consulta("Numero") %></td>
</tr>
<tr>
<td style="width: 500px"><% = "<b>E-mail: </b>" & consulta("Email") %></td>
<td style="width: 250px"><% = "<b>Tipo: </b>" & consulta("Tipo") %></td>
</tr>
<tr>
<td colspan="2"><% = "<b>Mensagem: </b>" & consulta("Texto") %></td>
</tr>
</table>
<br>
<% '86
 End IF
 If not consulta.EOF then
  consulta.MoveNext
 End IF
Next
m=0
for each item in consulta("Numero")
 m = m+1
Next
m = m/10
for n=1 to m
 if vpag = m then
  Response.Write " " & vpag & " "
 Else
%>
<form name="form1" method="get" action="consulta.asp">
<input type="hidden" name="tipo" value=<% = vtipo %>>
<input type="hidden" name="numero" value=<% = vnumero %>>
<input type="hidden" name="email" value=<% = vemail %>>
<input type="hidden" name="pag" value=<% = n %>>
<input type="button" value="<% = n %>">
</form>
<%
 End If
Next
%>
<a href="http://www.paulo.x-br.com/contatobd/admin.html">Voltar</a>
<%
conexao.Close
Response.Flush
Response.END
%>
</body>
</html>
E eu ainda tô meio lento no ASP então não entendi muito bem ;D

 

Eu ainda não entendi muito bem o erro, ao meu ver está tudo certo, e o pior que ele imprime os 5 ultimos e depois da erro...

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O erro pelo visto é aqui:

for each item in consulta("Numero")

 

Você não pode usar for each dessa forma. E mais em cima você da um .movenext desnecessário.

 

O IF não substitui o WHILE.

 

Qual a sua intenção colocando esse FOR e contando em M ? Não ficou claro para mim.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Paulo Herique    0

Paulo Herique
Postado

O erro pelo visto é aqui:

for each item in consulta("Numero")

 

Você não pode usar for each dessa forma. E mais em cima você da um .movenext desnecessário.

 

O IF não substitui o WHILE.

 

Qual a sua intenção colocando esse FOR e contando em M ? Não ficou claro para mim.

 

ichi... esse for each é para saber quantos posts tem pois eu ainda vou criar uma função para apagar post, ou seja, não posso contar pelo numero que é numeração automática.

 

Como eu poderia obter essa informação?

 

e os .movenext o primeiro é para de acordo com o numero da página ele já ir pulando as tuplas para a linha que deve ser escrita mas eu percebi um erro ali agora...

 

e o for com m era para gerar os botões que fariam passa ou voltar as páginas...

 

Como eu posso corrigir os erros?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Porque você não tenta adaptar uma das paginações aqui do Fórum? Acho que resolveria grande parte dos seus problemas.

 

Dê uma olhada no laboratório de scripts ou no tópico de dúvidas frequentes.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Paulo Herique    0

Paulo Herique
Postado

Porque você não tenta adaptar uma das paginações aqui do Fórum? Acho que resolveria grande parte dos seus problemas.

 

Dê uma olhada no laboratório de scripts ou no tópico de dúvidas frequentes.

Valeu ai... eu olhei uns ai prontos e descobri umas coisas que eu não sabia... eu vou continuar tentando fazer o meu!

 

Quando eu conseguir eu posto aqui xD

Compartilhar este post

Link para o post
Compartilhar em outros sites

Paulo Herique    0

Paulo Herique
Postado

Voltei!!!

 

Finalmente consegui terminar!!

 

O endereço pra quem quiser checar é http://www.paulo.x-br.com/contato.html

 

Quem achar algum erro pode botar lá que eu vejo xD

 

Eu tenho feito ele meio sem tempo e nem sempre faço com atenção total pois trabalho no suporte da hostnet ai eu faço quando dá xD

 

Abraços e valeu pela ajuda quem apareceu ai!

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