01.
set rs=server.CreateObject(
"ADODB.recordset"
)
02.
sql=
"select * FROM dbo.aor_test order by id"
03.
rs.open sql,Conn,1,3
04.
if rs.recordcount = 0 then
05.
id=0
06.
else
07.
id=rs(
"id"
)
08.
end if
09.
rs.addnew
10.
rs(
"id"
)=id+1
11.
rs(
"othertype_name"
)=request(
"txtother"
)
12.
rs(
"inuser"
)=session(
"user"
)
13.
rs(
"date_insert"
)=now()
14.
rs.update
15.
rs.close
16.
set rs=nothing
17.
response.Redirect(
"test.asp"
)