Hvordan får jeg slettet en mappe ?

Hey alle sammen

Jeg har følgende side:
<%
ID = Trim(Request.QueryString("id"))

IF ID <> "" THEN

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\web\localuser\pivskid.dk\database\bornehave.mdb"

    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    'Sletning af mappen

    sti = server.mappath("/bornehave/images/") & ID

    Response.write("STI: '" & sti & "'")

    IF FSI.FolderExists(sti) THEN FSO.DeleteFolder(sti)

    Set FSO = Nothing

    strSQL = "DELETE * FROM gallerikategori where Id=" & ID
    Conn.Execute(strSQL)

    conn.Close
    Set conn = nothing
    Set strSQL = nothing

    response.redirect("" & ("forward.asp?side=galleriet&menu=4") & "")

END IF
%>

Som meget gerne skulle kunne slette 1 bestemt mappe, men får følgende fejlmelding:

Microsoft VBScript runtime  error '800a004c'

Path not found

/admin/slet_galleri.asp, line 9