请帮帮我这个菜鸟~~
<!--#include   file= "conn.asp "-->
<%
Set   rs=Server.CreateObject( "ADODB.Recordset ")
if   request.form( "ff ")= "查找 "   then
<script   language= "javascript ">
function   keyEnter(){
      if   (event.keyCode   ==   13) '判断是不是按下了回车键
      {
            '此处是处理查询操作的代码;
        }    
}
do***ent.onkeydown   =keyEnter;
</script>
'else
'if   request.form( "ff ")= "0x1c0d "   then
whatzip=request.form( "name ")

sql= "select   *   from   [mywork1]   where   [姓名]   like   '% "&whatzip& "% '   or   [学号]   like   '% "&whatzip& "% '   or   [联系方式]   like   '% "&whatzip& "% '   or   [BQQ号]   like '% "&whatzip& "% '   or   [QQ号]   like   '% "&whatzip& "% '   or   [寝室]   like   '% "&whatzip& "% ' "
'response.write "222 "
'response.write(sql)
else
sql= "select   *   from   [mywork1] "
end   if
rs.open   sql,conn,3,3

if   not   rs.eof   then  
      response.write " <table   border=1   cellspace=0   cellpadding=5> "& " <tr   height=12> <td   width=70> <b> 学号 </b> </td> "   & " <td   width=50> <b> 姓名 </b> </td> "   & " <td   width=50> <b> 性别 </b> </td> "   & " <td   width=50> <b> 寝室 </b> </td> "   & " <td   width=70> <b> 联系方式 </b> </td> "   & " <td   width=50> <b> BQQ号 </b> </td> "   & " <td   width=70> <b> QQ号 </b> </td> </tr> "
     
do   while   not   rs.eof
      response.write   " <tr   height=12> <td   width=70> "&   rs( "学号 ")& " </td> "& " <td   width=50> "&   rs( "姓名 ")& " </td> "& " <td   width=50> "&   rs( "性别 ")& " </td> "& " <td   width=50> "&   rs( "寝室 ")& " </td> "& " <td   width=70> "&   rs( "联系方式 ")& " </td> "& " <td   width=50> "&   rs( "BQQ号 ")& " </td> "& " <td   width=70> "&   rs( "QQ号 ")& " </td> </tr> "
rs.movenext
loop
response.write " </table> "

rs.close
else
response.write( "对不起，你输入有错 ")
end   if

%>


中间那段JAVA的代码有问题,它一直都在抱错
错误提示如下:

Microsoft   VBScript   编译器错误   错误   '800a0400 '  

缺少语句  

/3zu/2bufeng.asp，行   5  

<script   language= "javascri