Revistas

<%Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../../cuestionario/bd/bibliovir.mdb")&";" 'Ejecuta un sentencia SQL de consulta linkssql = "SELECT * FROM revistas ORDER BY revista ASC" Set result = con.Execute(linkssql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write ""&result.Fields("revista")&"

" 'Pasa a la siguiente fila result.MoveNext Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing %>