<%Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Mode=3 Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\..\..\data\biblioteca.mdb")) set rs=createobject("ADODB.Recordset") rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic sqltxt= "select * from C_LISTMAT" rs.open sqltxt,Conn%> Documento sin título <%i=1%> <%do while not rs.eof%> <%vmateria=rs("materia")%> <%rs.movenext%> <%loop%> <%rs.close Conn.Close%>

Catálogo de la Bibliotecalogo isei-ivei Seleccionar Materia
LISTADO DE MATERIAS
 
<%=vmateria%>