n2=Request.form("n1")
dim db,li
li="database/user.mdb"
set db=server.Createobject("ADODB.Connection")
db.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(li)
dim strsql
strsql="insert into userinfo username values n2"
db.Execute(strsql)