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

Quase Paginando Mas Tem Um Erro


osmildo

Pergunta

bem galera...

peguei um link que a andreia_sp me falou. mesmo asssim naõ consigo colocar a paginacao no meu script

o meu script ta assim o...

<%

pagina = request("pagina")

if pagina = "" then

pagina = 1

else

pagina = cint(pagina)

end if

vMarca = request.form("car")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")

sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'"

sqlstmt = sqlstmt & "ORDER BY Id DESC "

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, DSNtemp, 3, 3

totalrecs = rs.recordcount

x = 0

for x = 1 to totalrecs

if rs.eof then

exit for

else

id = rs("ID")

carro = rs("Carro")

placa = rs("Placa")

marca = rs("Marca")

dono = rs("Dono")

tempo = rs("Tempo")

%>

<b><p>

<br>

<p><font size="2" face="Arial, Helvetica, sans-serif"><%=marca%></font></p>

<p><font size="2" face="Arial, Helvetica, sans-serif"><%=carro%></font></p>

<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=dono%></font></p>

<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=placa%></strong></font></p>

<p><font size="2" face="Arial, Helvetica, sans-serif"></font><font size="2" face="Arial, Helvetica, sans-serif"><%=tempo%></font></p>

<p>

<%

total = ubound(nomes,2)

registros = 10

paginas = total / 10

if cint(paginas) * registros < total then

paginas = cint(paginas) + 1

end if

if pagina = 1 then

inicio = 0

else

inicio = cint(registros) * (pagina) - 10

end if

fim = cint(inicio) + 9

if cint(fim) > cint(total) then

fim = cint(total)

end if

end if

next

%>

</p>

<p><%

FOR I = 1 TO cint(paginas)

if cint(pagina) = i then

mostra = "[" & i & "]"

else

mostra = i

end if

response.write "<a href=busca.asp?pagina=" & I & ">" & mostra & "</a> "

next

%> &nbsp; <% rs.MoveNext %></p>

este é o erro veja..

toyota

hilux

hilux

hilux

A vista

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ubound'

/busca5/busca.asp, line 53

------------------------

estou tentando colocar´a numeracao e link

alguém pode me ajudar?

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

olhando assim meio por cima, note o seguinte:

total = ubound(nomes,2)

isso você usaria se o array nomes fosse multidimensional, ou seja, se ele tivesse várias posições... E você não está usando isso!!!

No caso, não achei nenhum array chamado nomes...

se fosse um array simples, era só tirar o 2:

total = ubound(nomes)

mais como falei, não achei nenhum array chamado nomes!!!

[]s

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.



  • Estatísticas dos Fóruns

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