<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rs__MMColParam rs__MMColParam = "1" If (Request.QueryString("id") <> "") Then rs__MMColParam = Request.QueryString("id") End If %> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_cnx_STRING rs.Source = "SELECT * FROM saegre where id =" + Replace(rs__MMColParam, "'", "''") + "" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> Revista Argentina de Endocrinología y Metabolismo
 
 
 
   saegre                                               « volver »


Revista: Año <%=(rs.Fields.Item("anio").Value)%> | Vol. <%=(rs.Fields.Item("volumen").Value)%> | N° <%=(rs.Fields.Item("numero").Value)%>

<%do while not rs.eof%>
   <%=(rs.Fields.Item("tipo").Value)%>

<%=(rs.Fields.Item("titulo").Value)%>

Autores: <%=(rs.Fields.Item("autores").Value)%>
Revista:   Año   <%=(rs.Fields.Item("anio").Value)%>   |   Vol.   <%=(rs.Fields.Item("volumen").Value)%>    |   Nº    <%=(rs.Fields.Item("numero").Value)%>


<%rs.movenext loop%>
 
diseño nacemultimedial