ASP+ACCESS显示插入新记录的序号的问题
<%
dim conn1,types,qname1,gzdw1,zjmc1,zjhm1,address1,postcord1,telephone1,fax1,email1,action_info1,action_for1,tgfangshi1,hqfangshi1,exec1
set conn1=server.createobject("adodb.connection")
conn1.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("gksq.asp")
qname1=Trim(request.form("qname"))
types=Trim(request.form("types"))
gzdw1=Trim(request.form("gzdw"))
zjmc1=Trim(request.form("zjmc"))
zjhm1=Trim(request.form("zjhm"))
address1=Trim(request.form("address"))
postcord1=Trim(request.form("postcord"))
telephone1=Trim(request.form("telephone"))
fax1=Trim(request.form("fax"))
email1=Trim(request.form("email"))
action_info1=Trim(request.form("action_info"))
action_for1=Trim(request.form("action_for"))
tgfangshi1=Trim(request.form("tgfangshi"))
hqfangshi1=Trim(request.form("hqfangshi"))
exec1="insert into gksq(qname,types,gzdw,zjmc,zjhm,address,postcord,telephone,fax,email,action_info,action_for,tgfangshi,hqfangshi)values('"+qname1+"','"+types+"','"+gzdw1+"','"+zjmc1+"','"+zjhm1+"','"+address1+"','"+postcord1+"','"+telephone1+"','"+fax1+"','"+email1+"','"+action_info1+"','"+action_for1+"','"+tgfangshi1+"','"+hqfangshi1+"')"
conn1.execute exec1
conn1.close
set conn1=nothing
%>
<%
Dim conn,rs,exec
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("gksq.asp")
exec="select * from gksq where qname="&request.Form("qname")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
response.write "<center><font color=""red"">你的申请已经添加成功!请耐心等待我们的审批!</font> </center>"
response.write "<center><font color=""red"">系统为你生成的申请序号为:</font> </center>"&rs("id")
response.write "<center><font color=""red"">请牢记该序号以便你查询你的申请审批状态!</font> </center>"
conn.close
set conn=nothing
%>
大家帮忙看一下怎么修改才能输出刚刚插入新记录的序号ID