Question

关于网页制作问题（记录集横向重复显示）

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connn_STRING
Recordset1.Source = "SELECT top 6 * FROM guochanproductsort ORDER BY ID DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<table width="500" border="1">
<tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<td><form name="form1" method="post" action="">
<input type="radio" name="radiobutton" value="<%=(Recordset1.Fields.Item("id").Value)%>" id="radiobutton">
<label for="radiobutton"></label>
<%=(Recordset1.Fields.Item("name").Value)%>
</form><%
Recordset1.MoveNext()
next（错误处）
Recordset1.MovePrevious()
%></td>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</tr>
</table>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

错误类型：
Microsoft VBScript 编译器错误 (0x800A041F)
错误的 'Next'
/zhanshi3.asp, line 36
next

Answer 1

next 是干什么用的? 不要这句. recordset1.movenext就可以移动到下个记录了.