dim con
set con=server.createobject("adodb.connection")
con.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db2.mdb")

dim strsql,rs
strsql="select * from ye1 where sno='"&strsno&"'"
set rs=con.execute(strsql)------------------------14行

标准表达式中数据类型不匹配。
/yeliang/chaxun1.asp, 第 14 行

你直接写上绝对路径不是更好吗？何必要用Server.MapPath了？