Hjælp med ASP/Vbscript (tabeller)

tSkema(n,0) = fag, lokale og lærer fra DB
tSkema(n,1) = dwd (ugedagsnr)
tSkema(n,2) = dh (Hour)

\' Standardskema som udvælger tiden og dagene
ColumnNr = 0
Response.Write (\"<table border>\")
           
\'lodret kolonner  (ialt 7)
For hour = 0 to 7   
  Response.Write (\"<tr>\")
  DagNr = 0
  RowNr = 0

\'dage + start og slut
for day = 0 to 6       
  IDtxt = RowNr &ColumnNr

  if ColumnNr = 0 then
Response.Write (\"<b><td id =\"& IDtxt &\" align =center><b> \"& tDag(day) &\" \")

elseif RowNr = 0 and ColumnNr > 0 then
Response.Write (\"<td id = \"& IDtxt &\" align =center> \"& Blokprdag(hour-1,0) &\" \")

elseif RowNr = 1 and ColumnNr > 0 then
Response.Write (\"<td id = \"& IDtxt &\" align =center> \"& Blokprdag(hour-1,2) &\" \")

elseif dagnr = 1 then
elseif tSkema(hour,2) = 8 And tSkema(hour,1) = 2 then
Response.Write (\"<td id = \"& IDtxt &\" align=center> \"& tSkema(day,0) &\" </td> \")

elseif tSkema(hour,2) = 10 And tSkema(hour,1) = 2 then
  Response.Write (\"<td id = \"& IDtxt &\" align=center> \"& tSkema(day,0) &\" </td> \")

elseif ColumnNr = 2 or ColumnNr = 4 or ColumnNr = 6 then
  Response.Write (\"<td id = \"& IDtxt &\" align=center> \"& Blokprdag(1,1) &\" \")

end if                               
if dagnr = 2 then           
osv. osv. indtil dag 5   

Problemet er at jeg ikke kan få dataer fra tSkema puttet ind de rigtig steder. f.eks.
1    2    3
X
X
      X
      X
            X
            X
Sådan fik jeg dem først puttet ind. Derefter fik jeg dem sådan her. (virker med koden ovenover)

1    2    3
X    X    X
X    X    X

Men problemet er at jeg selv vil kunne styre hvor dælen de skal puttes ind og det kan jeg ikke. Any ideas out there?