Elñ codigo que estoy utilizando en este moemnto para el buscador es:
<html>
<META HTTP-EQUIV="Page-Enter" CONTENT = "RevealTrans (Duration=1, Transition=23)">
<head>
<title>Formulario para consulta sencilla</title>
</head>
<body OnLoad="javascript:document.fconsulta5.cedula.focu s();">
<h1 align="center">Consulta</h1>
<H1><B><U>Intrucción</U>:</B></H1>
<h3>Por favor Introduzca el NÚMERO DE CÉDULA SIN PUNTO, y luego presiona el botón de enviar, en el caso de no saber la cedula use el buscador: </h3>
<CENTER><a href="portal-posturg.html"><H2><B>Volver a Inicio</B></H2></a></CENTER>
<body OnLoad="javascript:document.fconsulta5.cedula.focu s();">
<form method="POST" action="espera3.asp" name="fconsulta5" AUTOCOMPLETE="OFF">
<table border="1" width="50%">
<tr>
<td width="40%"><B>Cedula Identidad:</B></td>
<td width="50%"><input type="text" name="cedula" size="8"></td>
</tr>
<tr>
<td width="16%"><input type="submit" value="Enviar" name="B1"></td>
<td width="84%"><input type="reset" value="Restablecer" name="B2"></td>
</tr>
</table>
</form>
<HR>
<%
Dim buscar
buscar = Request.Form("textfield")
%>
<body bgcolor="#FFFFFF" text="#000000">
<p><b><font size="5"><CENTER>Buscador por Palabras</CENTER></font></b> </p>
<p><b><font size="3">Por favor introduzca el nombre o apellido del profesor a buscar y presione el boton "buscar:</font></b> </p>
<%
Function fBuscar(cnn)
Dim rs
Dim SQL
Dim str
SQL="SELECT * FROM profesores WHERE Nombre LIKE '%"&buscar&"%';"
Set rs = CreateObject("ADODB.Recordset")
rs.ActiveConnection = cnn
rs.Open SQL
While Not rs.EOF
str = str & FormatNumber((rs("Cedula").Value), 0, -2, -1, -1)& " " & rs("nombre")& "<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
Set cnn = CreateObject("ADODB.Connection")
str = "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("profesores.mdb")
cnn.Open str
Response.write "<FONT COLOR=Blue "
Response.write "SIZE=4 FACE=Arial> "
Response.write "Resultados "
Response.write "de la busqueda: <P>"
Response.write "</FONT> "
Response.write "<HR>"
Response.write "<FONT COLOR=Green "
Response.write "SIZE=3 FACE=Arial> "
Response.Write fBuscar(cnn)
Response.write "</FONT><hr> "
%>
<body OnLoad="javascript:document.form1.textfield.focus( );">
<form name="form1" method="post" action="form-consulta-prof3.asp">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar!">
</form>
</body>
</html>
Miguel
