<%
'Sökväg till din Access Databas
strDBPath = Server.MapPath("../Data/techdb.mdb")

'Skapar objecten
Set DC = Server.CreateObject("ADODB.Connection")
Set CAR = Server.CreateObject("ADODB.Recordset")

'DSN
'DC.Open "DSN=System_DSN_Name"
'DSN-Less
DC.Open "DBQ=" & strDBPath & ";Driver={Microsoft Access Driver (*.mdb)};"

'Din sql fråga
MYSQL = "SELECT * FROM Din_Tabell"

CAR.Open MYSQL, DC, 1, 3

'Här lägger vi till en ny post och skickar text till fälten.
CAR.AddNew
CAR.Fields("Ditt_Fält1") = "Vad Du Vill Spara"
CAR.Fields("Ditt_Fält2") = "Vad Du Vill Spara"
CAR.Update

'Stänger
CAR.Close
Set CAR = Nothing
DC.Close
Set DC = Nothing
%>