skrive ut rs i flere kolonner etterhvert avh. av mengde

noget i stil med dette:


RowPrTable = 10
noRowPrTable = 0

response.write ("<table><tr>")
do
  if noRowPrTable = 0 then
  Response.write "<td><table>"
  end if
  Response.Write ("<tr>")
  Response.Write "<td>" & rs("kolNavn1") &"</td>"   
  Response.Write "<td>" & rs("kolNavn2")& "</td>"
  rs.MoveNext
  response.write ("</tr>")
  noRowPrTable = noRowPrTable + 1
  if noRowPrTable = RowPrTable then
    response.write "</table></td>"
    noRowPrTable = 0
  end if
Loop While Not rs.EOF
response.write ("</tr></table>")
Conn.Close
Set Conn = Nothing

OK, men dette er vel basert på at du skal ha et recordset A i en kollonne og et annet rs B i en annen kollonne? Jeg har ett RS (city) som etterhvert kommer til å øke i størrelse. Jeg vil altså at dette ene rs'et skal holde seg i kollonne 1 til det har nådd 20 ulike byer og deretter gå over i kollonne 2. Fikser ditt script dette?

Hvis du vil havde et output som dette:
[city1]  [city21]
[city2]  [city22]
...
[city20]

Så benyt dette script:

strSQL = "SELECT * FROM dinTabel"
Set rs = conn.Execute(strSQL)

RowPrTable = 20
noRowPrTable = 0

response.write ("<table><tr>")
do
  if noRowPrTable = 0 then
    Response.write "<td valign=top><table>"
  end if
  Response.Write ("<tr>")
  Response.Write "<td>" & rs("city") &"</td>"   
'  Response.Write "<td>" & rs("kolNavn2")& "</td>"
  rs.MoveNext
  response.write ("</tr>")
  noRowPrTable = noRowPrTable + 1
  if noRowPrTable = RowPrTable then
    response.write "</table></td>"
    noRowPrTable = 0
  end if
Loop While Not rs.EOF
if noRowPrTable <> 0 then
  response.write "</table></td>"
end if
response.write ("</tr></table>")
Conn.Close
Set Conn = Nothing

Tusen takk!
KnB