<%
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("1.mdb")
conn.Open connstr
sql="insert into 2 (name,pass) values ('"&request("name")&"','"&request("textfield2")&"')"
conn.execute sql
conn.close
set conn=nothing
%>