|
|
|
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open "DSN=revista;UID=;PWD=;"
sSql = "SELECT * FROM Ediciones ORDER BY Volumen DESC, Numero DESC"
Set RS = Cnn.Execute(sSql)
Edicion = RS("IDEdicion")
Volumen = RS("Volumen")
Numero = RS("Numero")
Ano = RS("Ano")
%>
| Volume <%=RS("Volumen")%>
- Issue <%=RS("Numero")%> - <%=RS("Ano")%> |
Table
of contents |
|
|
|
<%
RS.Close
Cnn.Close
Set Cnn = Server.CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Cnn.Open "DSN=revista;UID=;PWD=;"
sSql = "SELECT IDContenido,Edicion,Tipo,Autores,Title,Pagina1,Pagina2,Idioma,Archivo FROM Contenidos WHERE Edicion = "&Edicion&" ORDER BY Pagina1"
RS.Open sSql, Cnn
DO WHILE NOT RS.EOF
IF RS("Tipo") = "A" THEN
IF RS("Idioma") = "C" THEN
aa = "Spanish"
ELSE
aa = "English"
END IF
%>
|
<%=RS("Autores")%>
|
|
<%=RS("Title")%> (Article in <%=aa%>)
|
| &Edicion=<%=RS("Edicion")%>">abstract
<%=Volumen%> (<%=Numero%>): <%=RS("Pagina1")%>-<%=RS("Pagina2")%>
.pdf" target="_blank">full
text in pdf format |
|
|
<%
END IF
RS.MoveNext
LOOP
RS.MoveFirst
DO WHILE NOT RS.EOF
IF RS("Tipo") = "N" THEN
IF RS("Idioma") = "C" THEN
aa = "Spanish"
ELSE
aa = "English"
END IF
%>
|
<%=RS("Autores")%>
|
|
<%=RS("Title")%> (Scientific note in <%=aa%>)
|
| &Edicion=<%=RS("Edicion")%>">abstract
<%=Volumen%> (<%=Numero%>): <%=RS("Pagina1")%>-<%=RS("Pagina2")%>
.pdf" target="_blank">full
text in pdf format |
|
|
<%
END IF
RS.MoveNext
LOOP
RS.Close
Cnn.Close
%>
| prior
publications |
|
|
|
|
|
|
|
|
