好久没写ASP程序，都傻了。简单问题求解

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>


<%'response.ContentType ="application/vnd.ms-excel"%>

<%
Set rs=server.CreateObject("adodb.recordset")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/zsb.mdb")

dim Stryear,semester,sql,Strsort
Stryear=trim(request("Stryear"))
if not IsNumeric(Stryear) or isEmpty(Stryear) then
  Response.Write(" <script type='text/javascript'>alert('输入的不是数字'); window.history.back(-1); </script>")
  end if
semester=trim(request("semester"))
Strsort=trim(request("Strsort"))
sql="SELECT DISTINCT cj.XH, xsda.XM, cj.KC, cj.CJ, cj.KSDATE, bj.BJ, cj.xq, cj.kslxdm from bj INNER JOIN (xsda INNER JOIN cj ON xsda.XH = cj.XH) ON bj.BJDM = xsda.BJDM WHERE (((cj.xq)='"&Stryear&"年"&semester&"') AND ((cj.kslxdm)='"&Strsort&"') AND ((bj.BJDM) Like 'CZ*')) ORDER BY cj.XH, cj.KC;"
response.Write(sql)

rs.Open sql, Conn, 3,1
response.Write(rs.recordcount)
%>

<table width="586" border="0" align="cente