Conexion a base de datos ACCESS

[richardinj]

cone seto te conectas a la BD en ACCESS

<%
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\resultados.mdb"
%>

aca muestra un registro

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conexion.asp" -->
<%
'CONEXION CON TABLAS
codfacu=Request.QueryString("facul")
Dim strSQL, objRSfacultad, ingreso
strSQL="SELECT * FROM Total WHERE Total.CodigoC='"&cod&"' ORDER BY Nota DESC"
Set objRSfacultad = Cnn.Execute(strSQL)
%>

<%
while (NOT objRSfacultad.EOF)
%>

.........
...........html.........
.........

<%
objRSfacultad.MoveNext
wend
%>
<%
'cierra la conexion
Cnn.Close
set objRSfacultad = nothing
set Cnn = nothing
%>