<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<% set rsFoto = Server.CreateObject("ADODB.RecordSet")
rsFoto.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorialcimurri; option=3; port=3306;"
rsFoto.Source = "Select * from tabImg where IDImg = " & request("ID")
rsFoto.LockType = 3
rsFoto.Open()

nomefile = Server.MapPath("\immagini\" &rsFoto("NomeImg"))

'cancella il file immagine, se esiste
Set objFSO = CreateObject("Scripting.FileSystemObject")
	if objFSO.FileExists(nomefile) then
	objFSO.Deletefile(nomefile)
	set objFSO = nothing
	end if
	
notizia = rsFoto("IDNews")
rsFoto.Delete()
rsFoto.Close
set rsFoto = nothing

'modifica il db se per quella news non ci sono più immagini
set rsImg = Server.CreateObject("ADODB.RecordSet")
rsImg.ActiveConnection =  "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorialcimurri; option=3; port=3306;"
rsImg.Source = "Select * from tabImg where IDNews = " & notizia & " and publ = 'y'"
rsImg.LockType = 3
rsImg.Open()

if rsImg.EOF and rsImg.BOF then
	set rsY = Server.CreateObject("ADODB.RecordSet")
	rsY.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorialcimurri; option=3; port=3306;"
	rsY.Source = "Select ID, NewsImg from tabnews where ID = " & notizia
	rsY.LockType = 3
	rsY.Open()
	rsY("NewsImg") = "n"
	rsY.Update()
	rsY.Close()
	set rsY = nothing
end if
rsImg.Close()
set rsImg = nothing

response.Redirect("/foto.asp")
%>