如何将sketchup导入cad:ASP网页连接出现的问题,达人进

写的这句程序:wstr = mid(wstr,sl,el-sl+len("<!--"&location&"end//-->"))
出现了这个问题:
Microsoft VBScript 运行时错误 错误 '800a0005'

无效的过程调用或参数: 'mid'

G:\VHOST\WEBROOT\PIONEER2006COM\WWW\VIP\../shop/connall.asp，行63
请高人指点..怎么弄也好不了,是不是数据库的问题?要怎么解决?
你输出

wstr = wstr,sl,el-sl+len("<!--"&location&"end//-->")
我输出啦,可是什么都出不来啊.我发一大段...你们看看
function hanvocom(location)

dim wfname 'webtopFileName
dim wstr
wstr = ""
wfname = server.mappath("/index.html")
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
if MyFileObject.FileExists(wfname) then

Set ac = MyFileObject.OpenTextFile(wfname)
wstr = ac.ReadAll
sl = instr(wstr,"<!--"&location&"start//-->")
if isnull(sl) or sl = "" then sl = 0
el = instr(wstr,"<!--"&location&"end//-->")
if isnull(el) or el = "" then el = 0

if sl = 0 and el = 0 then
wstr = ""
else
wstr = mid(wstr,sl,el-sl+len("<!--"&location&"end//-->"))
response write "wstr"
end if
ac.close
set ac = nothing
end if
set MyFileObject = nothing
hanvocom = wstr
end function