update

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

For Each Id in Request.Form("id")

If Request.Form("slet"& id) = "slet" Then

    strSQL = "Delete * from barometer WHERE id ="& id

Else

    strSQL = "Update barometer SET " _
    & "billede = " & Request.Form("billede" & Id) & ", "_
  & "alder = " & Request.Form("alder" & Id) & ", "_
    & "klasse = '" & Request.Form("klasse" & Id) & "', "_
    & "patter = " & Request.Form("patter" & Id) & ", "_
    & "roev = " & Request.Form("roev" & Id) & ", "_
    & "krop = " & Request.Form("krop" & Id) & ", "_
    & "cme = " & Request.Form("cme" & Id) & ", "_
    & "aksp = '" & Request.Form("aksp" & Id) & "', "_
    & "kommentar = '" & Request.Form("kommentar" & Id) & "' "_
    & "WHERE id = " & Id

End If

Conn.execute(strSQL)
'Response.Write(strSQL)&"<br>"

Next

Conn.Close
Set Conn = Nothing
response.redirect("default1.asp")
%>
<html>

<head>
<title></title>
</head>

<body>
</body>
</html>

Fandt ud af at denne ikke kan opdatere billede, hvorfor ikke