我写了一个设备管理系统，在增加记录时，我写了一个函数，为什么会出错，请高手指点

表 worker
 ID   ShoolName
 1    城关中学
 2    洲湖中学
 2    洋门中学
表 HaveNum
 ID SchoolID  EquipID   Num
 1   1              1            56
 2   1              2            83

函数是这样的:

<%
  sub Add_school_equi_num(school_name,equi_id,equi_num)
    dim sql
    sql="insert into HaveNum (SchoolID,EquipID,Num) values ((select ID from worker where
SchoolName='"&school_name&"'),"&CStr(equi_id)&","&CStr(equi_num)&")"
    conn.execute sql   
    if err.Number<>0 then
        response.write "<font color=red>"
 err.clear
 response.write "添 加 失 败 !<br>"
        response.write "</font>"
    end if
  End sub
%>

调用程序是这种写的，为什么会出错，请高手指点
         if num>0 then
             call Add_school_equi_num(schoolname,i+1,num)
         end if
  
显示错误是
    conn.execute sql   行出错,应该是 sql 出了问题

源程序下载：(设备管理系统)
[url=http://www.]http://www.[/url]
有哪位修改后请发回一份给我，谢谢
 [email=afliult@]afliult@[/email]
qq:  397437671

EquipID   Num
这两个都是数字类型？
"&CStr(equi_id)&","&CStr(equi_num)&"
改成
"&cint(equi_id)&","&cint(equi_num)&"
试试

谢谢这位朋友,我试试看

试了,还是没用,你帮我想想办法,好吗?

<%
  sub Add_school_equi_num(school_name,equi_id,equi_num)
    dim SchoolID
    SchoolID=Conn.exeCute("select top 1 ID from worker where SchoolName='"&school_name&"'")(0)

    Conn.exeCute("insert into HaveNum (SchoolID,EquipID,Num) values (SchoolID,"&equi_id&","&equi_num&")")
  
    if err.Number<>0 then
       response.write "<font color=red>添 加 失 败</Font><br/>"
       err.clear
    end if
  End sub
%>

按天涯听雨的方法修改，稍做一点调整
Conn.exeCute("insert into HaveNum (SchoolID,EquipID,Num) values ("&SchoolID&","&equi_id&","&equi_num&")")
就改天涯听雨的这一句就行了，测试通过。

不好意思，刚才上面是写错了，偶太粗心了。引用参数应该要加："&SchoolID&"

谢谢各位的帮忙,大感谢你们了