Consulta personalizada

igadino · Julho 8, 2009

Pessoal estou com pboblema neste cidigo não estou conseguindo destacar as palavras pesquisada, alguém pode me dá uma luz

estou tentandi assim, mais dá erro a linha em vermelho e onde estou chamando a função

<!-- #include file = "conexao.asp" -->
<%
Function DestacaTexto(textoBD, n_palavras) 
   y = n_palavras
   Alterado = textoBD
   DO WHILE 0 <= y
       palavra_M = UCase(palavra(y))
       palavra_m = LCase(palavra(y))
       palavra_Mm = UCase(MID(palavra(y),1,1)) & LCase(MID(palavra(y),2,Len(palavra(y))))
       DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_M & "</STRONG></FONT>"
Alterado = Replace(Alterado,palavra_M, DestTexto)

       DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_m & "</STRONG></FONT>"
Alterado = Replace(Alterado, palavra_m, DestTexto)

       DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_Mm & "</STRONG></FONT>"
Alterado = Replace(Alterado, palavra_Mm, DestTexto)
      
    y = y - 1
LOOP
       DestacaTexto = Alterado
End Function
    s=request("s")
    ID_Apostolo=request("ID_Apostolo")
    PagAtual = Request.QueryString("PagAtual") 'página atual
    ID_AP = Request("ID_Apostolo") 'página atual
    Capitulo = Request("Capitulo") 'página atual
    if ID_AP ="68" then
    SQL = "SELECT * FROM livros WHERE Versiculo LIKE '%"&s&"%' and Versiculo LIKE '%"&s&"%'" 
'    SQL = "SELECT * FROM apost, Livros WHERE  Versiculo LIKE '%"&s&"%' OR Versiculo LIKE '%"&s&"%'" 
    RS.Open SQL, conn, 3
    else
    SQL = "SELECT * FROM livros WHERE livro ='"&request("ID_Apostolo")&"' And  Versiculo LIKE '%"&s&"%' ORDER BY cod DESC" 
    RS.Open SQL, conn, 3
    end if
%>
<html>
<head>
<title><%=mostra%></title>
<link href="../css/Show_ads.css" rel="stylesheet" type="text/css">
<link href="../css/estilo.css" rel="stylesheet" type="text/css">
<STYLE type="text/css">
<!--
BODY {
scrollbar-face-color:#E2ECF5;
scrollbar-highlight-color:#D8D391;
scrollbar-3dlight-color:#FFFFFF;
scrollbar-darkshadow-color:#E6E7E8;
scrollbar-shadow-color:#A19F61;
scrollbar-arrow-color:#000000;
scrollbar-track-color:#E2ECF5;
}
-->
</STYLE>
</head>
<body marginwidth="0" marginheight="0" topmargin="0" leftmargin="0" class="tabela01">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td valign="top">
<table width="100%" cellSpacing="0" cellPadding="0" bordercolor="#EFEFEF" border="1" align="center">
<form name="form" method="post" action="busca_biblia1.asp">
<tr><td colspan="2" align="center"><font color="#000000" size="3" face="Arial, Helvetica, sans-serif"><b>Consultar por palavras.</b></font></td></tr>
<tr>
  <td align="right" width="33%"><b>Livro:</b></a></td><td width="67%">
<select name="ID_Apostolo" style="width:150px" class="text">
<option value="68">Toda Biblia</option>
<%
SQL = "SELECT * FROM Apost ORDER BY cod"
set RecSet = conn.execute(SQL) 
do while not RecSet.eof
lista=RecSet("cod")
MTT=RecSet("livro")
arrsetor3=split(Request("ID_Apostolo"),",")
arrsetores3=split(lista,",")
mostra_form=split(MTT,",")
  for y = LBOUND(mostra_form) to ubound(mostra_form)
' response.write"<option value="&arrsetores3(y)
  response.write"<option "
 for x= LBOUND(arrsetor3) to ubound(arrsetor3)
 if arrsetor3(x) = arrsetores3(y) then response.write "selected "
  response.Write"value="""&arrsetores3(y)
