<% PicName = Cstr(request("pic")) ID = Cstr(request("id")) Set rs = Server.CreateObject( "ADODB.Recordset" ) rs.Open "select * from users_ads where ain=" & ID,conn,1,3,8 rs.MoveFirst OldFileName = rs.Fields(PicName) rs.Fields(PicName) = "" Set upl = Server.CreateObject("SoftArtisans.FileUp") upl.Delete (Server.MapPath("/photos/") & "\" & OldFileName) rs.Update rs.Close Response.Redirect request.ServerVariables("HTTP_REFERER") %>