s8狗头符文:ASP批量生成html问题.....急救..

小弟想把我站的信息浏览页面批量转换成htm的...
代码如下..
<!--＃i nclude file="conn.asp" -->
<%
Dim weburl
sql = "SELECT * FROM movie order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,db,1,3
do while not rs.eof
weburl="<!--＃i nclude file=display.asp?id="&rs("id")&"-->"
body=getHTTPPage(weburl)’

Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("/html/"&rs("id")&".htm")
Set txt=fso.OpenTextFile(File,8,True)
txt.WriteLine weburl
txt.Close
txt.fso

rs.movenext
loop
rs.close
set rs=nothing
%>

可是没用啊..
显示.
Microsoft VBScript 编译器错误 错误 '800a0408'

无效字符

/mlist.asp，行 19

body=getHTTPPage(weburl)’
-----------------------^

有哪位哥哥知道怎么修改..麻烦告诉我..万分感谢..
有asp转换htm的高手请留个QQ.小弟想指教指教.
把引号去掉了就变成

ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/mlist.asp，行 16

16行是rs.OPEN sql,db,1,3

搞不懂了.55555555555555555 谁教我啊

那我应该怎么弄啊..谁可以说清楚一点啊.
可以弄好.我花点钱也可以..留个QQ