这段代码错在哪里?IE提示第八行.谢谢.

<%
dim conn
dim connstr
dim db
db="data/qsng.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

function strLen(str)
dim i,l,t,c
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLen=t
end function

Function Strleft(Str,L)
Temp_Str=Len(Str)
For I=1 To Temp_Str
Test_Str=(Mid(Str,I,1))
Strleft=Strleft&Test_Str
If Asc(Test_Str)>0 Then
lens=lens+1
Else
lens=lens+2
End If
If lens>=L Then Exit For
Next
End Function

%>

错误类型：
Microsoft JET Database Engine (0x80004005)
'E:\xxxx\data\qsng.mdb'不是一个有效的路径。 确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。
/006/inc/

这段代码错在哪里?IE提示第八行.谢谢. 简单asp问题 请问这段代码错在哪里 一直出现缺少end的提示 这段代码错在哪里？ 请问这段代码错在哪里 谁知道这段代码错在哪里？ 我这段代码错在哪里？ 这段asp代码错在哪里？ 帮忙看看这段ASP的代码错在哪里? 跪求ASP高手，这段代码错在哪里？ 看一下这段代码错在哪里