Foros del Web » Programando para Internet » ASP Clásico »

Asp con base de datos directorio

Estas en el tema de Asp con base de datos directorio en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 01/06/2012, 13:25
 
Fecha de Ingreso: mayo-2012
Mensajes: 18
Antigüedad: 7 años, 10 meses
Puntos: 0
Asp con base de datos directorio

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

Etiquetas: asp, directorio, recordset, server, sql
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:12.