ASP中数据库插入出现有关问题，附代码

ASP中数据库插入出现问题，附代码
<%


sub SaveAdd
xm=trim(request("xm"))
sfzh=trim(request("sfzh"))
lxdh=trim(request("lxdh"))
dnlx=trim(request("dnlx"))
ppxh=trim(request("ppxh"))
ys=trim(request("ys"))
swfs=trim(request("swfs"))
ffdh=trim(request("ffdh"))
swzh=trim(request("swzh"))
mac1=trim(request("mac1"))
mac2=trim(request("mac2"))
mac3=trim(request("mac3"))
jsjm=trim(request("jsjm"))
ypxlh=trim(request("ypxlh"))
cpuxlh=trim(request("cpuxlh"))
cpxlh=trim(request("cpxlh"))
sydz=trim(request("sydz"))
szdw=trim(request("szdw"))
tbr=trim(request("tbr"))
tbdw=trim(request("tbdw"))
scsj=trim(request("scsj"))
sfbd=trim(request("sfbd"))



set rs=server.createObject("Adodb.recordset")
rs.open sql,conn
' MaxID=rs(0)
rs.close
set rs=nothing
Sql="insert into mac(xm,sfzh,lxdh,dnlx,ppxh,ys,swfs,ffdh,swzh,mac1,mac2,mac3,jsjm,ypxlh,cpuxlh,cpxlh,sydz,szdw,tbr,tbdw,scsj,sfbd) values(" & xm& ",'" & sfzh & "','" & lxdh & "','" & dnlx & "','" & ppxh & "'," & ys & "," & swfs & ",'" &ffdh & "','" & swzh & "','" & mac1 & "','" & mac2 & "','" & mac3 & "','" & ypxlh & "','" & cpuxlh & "','" & sydz & "','" & szdw & "','" & tbr & "','" & tbdw & "','" & scsj & "','" & sfbd & "')"
conn.execute Sql

end sub


%>
上面是网页中插入的代码，但是就是实现不了
还请各位指教啊

------解决方案--------------------
请问 conn 连接到哪里的数据库了，连接字符串在哪呢
------解决方案--------------------
rs.open sql,conn
打开了一个未知的语句
------解决方案--------------------
set rs=server.createObject("Adodb.recordset")
rs.open sql,conn
' MaxID=rs(0)
rs.close
set rs=nothing
把这段去掉
再不行的话你response.write(Sql)把输入的语句复制到查询分析器里执行一下，看看有没有错了
------解决方案--------------------
你把这个网页的全部代码发出来看看，首先要排查的是什么错误引起的
------解决方案--------------------
SaveAdd 根本没有执行到里面，还有input.asp　就是这个页面吗