<%Tabort = "SELECT * FROM skateboard WHERE ID = "&Request.QueryString("vilketid")&""
RecSet.Open Tabort, Connect, adOpenStatic, adLockOptimistic
Dim Obj2
Set Obj2 = CreateObject("Scripting.FileSystemObject")
If Obj2.FileExists(Server.mappath("bilder/" & RecSet("adress") & "")) Then
Obj2.DeleteFile (Server.mappath("bilder/" & RecSet("adress") & ""))
End If
RecSet.Delete
RecSet.Update
RecSet.Close%>
Frågan#1
Har en funktion där man kan ladda upp egna bilder. Om nån har skickat upp en bild som jag ogillar flera gånger, vill jag kunna ta bort de posterna ur databasen.
Så här ser min kod ut:
<%Tabort = "SELECT * FROM skateboard WHERE ID = "&Request.QueryString("vilketid")&""
RecSet.Open Tabort, Connect, adOpenStatic, adLockOptimistic
Dim Obj2
Set Obj2 = CreateObject("Scripting.FileSystemObject")
Obj2.DeleteFile (Server.mappath("bilder/" & RecSet("adress") & ""))
RecSet.Delete
RecSet.Update
RecSet.Close%>
Så som det är nu tas den bilden och posten bort. Men om personen har skickat upp bilden flera gånger kan jag bara ta bort en av posterna, eftersom att bilden är bortagen (får felmeddelande).
Jag måste på nått sätt kolla om bilden finns. Om den finns: Ta bort den och posten. Om den inte finns: Ta bara bort posten.
Någon som fattar vad jag menar?