Inicio

  
     BIBLIOTECA VIRTUAL
     PROFESORES
     ASIGNATURA
     CURSOS ABIERTOS
     VÍDEOS
     ENLACES
     LA TASQUITA
ENLACES
EDUCACIÓN EXPERIENCIAS
ESCUELAS EN LA RED PROGRAMAS Y SITIOS OFICIALES EDUCATIVOS
EDITORIALES REVISTAS SOBRE EDUCACIÓN
ATENCIÓN A LA DIVERSIDAD RECURSOS
PROYECTOS OTRAS

 

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 %>

  © 2007 Grupo de Tecnología Educativa - Universidad de Sevilla Aviso Legal