<% Dim util Set util = New clsUtilidades Dim con Set con = server.createobject("adodb.connection") con.CursorLocation = adUseClient con.ConnectionString = Application("conexion") con.open Dim rs Dim cmd Set rs = Server.CreateObject("ADODB.Recordset") Set cmd = Server.CreateObject("ADODB.Command") With cmd .CommandText = "sp_PUB_Publicaciones" .CommandType = adCmdStoredProc .ActiveConnection = con .Parameters.Refresh End With cmd("@id_idioma") = 2 rs.Open cmd, , adOpenStatic, adLockOptimistic %> :: Argitalpenak
<% if not rs.eof then do while not rs.eof id_tipopublicacion = rs("id_tipopublicacion") %>

[ <%=rs("tipopublicacion")%> ]

<% do while rs("id_tipopublicacion") = id_tipopublicacion %>

)"> <%=rs("titulo")%> <%if rs("subtitulo")<>"" then%>
<%=rs("subtitulo")%> <%end if%> <%if rs("autor")<>"" then%> / <%=rs("autor")%> <%end if%>

<% rs.movenext if rs.eof then exit do end if loop loop end if %>