<% Dim strConnString, oConn, oRS, oFld Set oConn = Server.CreateObject("ADODB.Connection") strConnString = Application("conectar") oConn.Open strConnString %> Noticias en Comicvia

 

<% Dim conexion, registros, basedatos Set conexion = Server.CreateObject("ADODB.Connection") if request.querystring("entero") <> "" then tipofrase = request.querystring("entero") %> <% conexion.Open oConn Set registros = conexion.execute("SELECT * FROM vianewsnoticia where id = " & tipofrase & " ORDER BY id desc") x = 0 IF registros.eof = FALSE THEN Do While x < 20 if registros.eof = true then exit do %>

<%= registros("titulo") %>
<%= registros.Fields("noticia").Value %>
Puesto por <%= registros.Fields("autor").Value %> el <%= registros.Fields("fecha").Value %> / <% Set bor = Server.CreateObject("ADODB.Connection") bor.Open oConn set numero = bor.execute("select count(*) as num from vianewscomentarios where mono = " & registros.Fields("id") & "") response.write numero("num") %> Comentarios /
">Hacer Comentarios / ">Comentarios.
<% registros.MoveNext x = x + 1 Loop registros.Close Set registros = Nothing conexion.Close Set conexion = Nothing else %>

 

 

*NO EXISTEN NOTICIAS EN ESTE AREA

<%end if%> <%else%>    

 

 

<%end if%> <% Set cons = Server.CreateObject("ADODB.Connection") cons.Open oConn set consul = server.createobject("ADODB.recordset") consul.open "select * from vianewscomentarios where mono = " & tipofrase & " order by id desc",cons,1,1 %>


Ver o Hacer Comentarios de la Noticia:<%if consul.EOF= false then consul.MoveLast consul.MoveFirst do while consul.EOF = false%>

De: <%=consul("nombre")%> <% Set bor = Server.CreateObject("ADODB.Connection") bor.Open oConn Set mirar1 = bor.execute("SELECT * FROM vianewsusuario") do until mirar1.eof = true if consul("nombre") = mirar1("usuario") then if mirar1("nivel") = 1 then %> // ADMINISTRADOR <% exit do end if %> // Usuario Registrado <% exit do else end if mirar1.movenext loop %> Puntuación: <%=consul("puntua")%>
<%=consul("opinion")%>
<%consul.MoveNext loop consul.close set cons = nothing else%>

*Nadie ha opinado todavia.

<%end if %> <% ' AQUI LO DE VISTOS Set meter = server.CreateObject("ADODB.recordset") meter.Open "SELECT * FROM vianewsnoticia where id = " & tipofrase & "",oConn,3,3 meter.fields("vistos") = meter("vistos") + 1 meter.update ' FIN DE VISTOS %>