Udskriv af field.name og værdier volder problem

Du kan lave havde et loop mere på som loop'er igennem recordsetet:

do while not rs.EOF

'din kode

  rs.Movenext
loop

Eks:

Response.Write "<table>"
do while not rs.EOF
For each f in rs.Fields
  IF f.name = "Id" then
  else
  Response.write "<tr>"
  Response.Write "<td>" & f.name & "</td>"
  Response.Write "<td>" & f.value & "</td>"
  'Her skulle så værdierne komme, men den udskriver kun den første kolonne
  Response.write "</tr>"
  end if
next
rs.Movenext
loop
Response.Write "</table>"

Men jeg vil gerne undgå endnu en udskrivning af fiels.name.

Det er samme kode som udskriver den udskriver bare alle rækker nu.
men du er nød til at lave det loop eller kan den ikke udkrive alle tallene fra de andre rækker... Du kan lave lidt om på koden så den først udksiver field.name:



Response.Write "<table><tr><td>"
For each f in rs.Fields
  Response.Write "<table>"
  IF f.name <> "Id" then
    Response.write "<tr><td>" & f.name & "</td></tr>"
  end if
  Response.Write "</table>"
next
Response.Write "</td></tr>"
do while not rs.EOF
  For each f in rs.Fields
    IF f.name <> "Id" then
      Response.Write "<tr><td>"
      Response.Write "<table>"
      Response.Write "<tr><td>" & f.value & "</td></tr>"
      Response.Write "</table>"
      Response.Write "</td></tr>"
    end if
  next
  rs.Movenext
loop
Response.Write "</table>"

eller mere sådan her:


Response.Write "<table><tr><td>"
For each f in rs.Fields
  Response.Write "<table>"
  IF f.name <> "Id" then
    Response.write "<tr><td>" & f.name & "</td></tr>"
  end if
  Response.Write "</table>"
next
Response.Write "</td>"
do while not rs.EOF
  For each f in rs.Fields
    IF f.name <> "Id" then
      Response.Write "<td>"
      Response.Write "<table>"
      Response.Write "<tr><td>" & f.value & "</td></tr>"
      Response.Write "</table>"
      Response.Write "</td>"
    end if
  next
  rs.Movenext
loop
Response.Write "</tr></table>"

Okay - tak for hjælpen - jeg kan godt komme videre herfra og god jul.

:-) Karsten