AJUDA PESQUISA

[Guest Donzete]

POR FAVOR SE alguém SABER COMO POSSO CORRIGIR ESTE ERRO, CONSTA UM ERRO NA LINHA 106

SISTEMA DE ALTERAÇÕES ESTÁ OK, MAS PARA PESQUISA NÃO

<%

Dim strURL     
             

Dim cnnSearch 
Dim rstSearch  
Dim strDBPath  

Dim strSQL    
Dim strSearch  
inicio = Timer

'#Função que tira todos os acentos das palavras
function TiraAcento(StrAcento)
 for i = 1 to len(StrAcento) 
  Letra = mid(StrAcento, i, 1)
  Select Case Letra
   Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"
   Letra = "A"
   Case "é","É","ê","Ê","Ë","ë","È","è"
   Letra = "E"
   Case "í","Í","ï","Ï","Ì","ì"
   Letra = "I"
   Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"
   Letra = "O"
   Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"
   Letra = "U"
   Case "ç","Ç"
   Letra = "C"
   Case "não"
   Letra = "N"
  End Select
  texto = texto & Letra
 next
 TiraAcento = texto
end function 


strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")

%><title>Cadastro em ASP com foto</title>
<p> </p>
<table width="69%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">
  <tr>
    <td><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
          <td bgcolor="#FFFFFF"><table width="44%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr align="center"> 
                <td bgcolor="#f5f5f5" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#CCCCCC"><a href="form_inclusao.asp">Incluir</a></font></font></b></font></div></td>
                <td bgcolor="#f5f5f5" width="30%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_exclui.asp" class="menu">Excluir</a></font></b></font></div></td>
                <td width="18%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font color="#999999" size="2" face="Verdana, Arial, Helvetica, sans-serif">Pesquisar</font></b></font></div></td>
                <td bgcolor="#f5f5f5" width="35%"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div></td>
              </tr>
            </table>
            <p align="center"><FONT color=royalblue face=Tahoma><STRONG>
            <font color="#0000FF" size="2"> 
              Pesquisa de cadastro com foto (</font><i><font color="#0000FF" size="1">Informe 
            um critério para pesquisa</font></i><font color="#0000FF" size="2">)</font></STRONG></FONT></p>
            <form action="<%= strURL %>" method="get">
              <div align="center"> 
                <input name="search" value="<%= strSearch %>" size="20" />
                <input name="submit" type="submit" value="Pesquisar" />
              </div>
            </form>
            <p align="center"> 
              <%
If strSearch <> "" Then

           strDBPath = Server.MapPath("contato.mdb")
        
Const adUseClient = 3
    
    Set cnnSearch = Server.CreateObject("ADODB.Connection")
    
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT nome, telefone, email, foto " _
        & "FROM contato " _
        & "WHERE telefone LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
        & "OR email LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _
        & "ORDER BY nome;"

    Set rstSearch = cnnSearch.Execute(strSQL)
intContador = rstSearch.RecordCount
    
    %>
            </p></td>
        </tr>
      </table>
      <p align="center"><br>
        <font face="Verdana, Arial, Helvetica, sans-serif" size="1">( Foram encontradas <b><%=intContador%></b> 
      ocorrências )</font></p>
      <div align="center"> 
        <table width="500" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
            <th width="107" bgcolor="#4169E1"><strong>
            <font face="Tahoma" size="2" color="#FFFF00"><</font></strong><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFF00">Nome></font></STRONG></FONT></th>
            <th width="80" bgcolor="#4169E1"><strong>
            <font face="Tahoma" size="2" color="#FFFF00"><</font></strong><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFF00"> Email></font></STRONG></FONT></th>
            <th width="114" bgcolor="#4169E1"><strong>
            <font face="Tahoma" size="2" color="#FFFF00"><</font></strong><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFF00"> 
            Fone></font></STRONG></FONT></th>
            <th width="162" bgcolor="#4169E1"><strong>
            <font face="Tahoma" size="2" color="#FFFF00"><</font></strong><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFF00">Foto></font></STRONG></FONT></th>
          </tr>
          <%
    Do While Not rstSearch.EOF
        %>
          <tr> 
            <td bgcolor="#FFFFE6"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Nome").Value %></font></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("email").Value %></font></div></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("telefone").Value %></font></div></td>
            <td bgcolor="#FFFFE6">
              <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img src="<%=rstSearch("foto")%>" alt="Imagem não disponível"></font></div></td>
          </tr>
          <%

        rstSearch.MoveNext
    Loop
    %>
        </table>
        <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>
         Sua busca foi processada em 
        <%response.write FormatNumber( Timer - inicio, 2 )%>
        segundos.</font><br>
        <%
    
    rstSearch.Close
    Set rstSearch = Nothing
    cnnSearch.Close
    Set cnnSearch = Nothing
End If

%>
      </div></td>
  </tr>
</table>
<p> </p>

[.Andreia.]

E qual é a linha 106 e poste exatamente a mensagem de erro que aparece