<%response.write "No deberia ver esta pagina" response.end%> <% Set cons = Server.CreateObject("ADODB.Connection") cons.Open session("noticiasopinion"),"","1z9e5" set consul = server.createobject("ADODB.recordset") consul.open "select * from monoenc where mono = " & request.querystring("aver") & " order by id desc",cons,3,3 %>

<%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 session("noticiasopinion"),"","1z9e5" Set mirar1 = bor.execute("SELECT * FROM usuario") 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 %>