<% @ LANGUAGE="VBScript" %>
<%
set conexionBD =
Server.createobject("adodb.connection")
conexionBD.open "DRIVER={Microsoft Access Driver
(*.mdb)}; " & "DBQ=" & server.mappath("compras.html")
set RS = ConexionBD.Execute("select * from clientes")
%>
CONSULTA DE LIBROS
<%
DO WHILE NOT RS.EOF
response.write("Provincia: " & rs("Provincia") &
"
")
response.write("ciudad: " & RS("Ciudad") & "
")
RS.MOVENEXT
loop
%>