<%
Dim objConn
Dim objRs
Dim strSQL
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DBQ=& Server.MapPath(´\db\azul.mdb´);DRIVER={Microsoft Access Driver(*.mdb)}"
´Inicializa objeto Recordset
Set objRs = Server.CreateObject("ADODB.RecordSet")
´ Construccion de la consulta mediante Sql
strSQL= "Select codigo,descripcion,precio FROM maestro WHERE codigo = >3000"
´ Ejecucion de la consulta
ObjRS.open strSQL, objConn
%>
<table>
<tr><td>Codigo</td><td>Descripcion</td><td>Precio</td>
<%
´Bucle hasta encontrar fin de archivo
Do Until objRS.EOF = True
Response.write "<tr>"
Response.write "<codigo= " & objRS("codigo") & "</td>"
Response.write "<descripcion= " & objRS("descripcion") & "</td>"
Response.write "<precio= " & objRS("precio") & "</td>"
Response.write "</td></tr>"
objRS.MoveNext
Loop
%>
</table>
´Cerrar conecciones
objRS.Close
´Eliminar el objeto Recorset
Set objRS= nothing
´Cerrar el objeto de la coneccion
objConn.Close
´Eliminar el objeto de comunicacion
Set objConn =Nothing