next
  response.write""">"&mostra_form(y)&"</option>"&vbcr
next
%>
<%
RecSet.movenext
loop
%>
</select>
</td></tr>
<tr><td width="33%" align="right"><b>Palavras:</b></td><td>
<input type="text" class="text" name="s" style="width:150px" value="<%=request("s")%>">
</td></tr>
<tr><td></td><td><input type="submit" name="procur" style="cursor:hand; width:150; height:22" value="Pesquisar"></td></tr>
</form>
</table>
<table width="100%" cellSpacing="0" cellPadding="0" bordercolor="#EFEFEF" border="1" align="center">
<tr><td align="center" width="100%">
<table width="100%" cellSpacing="0" cellPadding="0" bordercolor="#EFEFEF" border="1" align="center">
<tr><td align="center">
<%
if RS.EOF then
        if not s ="" then
        response.Write "<table align='left' width='494'><tr><td align='left'>Nenhum versículo encontrado, com palavra "&"<font color='#ff0000' size='2'><b>"&s&"</b></font> em "&uf&"</b></font></td></tr></table><br>"
        end if
response.End()
        else
'------- Coloque aqui a quantidade de registros que você deseja por página --------
    Const NumPorPage = 10
    'Verifica qual a página solicitada
       Dim PagAtual
       IF Request.QueryString("PagAtual") = "" Then
    PagAtual = 1 'Primeira página
    Else
    PagAtual = Request.QueryString("PagAtual")
    End If
   RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
    RS.MoveFirst                'Move o RecorSet para o início 
    RS.PageSize = NumPorPage    'Coloca a quantidade de páginas
    Dim TotalPages              'Pega o número total de páginas
    TotalPages = RS.PageCount
    RS.AbsolutePage = PagAtual  'Configura a página atual
    Response.Write"<table align='left' width='494'><tr><td align='left'><font size='2'>Encontramos "&"<font color='#ff0000' size='2'><b>"& RS.RecordCount & "</b></font> versículos com a(s) palavra(s):<font color='red'><b> "&s&"</b></font><br><font color='#ff0000'>Sua busca foi processada em " &FormatNumber( Timer - inicio, 2 ) &" segundos</font></td></tr></table>"
    Count = 0       'Zera o contador
     end if 
    i = 0 
    %> 
</td></tr>
<tr><td>
<%
DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize

if not request("s")="" then response.write(DestacaTexto("<DIV align=justify><b>"&uf&" - "&rs("cap")&":"&rs("ver")&"</b> "&(RS("versiculo"))&"</div><br>" end if Next %>

<%
    i = i+1
    Count = Count + 1   'paginacao
    RS.MoveNext
    LOOP                'tb paginacao
    %>
</td></tr>
<form name="mensagens">
<tr><td bgcolor="#6699CC" align="center">
    <%
    if not request("s")="" then
IF PagAtual > 1 THEN 
      Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 
         Response.Write("<input type='button' name='primeira' style='cursor:hand; width:90; height:17' value='Primeira' class='Form_pag' onClick=""window.location='?PagAtual="&"" &  1 & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'""")
      Response.Write("</a></font></B>  ")
      Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
      Response.Write("<a href='?PagAtual=" & PagAtual - 1 & "'>")
      Response.Write("</a></font></B>  ")
      Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
         Response.Write("<input type='button' name='Anterior' style='cursor:hand; width:90; height:17' value='Anterior' class='Form_pag' onClick=""window.location='?PagAtual="&""& PagAtual - 1 & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'""")
      Response.Write("Anterior") 
      Response.Write("</a></font></B>  ")
  Else
      Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") 
      Response.Write("</font></B>  ")
      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
      Response.Write("<input type='button' value='Anterior' style='cursor:hand; width:90; height:17' class='Form_pag' disabled>")
      Response.Write("</font></B>  ")
End If
max_n_mostrados = 5
intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo
If CInt(inicio) <1 Then 
 inicio = 1
 final = 5
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages
For i = inicio To final
     If CInt(i)=CInt(PagAtual) Then
      Response.Write("<input type='button' name='atual' class='Form_pag1' value="&i&">")
     END IF
     If CInt(i) < CInt(PagAtual) Then
       Response.Write("<input type='button' name='--' class='Form_pag' value="&i&" onClick=""window.location='?PagAtual=" & i & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'"">")
     END IF
     If CInt(i) > CInt(PagAtual) Then
            Response.Write("<input type='button' name='++' class='Form_pag' value="&i&" onClick=""window.location='?PagAtual=" & i & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'"">")
  END IF
Next
'------------------------------------------------------
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
      Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
      Response.Write("<input type='button' name='Próxima' style='cursor:hand; width:90; height:17' value='Próxima' class='Form_pag' onClick=""window.location='?PagAtual="&""& PagAtual + 1 & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'""")
      Response.Write("Próxima")
      Response.Write("</a></font></B>  ") 
      Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
         Response.Write("<input type='button' name='ultima' style='cursor:hand; width:90; height:17' value='Ultima' class='Form_pag' onClick=""window.location='?PagAtual="&"" & TotalPages & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'""")
      Response.Write("</a></font></B>  ")        
 Else
      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
      Response.Write("<input type='button' value='Próxima' style='cursor:hand; width:90; height:17' class='Form_pag' disabled>")
      Response.Write("</font></B>  ")
      Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
      Response.Write("</font></B>  ")
End If 
%>
<%end if%>
</td></tr>
</form>
</table>
</td></tr>
</table>
</td></tr>
</table>
 <!--fim das tabela link-->                
    </td></tr>
    </table>
    </div>
    </body>
    </html>

bareta · Julho 8, 2009

faltou parenteses no final

if not request("s")="" then
response.write DestacaTexto("<DIV align=justify><b>"&uf&" - "&rs("cap")&":"&rs("ver")&"</b> "&rs("versiculo")&"</div><br>")
end if

igadino · Julho 9, 2009

Olha o erro que aparece

Número de argumentos incorreto ou atribuição de propriedade inválida: 'DestacaTexto'

/biblia/busca_biblia12.asp, line 410

Jonathan Queiroz · Julho 9, 2009

A função recebe dois parâmetros (textoBD e n_palavras)

Está faltando um

igadino · Julho 9, 2009

Falta um como assim voce pode fazer um exemplo porque não entendir e qual esta faltando

Jonathan Queiroz · Julho 9, 2009

Observe como a função foi declarada:

Function DestacaTexto(textoBD, n_palavras)

Você apenas indicou o primeiro parâmetro (textoBD)

igadino · Julho 9, 2009

Continua dando erro não sei mas o que faço

Jonathan Queiroz · Julho 9, 2009

Como ficou o código depois ?

Você está passando o segundo parâmetro para a função ?

igadino · Julho 10, 2009

já declarei todas as variavel mas continua dando erro

bareta · Julho 10, 2009

fi...

seguinte

DestacaTexto(textoBD, n_palavras)

textoBD= texto a ser destacado

n_palavras=numero de palavras a destacar...

response.write DestacaTexto("Ronaldo brilha muito no corintia", 7)

igadino · Julho 12, 2009

Continua dando o mesmo erro

bareta · Julho 13, 2009

e como você ta chamando a função agora?

igadino · Julho 14, 2009

Tente usar ela para você ver não estou conseguindo

tente montah ela para mim

fico grato

Jonathan Queiroz · Julho 17, 2009

Mas como você está chamando a função ?

Ao invés de:

suafuncao(parametro1)

Você tem que chamar:

suafuncao(parametro1,parametro2)

Isso porque ela foi declarada com dois parâmetros

igadino · Julho 18, 2009

Continua dando erro

Jonathan Queiroz · Julho 18, 2009

Como você está chamando a função ?

igadino · Julho 18, 2009

já tentei

Assim

response.write DestacaTexto(""&rs("versiculo")&"<br>"))

E assim

response.write DestacaTexto(textoBD, n_palavras(""&rs("versiculo")&"<br>")))

Jonathan Queiroz · Julho 18, 2009

O textoBD e npalavras são apenas nomes dos argumentos da função, seu nome não importa (apenas será utilizado dentro da função)

Por exemplo, uma função:

function soma(byval n1,byval n2)
soma=n1+n2
end function

Você pode chamar assim:

variavel = soma(50,21)

Recomendo que dê uma olhada nesse link: http://pt.wikipedia.org/wiki/Vbscript#Fun....e_Procedimentos

Entrar

Consulta personalizada

Pergunta

Link para o comentário

Compartilhar em outros sites

17 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns