我是大侦探43到60资源:asp编程修改，紧急

<%
if session("studid")="" then
message1="请勿越权使用"
%><%=message1%>
<%response.end
end if
%>

<%count=0

specnm=session("")
nianj=session("nianj")

sql="select * from coursezc where specnm='"&specnm&"'"
sql=sql&"and nianj='"&nianj&"'"

set rs=conn.execute(sql)
while not rs.eof
number=rs("courid")
if request(number)="off" then
count=count+1
session("nianj"&count)=rs("nianj")
session("courid"&count)=rs("courid")
session("xn"&count)=rs("xn")
session("courselevel"&count)=rs("courselevel")
session("coursenm"&count)=rs("coursenm")
session("yuanxi"&count)=rs("yuanxi")
session("coursexf"&count)=rs("coursexf")
session("courselb"&count)=rs("courselb")
session("sktime"&count)=rs("sktime")

end if
rs.movenext
wend
sql="select * from selection where studid='"&studid&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql ,conn,2,3
if not rs.eof then
response.write"<script language='javascript'>"
response.write "alert('你已经选择了该课程不可再选');"
response.write "</script>"
response.end
end if

while count>0
rs.addnew
rs("studid")=session("studid")
rs("studnm")=session("studnm")
rs("studxb")=session("studxb")
rs("bjnm")=session("bjnm")
rs("nianj")=session("nianj"&count)
rs("specnm")=session("specnm")
rs("xz")=session("xz")
rs("xn")=session("xn"&count)
rs("courid")=session("courid"&count)
rs("courselevel")=session("courselevel"&count)
rs("coursenm")=session("coursenm"&count)
rs("yuanxi")=session("yuanxi"&count)
rs("coursexf")=session("coursexf"&count)
rs("courselb")=session("courselb"&count)
rs("sktime")=session("sktime"&count)

rs.update
count=count-1
wend

response.redirect "selection.asp"%>

上述是一个选课处理程序，在运行时总是有如下提示，按照提示加上“wend”后也没用。请各位高手帮忙，谢谢！！！