Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/2023_01/control/gestionadjuntos.asp

<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<%

if Session("autadmin")=true or Session("autprensa")=true then

else

	Response.Redirect("index.asp")
	Response.End

end if

bloger=session("bloger")

bloger=18

usuario=session("usuario")

dim entrada(1000), titular(1000), fecha(1000), total(1000), fichero(1000)

x=0

conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=admind3km;PWD=KyoshoChurri6791;DATABASE=derecha3kmotor"

tabla="entradas"

' CONSULTO ENTRADAS PUBLICADAS

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From " & tabla & " where blogger='" & bloger & "' order by id desc"
set RS = Conn.Execute(sSQL)

do while not rs.eof or x>50

x=x+1

entrada(x)=rs("id")
titular(x)=rs("titular")
dia=rs("dia")
mes=rs("mes")
ano=rs("ano")
fecha(x)=dia&"/"&mes&"/"&ano

rs.movenext

loop

conn.close

' averigua total de adjuntos por cada entrada

conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=admind3km;PWD=KyoshoChurri6791;DATABASE=derecha3kmotor"

tabla="adjuntos"

for z=1 to x

entradapet=entrada(z)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select  * From " & tabla & " where entrada='" & entradapet & "'"

set RS = Conn.Execute(sSQL)

If RS.EOF AND RS.BOF Then

else

do while not rs.eof

total(z)=total(z)+1
fichero(z)=rs("fichero")

rs.movenext

loop

end if

conn.close

if total(z)="" then
total(z)=0
else
end if

next

%>
<div align="center">
<table border="0" cellpadding="3" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td align="center" bgcolor="#3366CC">
    <font face="Trebuchet MS" size="2" color="#FFFFFF"><span lang="es">Entrada</span></font></td>
    <td align="center" bgcolor="#3366CC">
    <font face="Trebuchet MS" size="2" color="#FFFFFF"><span lang="es">Titular</span></font></td>
    <td align="center" bgcolor="#3366CC">
    <font face="Trebuchet MS" size="2" color="#FFFFFF"><span lang="es">Fecha</span></font></td>
    <td align="center" bgcolor="#3366CC">
    <font face="Trebuchet MS" size="2" color="#FFFFFF"><span lang="es">Adjuntos</span></font></td>
    <td align="center" bgcolor="#3366CC">
    <font face="Trebuchet MS" size="2" color="#FFFFFF"><span lang="es">Editar</span></font></td>
  </tr>
<%
for z=1 to x
%>
  <tr>
    <td align="left" font face="Trebuchet MS" size="2" color="#3366CC">
    <p align="center"><font face="Trebuchet MS" size="2" color="#000000"><span lang="es"><%=entrada(z)%></font></td>
    <td align="left"><font face="Trebuchet MS" size="2" color="#000000"><span lang="es"><%=titular(z)%></font></td>
    <td align="left">
    <p align="center"><font face="Trebuchet MS" size="2" color="#000000"><span lang="es"><%=fecha(z)%></font></td>
    <td align="center"><font face="Trebuchet MS" size="2" color="#000000"><span lang="es"><%=total(z)%></font></td>
    <td align="center"><span lang="es"><font face="Trebuchet MS" size="2" color="#000000">
    <a href="gestionadjuntosb.asp?id=<%=entrada(z)%>">
    <img border="0" src="editar.png"></a></font></td>
  </tr>
<%
next
%>
</table>
</div>
</body>

</html>