PK

ADDRLIN : /HMFS2/WEB/DTC038/v0071350.ferozo.com/public_html/administrador/
FLL :
Current File : //HMFS2/WEB/DTC038/v0071350.ferozo.com/public_html/administrador/seccion_foto_del.asp

<!--#include file="includes/openconn.asp" -->

<!--#include file="includes/checkadmin.asp" -->

<%'----------------------------BORRAR ORIGINAL
dim fso,f

on error resume next

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFile(imagedir & "\Secciones\fotos\" & session("sec_codigo") & "\"  & request("sec_imagen"))
f.delete
set f = nothing

Set f = fso.GetFile(imagedir & "\Secciones\thumbs\" & session("sec_codigo") & "\"  & request("sec_imagen"))
f.delete
set f = nothing

'----------------------------CONTAR IMAGENES

dim cant
rs.open "SELECT * FROM Secciones WHERE sec_codigo = '" & session("sec_codigo") & "'",conn,2,2
rs.movefirst

if request("sec_imagen") = rs("sec_imagen") then rs("sec_imagen") = ""
 
rs.update
rs.close%>

<!--#include file="includes/closeconn.asp" -->

<%response.Redirect("Seccion_edit.asp?sec_codigo=" & session("sec_codigo"))%>


PK 99