帮我看看这段代码要怎样改（关于抽工夫记录集的）

我做的重复记录集 是竖着排列的。代码：

<%
While ((Repeat1__numRows <> 0) AND (NOT RS1.EOF))
%>
<table width="234" border="0" align="center" cellpadding="2" cellspacing="2" id="1">
<tr>
<td width="197"><table width="200" border="0" align="center" cellpadding="2" cellspacing="2" id="2">
<tr>
<td><A HREF="detail.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "shpID=" & RS1.Fields.Item("shpID").Value %>"><img src="<%=(RS1.Fields.Item("image").Value)%>"></A></td>
</tr>
<tr>
<td><A HREF="detail.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "shpID=" & RS1.Fields.Item("shpID").Value %>"><%=(RS1.Fields.Item("shpname").Value)%></A></td>
</tr>
<tr>
<td><p>市场价：<%=(RS1.Fields.Item("scj").Value)%>元</p>
<p>会员价：<%=(RS1.Fields.Item("hyj").Value)%>元</p></td>
</tr>
</table>
<table width="200" border="0" align="center" cellpadding="2" cellspacing="2" id="3">
<tr>
<td><% If MM_offset <> 0 Then %>
<A HREF="<%=MM_moveFirst%>">首页</A>
<% End If ' end MM_offset <> 0 %>
<% If MM_offset <> 0 Then %>
<A HREF="<%=MM_movePrev%>">上一页</A>
<% End If ' end MM_offset <> 0 %>
<% If Not MM_atTotal Then %>
<A HREF="<%=MM_moveNext%>">下一页</A>
<% End If ' end Not MM_atTotal %>
<% If Not MM_atTotal Then %>
<A HREF="<%=MM_moveLast%>">最后一页</A>
<% End If ' end Not MM_atTotal %></td>
</tr>
</table>
<p>&nbsp;</p></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RS1.MoveNext()
Wend
%>

预览结果

：

我要让它们横着排。要怎样改代码。

<td><p>市场价：<%=(RS1.Fields.Item("scj").Value)%>元</p>
<p>会员价：<%=(RS1.Fields.Item("hyj").Value)%>元</p></td>

去掉中间的2</p><p> 这个是换行的，你有这个肯定换行啦

一个一行2个记录的例子：

<table> <% '查询数据库记录集

While ((Repeat1__numRows <> 0) AND (NOT RS1.EOF)) i=0 if (i mod 2)=0 then response.write "<tr>" '满足整除2即新起1行 %> <td><!--输出的单个记录结果--></td> <% i=i+1 if (i mod 2)=1 then response.write "</tr>" '满足除2余1，即结束1行

RS1.MoveNext() Wend %> </table>

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息