此段代码为什么说我end if 有问题？急

[ccgFT]

<%sub cxbj()
set dbconnection=Server.CreateObject("ADODB.Connection")
set drs=Server.CreateObject("adodb.recordset")
DBPath = Server.MapPath("选课.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
bj=request.Form("bj")
sql="select * from 选课表 where 班级='"&bj&"'"
set uplist=dbconnection.execute(sql)
response.write(" "+" "+bj+"实验时间表")%>
if uplist.eof then
response.write("对不起！")
response.write("同学， 您输入的班级："+bj)
response.write(" 在数据库中并不存在。可能输入有误"+"<br>"+"正确的输入是如：电信本031。不能查询该班级！")
exit sub
else
%>
<table border="2"><tr>
<td align=center>学号</td>
<td align=center>姓名</td>
<td align=center>班级</td>
<td align=center>硬周</td>
<td align=center>硬星</td>
<td align=center>硬成绩</td>
<td align=center>网周</td>
<td align=center>网星</td>
<td align=center>网成绩</td>
</tr>
<% response.write(" "+" "+bj+"实验时间表") %>
<%do while not uplist.eof%>
<tr><td><%=uplist("学号")%></td>
<td align=center><%=uplist("姓名")%></td>
<td align=center><%=uplist("班级")%></td>
<td align=center><%=uplist("硬周")%></td>
<td align=center><%=uplist("硬星")%></td>
<td align=center><%=uplist("硬成绩")%></td>
<td align=center><%=uplist("网周")%></td>
<td align=center><%=uplist("网星")%></td>
<td align=center><%=uplist("网成绩")%></td>
</tr>
<%uplist.movenext%>
<%loop %>
</table>
<% end if
dbconnection.close
end sub
%>

[xjbx]

从这段代码来看，没什么问题！

[ccgFT]

是啊
其它地方也是行的！！
帮我猜猜是什么问题

[fredqfc]

不知你敲錯沒有，好象有個<%沒有配對

[fredqfc]

response.write(" "+" "+bj+"实验时间表")%>

[ccgFT]

是的
那句放上去测试
但是为什么数据没有输出呢？

[ccgFT]

什么信息也没有？？？？

[ccgFT]

去掉那个%>后
连测试的那个句子都没有输出！！！

[andy2001p]

"不知你敲錯沒有，好象有個<%沒有配對"
说对了!

set uplist=dbconnection.execute(sql)
response.write(" "+" "+bj+"实验时间表")%>
<%'这里有问题啦!
if uplist.eof then
response.write("对不起！")

[ccgFT]

<%sub cxbj()
set dbconnection=Server.CreateObject("ADODB.Connection")
set drs=Server.CreateObject("adodb.recordset")
DBPath = Server.MapPath("选课.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
bj=cstr(request.Form("bj"))
sql="select * from 选课表 where 班级='"&bj&"'"
set uplist=dbconnection.execute(sql)
response.write(" "+" "+bj+"实验时间表")
%>
<% if uplist.eof then
response.write("对不起！")
response.write("同学， 您输入的班级："+bj)
response.write(" 在数据库中并不存在。可能输入有误"+"<br>"+"正确的输入是如：电信本031。不能查询该班级！")
exit sub
else
%>
<table border="2"><tr>
<td align=center>学号</td>
<td align=center>姓名</td>
<td align=center>班级</td>
<td align=center>硬周</td>
<td align=center>硬星</td>
<td align=center>硬成绩</td>
<td align=center>网周</td>
<td align=center>网星</td>
<td align=center>网成绩</td>
</tr>
<% response.write(" "+" "+bj+"实验时间表") %>
<%do while not uplist.eof%>
<tr><td><%=uplist("学号")%></td>
<td align=center><%=uplist("姓名")%></td>
<td align=center><%=uplist("班级")%></td>
<td align=center><%=uplist("硬周")%></td>
<td align=center><%=uplist("硬星")%></td>
<td align=center><%=uplist("硬成绩")%></td>
<td align=center><%=uplist("网周")%></td>
<td align=center><%=uplist("网星")%></td>
<td align=center><%=uplist("网成绩")%></td>
</tr>
<%uplist.movenext%>
<%loop %>
</table>
<% end if
dbconnection.close
end sub
%>
这是现在的代码
没有输出
真奇怪

[xychmysky]

你配虚拟目录了吗?
我有时候配的虚拟目录不对什么都没有

[ccgFT]

我其它的都能输出
就这个函数不能输出！
真奇怪

[yonghengdizhen]

代码不规范显然增加调试难度..

如果排除了代码的错误,剩下就是iis的错误了..

我曾经碰到过在帐户不同步的情况下. iis报缺少end if的错误

[ccgFT]

已经搞定
不是这儿出错
是在其它的select case 里多了一个空格
晕啊！！
谢谢大家