复杂提交问题求救？高手帮忙

[xuallen]

我有两个表tblUser和tblInfo，用户登录后会在session中记下该用户所属区域，例如：北京用户就为BJ，上海用户为SH等等。用户需要填写一张调查表。
每提交记录时需要有个记录单号，我想实现当点击“提交”按钮时自动记录"加1"的数据，例如北京用户提交后记录号就为：BJ0000001，再次提交就为BJ0000002，以此类推。请帮忙看看如下代码？
if session("UserID")<>"" then
select case Session("Location")
case BJ
strCity="BJ"
case SH
strCity="SH"
end select
strSQL1="select * from tblInfo where UserID='" & Session("UserID") & "'"
set DupPrs=conn.execute(strSQL1)
if DupPrs.eof then
strMaxID="select Max(Record) from tblInfo where Location=" & Session("Location") & " and UserID = '" & Session("MadeID") &"%'"
set MaxIDrs=conn.execute(strMaxID)
if isNULL(MaxIDrs(0)) then
MaxID="0000001"
else
tmpMaxID=right(MaxIDrs(0),7)+1
select case len(tmpMaxID)
case 1
MaxID="000000"& tmpMaxID
case 2
MaxID="00000" & tmpMaxID
case 3
MaxID="0000" & tmpMaxID
case 4
MaxID="000" & tmpMaxID
case 5
MaxID="00" & tmpMaxID
case 6
MaxID="0" & tmpMaxID
case 7
MaxID=tmpMaxID
end select
end if
Session("MaxID")=Session("MadeID") & strCity & MaxID
strSave="Insert into tblInfo(record) values('"& Session("Location")&"')"
conn.execute(strSave)
end if

[zurong]

有什么问题？

[fleshboy]

select Max(Record)+1 from tblInfo
不就直接得到下一个ID了吗？

[aloxy]

不清楚你的数据库结构看不出。错误信息？