Problemas com Request

[Carcleo 4]

Porque o código abaixo, quando chega na linha

response.write "<a href=ibusca.asp?action=consultar&pagina=" & Cont & "&onde="&request.QueryString("onde")&">" & mostra & "</a> "

quase no fim do arquivo

quano cliko no link que envia variaveis por querystring, quando vou receber por request, só vem a primeira varavel até o primeiro espaço?

 

A ídéia é uma busca onde o campo de pesquiza recebe "n" palavras.

Primeiramente faço um filtro para separar somente as palavras sem repetição, ou seja caso uma mesma palavra tenha sido digitada mais de uma vez no campo de pesquiza ela só é computada uma como por exemplo: "Quando é que o homen é homen" no caso vai "Quando é que o homen"

Depois jogo cada uma dessas palavras numa variavel "onde" para depois jogar numa sql.

Depois faço a paginação.

Quando faço a pesquiza pela primeira vez, a consulta retorna a paginação certinha, ou seja com os numeros das paginas la em baixo"[1],2,3...", só que quando cliko no indice da pagina 2 por exemplo ou na própria 1, ta dando esse erro.

O que pode ser?

 

Pelos testes que fiz, se eu pegar o resultado da variavel onde que esta dentro do for each e por no fim da sql aí da certo, ou seja o script num quer rodar o o comando left.

<%

Dim busca, onde, pesq, x, bg, DfId, DesenharTabela, cor, ModuloNome 'Declara as variaveis.

Dim laco, buscadas, considera, palavra, palavra2, pergunta, registro

Dim NomeAutor, objRecordSetNomeAutor, objRecordSetNomeModulo

Dim faq_id, faq_modulo, faq_autor, faq_pergunta, faq_resposta, faq_versao

Dim pagina, paginas, registros, total, inicio, fim, nomes, cont, mostra

 

If REQUEST.QUERYSTRING("action") = "consultar" then

 

pagina = request("pagina")

if pagina = "" then

pagina = 1

else

pagina = cint(pagina)

end if

DesenharTabela = true

response.Write request("onde")

Conectar objConecta, objRecordSet, "SELECT tbFaq.DfIdFaq, tbModulo.DfNomeModulo, tbFaq.DfIdUsuario, tbFaq.DfPergunta, tbFaq.DfResposta, tbFaq.DfVersao FROM tbFaq INNER JOIN tbModulo ON tbfaq.DfidModulo = tbModulo.DfIdModulo where "&request.QueryString("onde")&""

if not objRecordSet.EOF then

nomes = objRecordSet.getrows()

 

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

 

if DesenharTabela=True then

'Criando desenho tabela

response.Write "<br><p>"

response.Write "<table border='0' width=95% align=center cellspacing='1', cellpading='2'>"

response.Write "<tr bgcolor=#8193A7>"

response.Write "<td width=50 align=center height=20><font color=#FFFFFF><b>ID</b></fonte></td>"

response.Write "<td width=70 align=center height=20><font color=#FFFFFF><b>Modulo</b></fonte></td>"

response.Write "<td width=320 align=center height=20><font color=#FFFFFF><b>Pergunta</b></fonte></td>"

response.Write "<td width=100 align=center height=20><font color=#FFFFFF><b>Autor</b></fonte></td>"

response.Write "<td width=100 align=center height=20><font color=#FFFFFF><b>Versao</b></fonte></td>"

response.Write "<td width=100 align=center height=20><font color=#FFFFFF><b>Visualizar</b></fonte></td>"

response.Write "</tr>"

DesenharTabela = false

End if

 

cor = 1

 

FOR Cont=inicio TO fim

if (cor = 1) then

bg = "#E8ECEE"

cor = 2

else

bg = "#D3DBDE"

cor = 1

end if

 

response.Write "<tr bgcolor="&bg&">"

response.Write "<td width=50 height=20>"&nomes(0,Cont) &"</td>"

response.Write "<td width=70 height=20>"&nomes(1,Cont) &"</td>"

response.Write "<td width=320 height=20>"&nomes(3,Cont) &"</td>"

response.Write "<td width=100 height=20>"&nomes(4,Cont) &"</td>"

response.Write "<td width=100 height=20>"&nomes(5,Cont) &"</td>"

response.Write "<td width=100 height=20 align=center><a href=verfaq.asp?action=1&id="&nomes(0,Cont) &"><img src=../imagens/ver.ico width=25 border=0></a></td>"

response.Write "</tr>"

next

response.Write "</td></tr></table><br>"

FOR Cont = 1 TO cint(paginas)

if cint(pagina) = Cont then

mostra = "[" & Cont & "]"

else

mostra = Cont

end if

response.write "<a href=ibusca.asp?action=consultar&pagina=" & Cont & "&onde="&request.QueryString("onde")&">" & mostra & "</a> "

next

else

response.Write "<center><b>Nenhuma Faq Cadastrada</b></center>"

end if

end if

' ############################# Fim da Lista para Edição ###########################

%>

Problemas com paginação

[dark0 0]

use o server.urlencode..o problema eh q em link naum pode ter espaços..