looping i to rækker?

Der er sikkert simplere måder at gøre det på, men følgende ville virke:


i=0
Response.Write (\"<table><tr>\")
do until RS.EOF
If i=2 then
Response.Write (\"</tr><tr>\")
i=0
End If
Response.Write (\"<td>\" & RS(\"id\") & \"</td>\")
i=i+1
RS.MoveNext
Loop
If i=1 then
Response.Write (\"<td></td></tr></table>\")
Else
Response.Write (\"</tr></table>\")
End If

Den run har lavet virker fint, jeg har lavet en som er lidt mere genral, ret colPrRow til det antal du ønsker.

colPrRow = 2
colInRow = 0
response.write \"<table width=\"\"200\"\" border=\"\"1\"\">\"
do while NOT RS.EOF
  if colInRow = 0 then response.write \"<tr>\"
  response.write \"<td>\" & RS(\"id\") & \"</td>\"
  colInRow = colInRow + 1
  if colInRow >= colPrRow then
    colInRow = 0
    response.write \"</tr>\"
  end if
  RS.MoveNext
loop
if colInRow > 0 then
  for i = colInRow to colPrRow-1
    response.write \"<td>&nbsp;</td>\"
  next
  Response.Write \"</tr>\"
end if
response.write \"</table>\"

upz jeg glemte jo at give point =)