dim conn,rs
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & Server.MapPath("51windows.mdb")
set rs=Server.CreateObject("ADODB.Recordset")

sql="select * from [table] where ID is null" '自動編號字段為id
rs.open sql,conn,1,3
rs.addnew
rs("Name") = Request.form("Name")
rs("Name2") = Request.form("Name2")
rs.update

response.write "ID值：<strong style=""color:red;"">" & rs("ID") & "</strong>" '得剛剛插入記錄的自動編號的值

rs.close
set rs = nothing
conn.close
set conn = nothing