Microsoft VBScript 编译器错误 (0x800A0408) 
无效字符 
/asp/jingpinkecheng.asp, line 13 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("guojiajingpin.mdb") 
请问这一句哪里有错误 

dim conn,rs 
'与数据库建立连接 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("guojiajingpin.mdb") 

sql = "select * from data" 
Set rs = Server.CreateObject("ADODB.RecordSet") 
rs.Open sql,conn,1,1 

Do While Not rs.Eof 
Response.Write "课程名称："& rs("课程名称") &"院系："& rs("院系") &" 负责人："& rs("负责人")&"课程类型"rs("课程类型") &"所属一级学科"rs("所属一级学科") 
rs.MoveNext 
Loop 

rs.Close 
Set rs = Nothing 
conn.Close 
Set conn = Nothing