Current File : C:/Inetpub/vhosts/escuderiaarico.com/httpdocs/clasica16/control/gc01.asp

<html>

<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>

<body>
<%
if Session("autentificado")<>true then

	Response.Status="401 Prohibido"
	Response.End

end if



blogerid=22

usuario=session("usuario")

conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=webweb;PWD=Cocococo1;DATABASE=webweb"
tabla="comentarios"

' LEO COMENTARIOS

SQL="Select * From comentarios where bloger='" & blogerid & "' order by id desc"

set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=webweb;PWD=Cocococo1;DATABASE=webweb"

set rs = oConn.Execute(SQL)

do while not rs.eof and total<150

total=total+1

id=rs("id")
entrada=rs("entrada")
estado=rs("estado")
comentario=rs("comentario")
apodo=rs("apodo")
fecha=rs("fecha")
hora=rs("hora")
ip=rs("ip")

titular=entrada


' ANALIZO RESULTADOS

if estado="a" then
estado="Sin supervisar"
color="#FF0000"
else
end if

if estado="b" then
estado="OK"
color="#FFFFFF"
else
end if

if estado="c" then
estado="Rechazado"
color="#CCCCCC"
else
end if

%>
<table border="1" width="100%" id="table1" cellspacing="0" bordercolor="#CCCCCC">
	<tr>
		<td bgcolor="<%=color%>"><b><font face="Trebuchet MS"><%=estado%></font></b></td>
	</tr>
	<tr>
		<td><b><font face="Trebuchet MS" size="2"><%=titular%></font></b></td>
	</tr>
	<tr>
		<td><font face="Trebuchet MS" size="2"><%=comentario%></font></td>
	</tr>
	<tr>
		<td><font face="Trebuchet MS" size="2"><%=apodo%>&nbsp; /&nbsp; <%=fecha%>&nbsp; /&nbsp; <%=hora%></font></td>
	</tr>
<%
if usuario="motorcanario" then
%>
	<tr>
		<td><font face="Trebuchet MS" size="2">IP: <%=ip%></font></td>
	</tr>
<%
else
end if
%>
	<tr>
		<td><a target="right" href="validar.asp?id=<%=id%>"><img border="0" src="validar.gif" width="99" height="20"></a>&nbsp;&nbsp;&nbsp;&nbsp;
		<a target="right" href="rechazar.asp?id=<%=id%>">
		<img border="0" src="rechazar.gif" width="99" height="20"></a></td>
	</tr>
</table>
<table border="0" width="100%" id="table2">
	<tr>
		<td>&nbsp;</td>
	</tr>
</table>
<%

rs.movenext

loop

rs.Close

set rs = nothing

oConn.Close

set oConn = nothing

%>

</body>

</html>