<%@ Language=VBscript%>
<%
dim sql
dim conn
set conn=server.createobject("adodb.connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("data.mdb")
sql="insert into tablename(field1,field2) values('1','2')"
conn.execute(sql)
%>