<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rs__MMColParam rs__MMColParam = "1" If (Request.QueryString("numero") <> "") Then rs__MMColParam = Request.QueryString("numero") End If %> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_cnx_STRING rs.Source = "SELECT * FROM revista where volumen = 33 and numero =" + Replace(rs__MMColParam, "'", "''") + " ORDER BY ID ASC" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> SAMeR - Revista Online
 
 
Año: <%=(rs.Fields.Item("anio").Value)%> | Volumen: <%=(rs.Fields.Item("volumen").Value)%> | Nro: <%=(rs.Fields.Item("numero").Value)%>
" target="_blank" class="mailmeu">

<%do while not rs.eof%>

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

" target="_blank" class="mailmeu">Leer PDF" target="_blank" class="mailmeu">
 <%rs.movenext loop%>

SAMeR
mantenimiento nacemultimedial