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

<%
Response.CharSet = "UTF-8"

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")
idg=request.querystring("idg")


' CONSULTO DATOS

conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=blogs;PWD=Cocococo1;DATABASE=blogs"

tabla="adjuntos"

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

set RS = Conn.Execute(sSQL)

fichero=rs("fichero")
denominacion=rs("denominacion")

conn.close


' BORRO DATOS

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Delete From adjuntos where id='" & idpet & "'"

set RS = Conn.Execute(sSQL)

conn.close



' BORRO FICHERO EN DISCO DURO

Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set archivo = fso.GetFile(Server.MapPath("/") & "\documentos\" & fichero)
archivo.Delete


%><html>

<head>
<meta http-equiv="Content-Language" content="es">

<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title></title>
</head>

<body bgcolor="#FFFFFF">

<p align="center"><img border="0" src="ok.png"></p>

<p align="center"><i><font face="Trebuchet MS">Borrado &quot;<%=fichero%>&quot;</font></i></p>

<p align="center">&nbsp;</p>

<p align="center"><u><span lang="es"><i><font face="Trebuchet MS">
<a href="gestionadjuntosb.asp?id=<%=idg%>"><font color="#000000">regresar</font></a></font></i></span></u></p>

</body>

</html>