ASP连接数据库时，无法显示网页！！ - 编程论坛

制作B/S模式的图书管理系统
  其中一个  库存图书查询的ASP文件，  代码是：
%>
<html>
<head>
<title>库存图书查询列表</title>
</head>
<body bgcolor="#FFFFCC" text="#000000" link="#3366CC" vlink="#666666" alink="#990000">
<br><br>
<h1 align="center">
<font color="#800080" size="+6" face="华文行楷">
<b>库存图书查询列表</b></font>
<%
set cn=server.CreateObject("ADODB.Connection")
cn.open "Dsn=tsgl;UID=sa;PWD="
if request.Form("tsgjzlb")="图书编号"then
    Set rs=cn.Execute("select * from tsbm where tsbh like '%"&request.Form("tsgjz")"%'")
     elseif request.Form("tsgjzlb")="图书名称"then
    Set rs=cn.Execute("select * from tsbm where tsmc like '%"&request.Form("tsgjz")"%'")

elseif request.Form("tsgjzlb")="图书类别"then
    Set rs=cn.Execute("select * from tsbm where tslb like '%"&request.Form("tsgjz")"%'")

elseif request.Form("tsgjzlb")="作者"then
    Set rs=cn.Execute("select * from tsbm where zzxm like '%"&request.Form("tsgjz")"%'")

else
   Set rs=cn.Execute("select * from tsbm where cbs like '%"&request.Form("tsgjz")"%'")

end if
if rs.eof then
    response.Write"<font size='4' color='#0000ff'>"
    response.Write"<center>没有要查询的记录</center>"
    response.Write"</font>"
   else
    response.Write"<table align=center border=1 cellpadding='3' style='font-size:11pt'>"
    response.Write"<tr bgcolor=#d8bfd8>"
    response.Write"<td nowrap align=center>图书编号</td>"
    response.Write"<td nowrap align=center>图书名称</td>"
    response.Write"<td nowrap align=center>图书类别</td>"
    response.Write"<td nowrap align=center>作者</td>"
    response.Write"<td nowrap align=center>出版社</td>"
    response.Write"<td nowrap align=center>出版日期</td>"
    response.Write"<td nowrap align=center>定价</td>"
    response.Write"<td nowrap align=center>备注</td>"
    response.Write"</tr>"
    do while not rs.eof
     response.Write"<tr>"
     response.Write"<td>"&rs("tsbh")&"</td>"
     response.Write"<td>"&rs("tsmc")&"</td>"
     response.Write"<td>"&rs("tslb")&"</td>"
     response.Write"<td>"&rs("zzxm")&"</td>"
     response.Write"<td>"&rs("cbs")&"</td>"
     response.Write"<td>"&rs("cbrq")&"</td>"
     response.Write"<td>"&rs("dj")&"</td>"
     response.Write"<td>"&rs("bz")&"</td>"
     response.Write"</tr>"
     rs.movenext
    loop
    response.Write"</table>"
end if
  %>

网页中提示红的代码错误！！！
  急  ！急！！！
   谢谢~~~