EDUCACIÓN

<%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 enlaces where tipo='educacion' ORDER BY nombre 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("nombre")&"

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

Subir

EXPERIENCIAS

<%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 enlaces where tipo='experiencias' ORDER BY nombre 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("nombre")&"

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

Subir

ESCUELAS EN LA RED

<%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 enlaces where tipo='escuelas' ORDER BY nombre 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("nombre")&"

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

Subir

PROGRAMAS Y SITIOS OFICIALES EDUCATIVOS

<%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 enlaces where tipo='programas' ORDER BY nombre 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("nombre")&"

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

Subir

EDITORIALES

<%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 enlaces where tipo='editoriales' ORDER BY nombre 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("nombre")&"

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

Subir

REVISTAS SOBRE EDUCACIÓN

<%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 enlaces where tipo='revistas' ORDER BY nombre 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("nombre")&"

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

Subir

ATENCIÓN A LA DIVERSIDAD

<%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 enlaces where tipo='atencion' ORDER BY nombre 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("nombre")&"

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

Subir

RECURSOS

<%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 enlaces where tipo='recursos' ORDER BY nombre 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("nombre")&"

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

Subir

PROYECTOS

<%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 enlaces where tipo='proyectos' ORDER BY nombre 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("nombre")&"

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

Subir

OTRAS

<%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 enlaces where tipo='otras' ORDER BY nombre 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("nombre")&"

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