Lidt kompliceret udtræk og opstilling af data fra database

DIM var_Konsulent
DIM var_Kunde
DIM var_Kundeatt
DIM var_StartDato
DIM var_SlutDato
DIM var_Opgave
DIM var_Opfoelg
DIM var_Fnavn
DIM var_Enavn
           
str_Firmanavn = "SELECT ID, Firmanavn FROM tbl_brugere WHERE brugernavn = '"&session("brugernavn")&"'"
set rs_Firmanavn = Conn.Execute(str_Firmanavn)
           
str_OpenRapport = "SELECT * FROM tbl_opgave WHERE KundeID = '" & rs_Firmanavn("ID") & "'"
set rs_OpenRapport = Conn.Execute(str_OpenRapport)
           
if rs_OpenRapport.eof and rs_OpenRapport.bof then
Response.Write "Der er ikke indtastet nogen rapporter for firmaet "&rs_Firmanavn("Firmanavn")&""           

else
  while not rs_OpenRapport.eof

  str_konsulent = "SELECT Fnavn, Enavn FROM tbl_konsulent WHERE konsulentid = "& rs_OpenRapport("KonsulentID") &""
  set rs_konsulent = Conn.Execute(str_konsulent)

  var_KFnavn = rs_konsulent("Fnavn")
  var_KEnavn = rs_konsulent("Enavn")
  var_Kunde = rs_OpenRapport("KundeID")
  var_Kundeatt = rs_OpenRapport("Kundeatt")
  var_StartDato = rs_OpenRapport("Dato_Start")
  var_SlutDato = rs_OpenRapport("Dato_Slut")
  var_Opgave = rs_OpenRapport("Opgave")
  var_Opfoelg = rs_OpenRapport("Opfoelgning")
       
  Response.Write "<TABLE>"
  Response.Write "<TR><TD CLASS=tekst1>Konsulent:</TD><TD>"& var_KFnavn & " " & var_KEnavn & "</TD></TR>"
  Response.Write "<TR><TD CLASS=tekst1>Kundeatt.:</TD><TD>"& var_Kundeatt &"</TD></TR>"
  Response.Write "<TR><TD CLASS=tekst1>Startdato:</TD><TD>"& var_StartDato &"</TD></TR>"
  Response.Write "<TR><TD CLASS=tekst1>Slutdato:</TD><TD>"& var_SlutDato &"</TD></TR>"
  Response.Write "<TR><TD VALIGN=top CLASS=tekst1>Opgavebeskrivelse:</TD><TD>"& var_Opgave &"</TD></TR>"
  Response.Write "<TR><TD VALIGN=top CLASS=tekst1>Opfølgning:</TD><TD>"& var_Opfoelg &"</TD></TR>"          Response.Write "<TR><TD CLASS=tekst1>&nbsp;</TD></TR>"
  Response.Write "</TABLE>"
  rs_OpenRapport.MoveNext
  Response.Write "</TD><TD>"
  Response.Write "<TABLE>"
  Response.Write "<TR><TD CLASS=tekst1>Konsulent:</TD><TD>"& var_KFnavn & " " & var_KEnavn & "</TD></TR>"
  Response.Write "<TR><TD CLASS=tekst1>Kundeatt.:</TD><TD>"& var_Kundeatt &"</TD></TR>"
  Response.Write "<TR><TD CLASS=tekst1>Startdato:</TD><TD>"& var_StartDato &"</TD></TR>"
  Response.Write "<TR><TD CLASS=tekst1>Slutdato:</TD><TD>"& var_SlutDato &"</TD></TR>"
  Response.Write "<TR><TD VALIGN=top CLASS=tekst1>Opgavebeskrivelse:</TD><TD>"& var_Opgave &"</TD></TR>"
  Response.Write "<TR><TD VALIGN=top CLASS=tekst1>Opfølgning:</TD><TD>"& var_Opfoelg &"</TD></TR>"
  Response.Write "<TR><TD CLASS=tekst1>&nbsp;</TD></TR>"
  Response.Write "</TABLE>"
  rs_OpenRapport.MoveNext
  wend   
end if

Ja håber jeg fik sat det lidt overskueligt op.
Men! mit problem er at jeg godt kan få dem til at "line" det ligeså flot op så længe det bare er vertikalt (og at jeg så fjerner den ene MoveNext, med tilhørende table opsætning)..

Men jeg kan ikke få den til at stille det op i rækker af 2 uden at den *beep*er mine tabeller og desuden kun udskriver de 2 første emner i databasen.

Ja det er jo mig der gør det forkert men hvad kan jeg bare ikke se med min begrænsede ASP viden.