Problem med sletning
Hej i nedenstående kode laver den exception occurred fejl når jeg prøver at slette data/billeder fra databasen som ikke eksisterer (logisk nok) men er der nogen der kan sætte et tjek ind i nedenstående kode?if mode = "del" Then
SQL = "SELECT * FROM andelsboliger_typer WHERE andelsbolig_id = " & request("id")
Set x = Conn.Execute ( SQL )
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("C:\Websites\upload\andelsboliger\" & x("filnavn") & "")
f.Delete
set f=nothing
set fs=Nothing
SQL = "SELECT * FROM andelsboliger_projektspecifikation WHERE andelsbolig_id = " & request("id")
Set x = Conn.Execute ( SQL )
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("C:\Websites\upload\andelsboliger\" & x("filnavn") & "")
f.Delete
set f=nothing
set fs=Nothing
SQL = "SELECT * FROM andelsboliger_billeder WHERE andelsbolig_id = " & request("id")
Set x = Conn.Execute ( SQL )
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("C:\Websites\upload\andelsboliger\" & x("filnavn") & "")
f.Delete
set f=nothing
set fs=Nothing
SQL = "DELETE FROM andelsboliger WHERE andelsbolig_id = " & request("id")
Conn.Execute ( SQL )
SQL = "DELETE FROM andelsboliger_typer WHERE andelsbolig_id = " & request("id")
Conn.Execute ( SQL )
SQL = "DELETE FROM andelsboliger_projektspecifikation WHERE andelsbolig_id = " & request("id")
Conn.Execute ( SQL )
SQL = "DELETE FROM andelsboliger_billeder WHERE andelsbolig_id = " & request("id")
Conn.Execute ( SQL )
Response.redirect "andelsboliger.asp"
end if