Ret i database

Hejsa,

Jeg har et brugersystem på min hjemmeside hvor folk kan oprette en bruger med et profil billede. Det virker også fint nok. Når en bruger opretter sig indtaster han sin data og vælger et billede på sin harddisk og trykker "OK" så bliver billedet uploadet til serveren og filnavnet bliver gemt sammen med hans bruger data i databasen.

Mit problem er nu at brugeren skal have mulighed for at ændre sit billede... Jeg har prøvet at kopire koden og ændre lidt i den men jeg kan desvære ikke ændre hele koden selv for det skal laves sådan så koden skal vide brugerens ID og derefter ændre filnavnet i brugerens data... Her er koden som skal laves om så den retter i databasen i stedet for at oprette nyt:

--------------------------------------
<%

Option Explicit
 
Dim upl, NewFileName
Dim objConn
Dim strINSERT
Dim File1, billede1
Dim strConnect

Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
 
If Len(upl.Form("File1")) > 0 Then
    NewFileName = "/images/userbiler/" & upl.ExtractFileName(upl.Form("File1"))
    If upl.SaveToWeb("File1", NewFileName) Then
        Response.Write("Ok") 
    Else
        Response.Redirect("loggetind.asp?besked=FEJL PRØV IGEN!")
    End If
End If


strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database/bodykits.dk/brugersystem.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)
           
billede1 = upl.ExtractFileName(upl.Form("File1"))


strINSERT = "INSERT INTO BrugerBiler (billede1) VALUES ( '"
    strINSERT = strINSERT &  billede1 & "')"
 
    call objConn.execute(strINSERT)
objConn.close()
Response.Redirect("loggetind.asp?besked=Dit profil billede er nu opdateret.")
%>
--------------------------------------