Ejemplo de Consulta con formulario


http://www.asptutor.com

Ejemplo de consulta sencilla con formulario

Este ejemplo nos permite listar el resultado de una select elaborada desde un formulario.

Suponemos que tenemos declarada en odbc una base de datos bajo la DSN de Sistema Biblioteca.

Esta base de datos contiene una tabla llamada libros con los campos Titulo y Autor.

El formulario nos presenta un formato para escribir el titulo que buscamos, este titulo se lo pasamos como parámetro a nuestra pagina .asp que nos mostrara todos los titulo coincidentes.

Fconsu.htm
<html>

<head>

<title>Formulario para consulta sencilla</title>
</head>

<body>

<h3 align="center">Ejemplo de consulta sencilla</h3>
<p>&nbsp;</p>
<form method="POST" action="consultasencilla.asp">
<table border="1" width="100%">
<tr>
<td width="16%">Titulo:</td>
<td width="84%"><input type="text" name="titulo" size="55"></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>





Consultasencilla.asp
<html>
<head>
<title>Ejemplo de consulta sencilla</title>
</head><body bgcolor="#808000">
<div align="center">
<center>
<table border="1" width="62%" bgcolor="#008000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF">Resultados de su consulta</font></td>
</tr>
</table>
</center>
</div>


<%ctitulo=request.form("titulo")
set rs=createobject("ADODB.Recordset")
sqltxt="select titulo,autor from libros where titulo like '%"&ctitulo&"%'"
rs.open sqltxt,"DSN=biblioteca" %>
<%if rs.eof then%>
<h3 align="center">
<font color="#FF0000">No hay datos que coincidan con su petición </font></h3>

<%else%>
<
table border="0" width="100%">
<tr>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Titulo</font></th>
<th width="33%" valign="middle" align="center" bgcolor="#008080">
<font color="#000000">Autor</font></th>
</tr>

<%do while not rs.eof%>
<
tr>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%
=rs("Titulo")%></font></td>
<td width="33%" valign="middle" align="center" bgcolor="#FFFFFF">
<font color="#000000"><%
=rs("Autor")%></font></td>
</tr>

<%rs.movenext
loop
rs.close
end if%>
</table>
<p>&nbsp;</p>
<p align="center"><a href="fconsu.htm">Otra vez</a></p>
</body></html>


Atras

Siguiente