<!-- #include file="connexion.asp"-->
<%
if Session("login")="" then
	Response.Redirect("index.asp")
end if 

id = Request.QueryString("id")

if id <> "" Then

	sql = "Select * From publications where id=" & id & ""

	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, Conn, 1, 3

	url = rs("url")

	' DB Suppression
	If rs("id") <> "" Then

		rs.delete

		rs.Update

	'	sql = "DELETE FROM publications WHERE id=" & page & ""

	End if

	rs.Close
	Set rs = Nothing


	' File Delete
	set fs = CreateObject("Scripting.FileSystemObject")



	if fs.FileExists(Server.MapPath("../" & url)) then
		fs.DeleteFile(Server.MapPath("../" & url))
	end If

	set fs=nothing

end if


Conn.close : Set Conn=nothing

response.redirect("insererpublication.asp")

%>