<% Dim strConnString, oConn, oRS, oFld Set oConn = Server.CreateObject("ADODB.Connection") strConnString = Application("conectar") oConn.Open strConnString %> Noticias en Comicvia
<% Dim conexion, registros, basedatos if request.querystring("tipo") <> "" then tipofrase = 1 Set registros = server.CreateObject("ADODB.recordset") registros.Open "SELECT * FROM vianewsnoticia where tipo = " & tipofrase & " ORDER BY id desc", oConn, 2, 2 x = 0 IF registros.eof = FALSE THEN Do While x < 35 if registros.eof = true then exit do %>

<%= registros("titulo") %>
<%= registros("descripcion") %>
<%= registros.Fields("autor").Value %> el <%= registros.Fields("fecha").Value %> / <% Set numero = server.CreateObject("ADODB.recordset") numero.Open "select count(*) as num from vianewscomentarios where mono = " & registros.Fields("id") & "",oConn,3,3 response.write numero("num") %> Comentarios / Veces Visto : <%= registros.Fields("vistos").Value %> ','SDLA','scrollbars=yes,width=550,height=400')" name="Image9113" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image9113','','imagenes/mas1.gif',1)" width="24" height="17">

<% registros.MoveNext x = x + 1 Loop registros.Close Set registros = Nothing else %> <%end if%> <%end if%>