---

Hej NG

Med denne kode tilføjer jeg overskrifter til min tabel...

Kode Start...
Dim xField
For Tael = 1 To 4
FindField = Year(Date)-Tael
FindFlag = False
For Each xField in Rs.Fields
If Trim(Ucase(xField.Name)) = Trim(Ucase(FindField)) Then
FindFlag = True
End If
If FindFlag = True Then
Response.Write "<th align=" & "center" & " bgcolor=" & "#000000" & "><font
color=" & "#FFFFFF" & "><b>" & xField.Name & "</b></font></th>"
End If
Next
Next
Kode Slut...

Kan jeg ikke på samme måde opbygge de felter dynamisk, jeg skal have vist:
Altså

Pseudokode start...
var=var & "Response.Write " & "<td>" & RS("mitfelt") & "</td>" & "<br>"
Pseudokode slut...

Og så sætte det ind i ovenstående For løkke, og så indsætte variablen(var)
senere i scriptet, når data skal vises...
Håber i forstår, hvor jeg vil hen...

Hilsen
Bjarne
"Every day new surprises"