<%
If Request.Form("submit")<> "" then
strT1=Request.form("textfield")
Response.write strT1
'
On error resume next
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=f:\aaron\web\htdocs\Nwind.mdb"
if err then
end if
conn.execute "insert into tablename(field1,f2..) values('" & strT1 & "'," & arg2 & ")"
if err then
msg=err.description
end if
msg=""
set rs=conn.execute("select * from table where " & & ")
if rs.eof then
else
end if
rs.close
set rs=Nothing
conn.close
set conn=Nothing
end if
%>
lianxi
