resuelto_6.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
Transitional//EN">
<%@
Language="VBScript"%>
<html>
<head>
<title>WebMster & HTMLWeb. Curso Práctico de ASP. Resuelto
6</title>
</head>
<body>
<table cellspacing="0"
cellpadding="2" border="1" align="center">
<tr
bgcolor="#ccccff">
<td
class="titulo"><b>Nombre</b></td>
<td class="titulo"
align="center"><b>Apellido</b></td>
<td class="titulo"
align="center"><b>NIF</b></td>
<td
class="titulo"
align="center"><b>Edad</b></td>
<td class="titulo"
align="center"><b>Registro</b></td>
<td class="titulo"
align="center"><b>Ingresos</b></td>
<td class="titulo"
align="center"><b>Ciudad</b></td>
</tr>
<%
'Declaramos dos variables, una para Connection y
otra para Recorset
Dim miconexion, mirecordset, micomando
'Instanciamos un objeto Connection
Set miconexion =
Server.CreateObject("adodb.connection")
'Asignamos a la conexión la
base de datos mediante el DSN del Sistema creado, de nombre "Clientes"
miconexion.ConnectionString =
"DSN = Clientes")
'Abrimos la base de
datos "Clientes"
miconexion.Open
'Instanciamos un ojeto
Command
Set micomando = Server.CreateObject("adodb.command")
'Asignamos la conexión creada al objeto Command
micomando.ActiveConnection = miconexion
'Establecemos el texto de la
sentencia SQL de consulta a la BD
micomando.CommandText = "Select *
From Clientes"
'Asignamos el resultado de ejecutar el objeto Command
al Recordset
Set mirecordset =micomando.Execute
' Hacemos un
bucle, recorriendo todos los registros del
Recordset
While Not mirecordset.EOF
%>
<tr
bgcolor="#ffffcc">
<tdclass="titulo"><%=mirecordset.Fields("Nombre")%></td>
<tdclass="titulo"><%=mirecordset.Fields("Apellido")%></td>
<tdclass="titulo"><%=mirecordset.Fields("NIF")%></td>
<td class=
"titulo"align="center"><%=mirecordset.Fields("Edad")%></td>
<tdclass="titulo"><%=mirecordset.Fields("Registro")%></td>
<td class=
"titulo"align="right"><%=mirecordset.Fields("Ingresos")%></td>
<tdclass="titulo"><%=mirecordset.Fields("Ciudad")%></td>
</tr>
<%
'Movemos el puntero al
siguiente registro del Recordset
mirecordset.MoveNext
'Finalizamos el
bucle
Wend
'Cerramos el Recordset y
lo destruimos
mirecordset.Close
Set
mirecordset = Nothing
'Cerramos la conexión y la
destruimos
miconexion.Close
Set miconexion = Nothing
%>
</table>
</body>
</html>