<%
dim conn
dim connstr
on error resume next
set conn=server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("c.mdb")
conn.open
sql="insert into form(key) values ('kk')"
conn.execute sql
response.Write("sending")
if err.number<>0 then
response.clear
response.write("ok")
end if
conn.close
%>