este codigo, ademas te da la opcion de buscar personas ;)
igual, solo correlo y listo.
<HTML>
<TITLE> Filtrar un registro </TITLE>
<BODY>
<!-- #INCLUDE File="ADOVBS.inc" -->
<%IF (Request.Form <> "") THEN
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable
Ob_RS.Filter = "Nombre = '" & Request.Form ("Nombre")& "'" %>
<H3> Estos son las personas encontradas </H3>
<TABLE BORDER=1>
<TR>
<TH> DNI </TH>
<TH> NOMBRE </TH>
<TH> APELLIDOS </TH>
<TH> DIRECCION </TH>
<TH> TELEFONO </TH>
<% DO WHILE NOT Ob_RS.Eof %>
<TR>
<TD><%= Ob_RS ("DNI") %></TD>
<TD><%= Ob_RS ("Nombre") %></TD>
<TD><%= Ob_RS ("Apellidos") %></TD>
<TD><%= Ob_RS ("Dirección") %></TD>
<TD><%= Ob_RS ("Teléfono") %></TD>
<% Ob_RS.MoveNext
LOOP
Response.Write "</TABLE>"
Ob_RS.Close
Ob_Conn.Close
ELSE %>
<H3> ESCRIBA EL NOMBRE A BUSCAR </H3> <BR>
<FORM METHOD="Post" ACTION="EjBD5.asp">
NOMBRE: <INPUT NAME="Nombre" SIZE=10> <BR><BR>
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% END IF %>
</BODY>
</HTML>
Suerte... ya por ultimo, te dire el codigo del archivo que llevara por nombre ADOVBS.inc..
Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]