<%


set conn = APPLICATION("ACN")
id = request("pic_id")
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from list_infopic_s where pic_id ="&id


rs.Open sql,conn
if not (rs.BOF and rs.EOF) then 
	pic_name = rs("pic_name")
	info_id  = rs("info_id")
end if 
rs.Close 
	

Set fso1 = CreateObject("Scripting.FileSystemObject")
destination = server.MapPath("..\Images") 
if fso1.FileExists(destination&"\"&pic_name ) then fso1.DeleteFile(destination&"\"&pic_name)

sql = " delete from list_infopic_s  where pic_id ="&id
conn.execute( sql )
Response.Redirect "info_edit_s.asp?info_id="&info_id
%>