Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.
busca.asp, line 8
Arquivo de conexão
<%
sub abre
set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.open "DBQ=C:\inetpub\wwwroot\casali\osmelhores.mdb;Driver={Microsoft Access Driver (*.mdb)}"
end sub
sub fecha
conexao.close
Set Conexao = nothing
end sub
%>
Arquivo de Formulário
<html> <head> <title>busca</title> </head> <body> <form name="form" method="post" action="busca.asp"> <div align="center"> <input type="text" name="busca"> <input type="submit" name="Submit" value="Submit"> </div> </form> </body> </html>
arquivo que processa a busca
<!--#include file="conexao.asp"-->
<%
Dim conexao, rscidades, strSQL, busca
busca = request.form("busca")
strSQL = "SELECT * FROM cidades WHERE nomecidade LIKE '%" & busca & "%' "
strSQL = strSQL & "ORDER BY cidade"
Call abre
set rscidades = Conexao.Execute(strSQL)
%>
<%
While not rscidades
%>
<% =rscidades("nomecidade")%>
<%
rscidades.MoveNext
wend
%>
<%
rscidades.close
Call fecha
set rscidades= nothing
%>
Gostaria de saber o porque esta ocorrendo esse erro e qual sua correção
