急啊，服务器老是说NEXT错误，但语法没错呀
<%@language="vbscript" codepage="936"%><script language="vbscript" runat="server">
dim conn,connstr
set conn=server.createobject("adodb.connecton")
connstr="provider.........."
conn.open connstr
set rs=server.createobject("adodb.recordset")
</script>
<html>
<head>
<title>#</title>
</head>
<body>
<%
dim pname,pzhou
for i=1 to i<1726 step 1
rs=conn.execute("select name from pzhou where id=1")
pname=rs
rs=conn.execute("select * from paicha where user=pname")
if not isempty(rs) then
response.write(rs("user"))
next
%>
</body>
</html>
