if mode = "del" Then
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT COUNT(*) FROM andelsboliger WHERE andelsbolig_id = " & request("id")", Conn
if objRS(0) > 0 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
end if
Som sagt koder jeg i ASP.NET og da det her er ASP.OLD, er ovenstående kode baseret på forskellige google-søgninger.
Det er ikke testet, så du må prøve dig lidt frem. Jeg garanterer ikke at koden virker.
Indlæg senest redigeret d. 22.09.2009 15:45 af Bruger #13488