Set fso=Server.CreateObject("Scripting.FileSystemObject") 'Her vælges hilken fil der skal slettes fil = Server.Mappath("../images/" & '=rsPicture("name")' & ") 'Tjek om filen findes før den slettes for at undgå fejl if fso.FileExists(fil) then fso.DeleteFile(fil) end if set fso=nothing
rsPicture.close set rsPicture= Nothing set ADO_Connection = Nothing Response.Redirect "pic_show.asp"%>
Set fso=Server.CreateObject("Scripting.FileSystemObject") 'Her vælges hilken fil der skal slettes fil = Server.Mappath("../images/" & rsPicture("name") & "") 'Tjek om filen findes før den slettes for at undgå fejl if fso.FileExists(fil) then fso.DeleteFile(fil) end if set fso=nothing
rsPicture.close set rsPicture= Nothing set ADO_Connection = Nothing Response.Redirect "pic_show.asp"%>
Set fso=Server.CreateObject("Scripting.FileSystemObject") 'Her vælges hilken fil der skal slettes fil = Server.Mappath("../images/" & rsPicture("name") & "") 'Tjek om filen findes før den slettes for at undgå fejl if fso.FileExists(fil) then fso.DeleteFile(fil) end if set fso=nothing
rsPicture.Delete
rsPicture.close set rsPicture= Nothing set ADO_Connection = Nothing Response.Redirect "pic_show.asp"%>
Har flyttet rsPicture.Delete så den først sletter recordset efter filen er slettet, da den jo trækker name ud.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.