<%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_LISTSUBMAT" rs.open sqltxt,Conn%> Documento sin título <%do while not rs.eof%> <%vmateria=rs("materia")%> <%vsubmateria=rs("submateria")%> <%if vmateriant<>vmateria then%> <%vmateriant=vmateria%> <%else%> <%vmateriant=vmateria%> <%rs.movenext%> <%end if%> <%loop%> <%rs.close Conn.Close%>

Catálogo de la biblioteca logo isei-ivei Seleccionar materia / submateria
MATERIA
SUBMATERIA
 
 <%=vmateria%>
<%=vsubmateria%>