So Falta Isso

[Guest osmildo_df]

blza galera, sumi porque tava sem conexao. estoy de vuelta

ta tudo funcionando normalmente. os codigos que me enviaram eu testei tudo

mas...

veja o porem...

vMarca = request.QueryString("mknm")

vModelo = request.QueryString("mdnm")

vPrecomin= request.QueryString("minp")

vPrecomax = request.QueryString("maxp")

' instrucoes para conexao com o banco foram retiradas para reduzir

'se eu coloco este codigo aqui a paginacao funciona normalmente

SQL = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%' and Modelo like '%" & vModelo & "%' ORDER BY Id DESC"

' amabas as instru;oes estao uncionando perfeitamente. se eu coloco esta instrucao abaixo, o que acontece e que a paginacao não funciona mais. a pagina com os dados funcionam normalmente. não da erro, apenas se eu clico no link pagina dois por exemplo, ai da erro, pagina não encontrada. como pode um absurdo desses... vou postar uma mensagem com o restante do codigo logo abaixo. espero que possam me ajudar. desde já agradecio.

SQL = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%' and Modelo like '%" & vModelo & "%' and preço between " & vPrecomin & " and " & vPrecomax & " ORDER BY Id DESC"

'

o link de minha pagina e esse aqui.

caso entrem, selecionem a opcao toyota e depois corolla

clique aqui para da uma olhada no site

[Guest osmildo de novo]

o restante do codigo es esse aqui...

SET objRS = Server.CreateObject("ADODB.Recordset")

objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem

' Senão lista os registros

If objRS.EOF Then

Response.Write("Nenhum registro foi encontrado")

Else

' Definindo o número de registros por página

objRS.PageSize = 10

' Recupera o valor da variável pagina

pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira

' Senão a variável pagina recebe o valor da página corrente, definida acima

If pagina = "" Then

objRS.AbsolutePage = 1

pagina = 1

Else

objRS.AbsolutePage = pagina

End If

%>

<%

' Imprime o número de registros, o total de páginas e a página atual

Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados&nbsp;&nbsp; " & objRS.RecordCount & " &nbsp;&nbsp;registros" & vbcrlf )

Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf )

Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Inicio <a href='#' onClick=javascript:window.open('../pesquisar.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>")

%>

<%

' Criando a barra de navegação

' Se a variável pagina for maior que 1 então imprime o botão Anterior com link

' Senão imprime sem link

If Cint(pagina) > 1 Then

Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ")

Else

Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")

End If

' Lista todas as páginas encontradas

if objRs.PageCount < 11 then

For i = 1 To objRS.PageCount

response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")

Next

end if

if objRs.PageCount > 10 then

inicio=pagina

fim=pagina + 9

tot = pagina + 9

if tot > ObjRS.PageCount then

inicio = pagina-((pagina+9)-ObjRs.PageCount)

fim = inicio+9

end if

for i = inicio to fim

response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")

next

end if

' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link

' Senão imprime sem link

If CInt(pagina) < objRS.PageCount Then

Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>")

Else

Response.Write("Próxima</B></FONT></center>")

End If

End If

%>

</p>

<p>

<%While Not objRS.EOF AND cont < objRS.PageSize%>

</p>

<p><%=objRS("Marca")%></p>

<p><%=objRS("Modelo")%></p>

<p><%=objRS("preço")%></p>

<%

cont = cont + 1

objRS.MoveNext

Wend

%>

</tr>

<p>&nbsp;</p>

<p>

<%

' Fecha e destroi os objetos RS e conn

objRS.Close : objconn.Close

Set RS = Nothing : Set objconn = Nothing

%>

[Ceh]

A sua variável vPrecomax está vazia quando eu não seleciono valor máximo e quando eu seleciono qualquer valor que seja, está vazio.

[ ]'s