%@ LANGUAGE="VBSCRIPT" %>
Revistas Electrónicas
<%
' Conexión con la base de datos de títulos para permitir la conexión directa
' a las revistas existentes.
Set revistas = Server.CreateObject("ADODB.Connection")
revistas.ConnectionTimeout = Session("revistas_ConnectionTimeout")
revistas.CommandTimeout = Session("revistas_CommandTimeout")
revistas.Open Session("revistas_ConnectionString"), Session("revistas_RuntimeUserName"), Session("revistas_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set ListaRev = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT codtitle,title,revistaurl FROM titulos ORDER BY title"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = revistas
ListaRev.Open cmdTemp, , 0, 1
%>
<%
Set revistas = Server.CreateObject("ADODB.Connection")
revistas.ConnectionTimeout = Session("revistas_ConnectionTimeout")
revistas.CommandTimeout = Session("revistas_CommandTimeout")
revistas.Open Session("revistas_ConnectionString"), Session("revistas_RuntimeUserName"), Session("revistas_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set materias = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT DISTINCT materias.codmateria, ListaMaterias.nombre FROM materias INNER JOIN ListaMaterias ON materias.codmateria = ListaMaterias.codmateria ORDER BY ListaMaterias.nombre"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = revistas
materias.Open cmdTemp, , 0, 1
%>
Selecciones la revista a la que quiere ir:
O seleccione la materia deseada: