<% ' Skapa och öppna databasobjekt
set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(" --- egen db, ex Access ---") & ";"

' SQL-sats
SQL = "UPDATE tblTabell SET falt1=varde1 WHERE urvalskriterium"

' Kör satsen
Connect.Execute (SQL)

' Stäng och förstör objekt
Connect.Close
set Connect = nothing
%>