Slet fil giver fejl

Her er hele scriptet...Linie 24 er: DelPath = "d:\webs\xxxxxxxxxxxxx\Billeder\" & rs("Pic")

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webs\xxxxxxxxxxxxx\Choker.mdb"
Conn.Open DSN

Mode = Request.Querystring("Mode")
Events = Request.Form("Event")
Tekst = Request.Form("Tekst")
Id = Request.Form("Events")

Events = Replace(Events, "'", "''")
Tekst = Replace(Tekst,"'", "''")
Id = Replace(Id, "'", "''")

If Mode = "Slet" Then
FindSQL = "Select * from Event_Pic where Event='" & Events & "'"
Set rs = Conn.Execute(FindSQL)

Set fs = Server.CreateObject("Scripting.FileSystemObject")
If not rs.EOF Then
Do While not rs.BOF
DelPath = "d:\webs\xxxxxxxxxxxxx\Billeder\" & rs("Pic")

If fs.FileExists(DelPath) Then
       
        fs.DeleteFile(DelPath)
    Else
        response.write "NOT"
    End If

rs.Movenext
Loop
Set fs = Nothing
rs.Close
Set rs = Nothing

strSQL = "Delete * from Event_Tekst, Event_Pic where Id=" & Id
Conn.Execute(strSQL)




End if

Har du en kolonne som hedder Pic ?

ja

har prøvet at udskrive DelPath...det giver et fint nok resultat

Ret Do While not rs.BOF til Do While not rs.EOF, eller Do Until rs.EOF

Yes...det var det...Tak for hjælpen, utroligt at man ikke havde set den...

Mens jeg stadig har jer... Jeg får samme fejl ved det her script:

arrValg = Split(Valg,",")

        For t = LBound(arrValg) to UBound(arrValg)
        strSQL = "Delete from Event_Pic Where Id = " & arrValg(t)
        Conn.Execute(strSQL)
        Set fs = Server.CreateObject("Scripting.FileSystemObject")
           
            DelPath = "d:\webs\xxxxxx\Billeder\" & rs("Pic")

            If fs.FileExists(DelPath) Then
       
            fs.DeleteFile(DelPath)
            Else
            response.write "NOT"
            End If

            Set fs = Nothing

    next

Du mangler Set rs = ved conn.execute

Set rs = Conn.Execute(strSQL)

Takker...skulle også lige ha en select from ind...men nu kør det