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"%>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.