错误的 'Next'

<%
  Dim dd
  Dim week
  Dim date1: date1= Date()
  Dim date0: date0 = "2015-3-2"
  dd = DateDiff("d",date0,date1)
  response.write "今天是:"&date1&"<br>"
  if dd mod 7 = 0  then   
  week = cint(dd/7)
  else   
  week = cint(dd/7)+1
  end if
  response.write "本周是第 "&week&" 周"
  %>

 <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from zl where week like '%"&week&"%'",conn,1,1
     if rs.eof then
    response.write "暂无记录！"
    response.end
    end if
  %>

  <%
rs.MoveNext
next
%>

提示为：错误的 'Next'
请大家帮忙看看。谢谢