Hola buen dia tengo una base de datos en sql server y elabore en asp un codigo para hacer un directorio
<html>
<head>
<title>Buscar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
Dim buscar
buscar = Request.Form("textfield")
%>
<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">MI BUSCADOR</font></b> </p>
<%
Function fBuscar(cnn)
Dim rs
Dim SQL
Dim str
SQL="SELECT Nombre, Area, Extension, Email FROM buscame_directorio WHERE Nombre LIKE '%"&buscar&"%';"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
rs.Open bsql
While Not rs.EOF
str = str & "<A Class='t5' Href='" & rs("Nombre") & "'>" & rs("Area") & rs("Extension") & " >> <br>" & "</a>" & rs("Email")& "<BR> <BR>"
rs.MoveNext
Wend
if str = "" then str ="<CENTER><B>Lo siento, no se encontraron resultados</B></CENTER>"
if buscar = "" then str ="<CENTER><B>Por favor, especifique su búsqueda</B></CENTER>"
fBuscar = str
End Function
Dim cnn
Dim str
Dim DBName
DBName = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=formacion;Password=;Initial Catalog=dde;Data Source=LMSPROD1"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open DBName
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
Response.write "<FONT COLOR=Red "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fbuscar(cnn)
Response.write "</FONT><hr> "
%>
<form name="form1" method="post" action="buscador.asp">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar!">
</form></center>
</body>
</html>
el problema es que no me funciona me marca el explorador el siguiente error pero no logro deducir
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/buscame_directorio/buscador.asp, line 22
Muchas gracias algun cometario