紧急求救： 语句错误问题

这是我写的一段代码。用于查询显示用的
<!--#include file="conn.asp"-->
<%

dim DBOath
dim rs
dim sql
Set conn=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("sygl.mdb")

Set rs=Server.CreateObject("ADODB.Recordset")
'从Web页获取姓名、电话、学校的值
dim qyfy_ncsq
dim qyfy_ncsq2
dim qyfy_nsrsbh
dim cmdTemp
qyfy_ncsq=request("qyfy_ncsq")
qyfy_ncsq2=request("qyfy_ncsq2")
qyfy_nsrsbh=request("qyfy_nsrsbh")

rs.open sql,conn,1,1
'显示搜索结果
if rs.eof and rs.bof then
response.write "目前通讯录中没有记录"
else
do while not rs.eof
response.write "姓名："&rs("qyfy_ncsq")&"电话："&rs("qyfy_ncsq2")&"学校："&rs("qyfy_nsrsbh")&"<br>"
rs.movenext
loop
end if
'断开数据库
set rs=nothing
conn

紧急求救： 语句错误问题 系统错误!紧急求救! 紧急求救，SQL语句只能输出一半！！ 数据库连接查找语句 错误问题 紧急求救硬件问题 硬盘问题!紧急求救! 紧急求救～～爱情问题， QQ问题紧急求救 恋爱问题紧急求救 USB问题!紧急求救!