Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/2023/control/gestionadjuntosb.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")
usuario=session("usuario")

idpet=request.querystring("id")

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

tabla="entradas"

' CONSULTO ENTRADA

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

titular=rs("titular")

conn.close


' averigua total de adjuntos de la entrada

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

tabla="adjuntos"

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

set RS = Conn.Execute(sSQL)

If RS.EOF AND RS.BOF Then

else

%>
<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">
	Denominacion</span></font></td>
    <td align="center" bgcolor="#3366CC">
    <font face="Trebuchet MS" size="2" color="#FFFFFF"><span lang="es">Fichero</span></font></td>
    <td align="center" bgcolor="#3366CC">
    <font face="Trebuchet MS" size="2" color="#FFFFFF">Ver</font></td>
    <td align="center" bgcolor="#3366CC">
    <font face="Trebuchet MS" size="2" color="#FFFFFF"><span lang="es">Borrar</span></font></td>
  </tr>
<%
do while not rs.eof

%>
  <tr>
    <td align="left" font face="Trebuchet MS" size="2" color="#3366CC">
    <p align="left"><font face="Trebuchet MS" size="2" color="#000000"><span lang="es"><%=rs("denominacion")%></font></td>
    <td align="left"><font face="Trebuchet MS" size="2" color="#000000"><span lang="es"><%=rs("fichero")%></font></td>
    <td align="left"><a target="_blank" href="http://www.motorcanario.com/blogs/<%=usuario%>/documentos/<%=rs("fichero")%>"><img border="0" src="buscar.png" width="25" height="25"></a></td>
    <td align="center"><span lang="es"><font face="Trebuchet MS" size="2" color="#000000">
    <a href="borraradjunto.asp?id=<%=rs("id")%>&idg=<%=idpet%>">
    <img border="0" src="borrar.png"></a></font></td>
  </tr>
<%

rs.movenext

loop

end if

conn.close

%>
</table>
</div>
<p align="center">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
    <tr>
      <td width="100%">
      <p align="center"><a target="principal" href="nuevoadjunto.asp?id=<%=idpet%>">
      <img border="0" src="nuevo.png"></a></td>
    </tr>
    <tr>
      <td width="100%">
      <p align="center"><font face="Trebuchet MS" size="1" color="#3366CC">
      <span lang="es">Nuevo Adjunto</span></font></td>
    </tr>
  </table>
  </center>
</div>
</body>

</html>