sql="select 币种,名称  from 币种  order by 币种"
a=0
idd=1
set rs = Server.CreateObject("ADODB.Recordset") 
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1
if not (rs.eof or err) then 
do while not rs.eof
a=a+1
Set Columns=rs.Fields
For i=0 to Columns.Count-1

if trim(Columns(i).name)="币种" then

if len(request.form(""&a+3&""))=0 then
hd1=20000
else
hd1=request.form(""&a+3&"")
end if
idd=idd+1
asql="insert into  核定2 (编号,核定限额) "
asql=asql&" values ( "&idd&","&hd1&")"
conn.Execute(asql)
end if
Next
rs.movenext 
a=a+1
loop
next
end if
rs.close
set rs=nothing

insert into 语句在 hd1 处始终提示错误，请问正确写法，谢谢！