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> </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> </p>
<p align="center"><a href="fconsu.htm">Otra
vez</a></p>
</body></html>
|