ASP 莫名其妙的错误

这是一个简单的测试分页的程序，代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
 PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">






<%
    dim all, cnt, page, dig
    dig = 10 ' 每页显示条目
    all = 100 ' 总共的显示条目
    cnt = 1
    page = Request.QueryString("page")
    pagenum = all/dig
    Response.Write("pagenum = "&pagenum&"
page = "&page&"
")
%>

---

<%
cnt = 1
do until cnt > all
if cnt>(page-1)*dig and cnt