formatering af celler

Jeg udskriver mine data som ligger i en access-db. ved hjælp af nedenstående kode.

Kort fortalt indsætter den posterne i databasen i en tabel som bliver fremvist for brugeren.

Kolonnenavnene har jeg sat til at være farven grå mens cellerne i resten af tabellen er hvide.

Nu kunne jeg godt tænke mig f.eks. at kunne give en enkelt kolonnes celler farven grøn, hvis feltet er tomt.

Lad os sige at det er kolonnenr. 4, hvis celler skal tjeckes for om de er tomme. De steder hvor de er tomme skal markeres med grøn.

Jeg ved ikke helt om i forstår spørgsmålet, men ellers må i lige skrive...




recordSet.Open strSQL, forbindelse, adOpenStatic, adLockReadOnly, adCmdText
  response.write \"<P>\" & recordSet.RecordCount & \" post(er) er fundet!</p>\" & vbCrLf

  response.write \"<table border=1 \"
  response.write \"style=\"\"font-family:helvetica; font-size:8pt;\"\">\" & vbCrLf
  response.write vbTab & \"<tr>\" &vbCrLf

c1 = \"#DDDDDD\"
For i = 0 to recordSet.fields.Count -1
  response.write vbTab & vbTab & \"<th bgcolor=\"\"\" & c1 & \"\"\">\" & recordSet.fields(i).name & \"</th>\" & vbCrLf

NEXT

response.write vbTab & \"</tr>\" & vbCrLf

If recordSet.BOF = true then
  response.write \"<td colspan=\"\"\" & recordSet.Fields.Count & \"\"\">Der er ikke fundet nogle poster!</td>\"
Else
  recordSet.MoveFirst
End If

Do While recordSet.BOF = FALSE AND recordSet.EOF = FALSE
  response.write vbTab & \"<tr>\" & vbCrLf

c1 = \"#FFFFFF\"
For i = 0 to recordSet.Fields.Count -1
        if isnull(recordSet.Fields(i).value) then
            response.write vbTab & vbTab & \"<td bgcolor=\"\"\" & c1 & \"\"\">&lt;null&gt;</td>\" & vbCrLf
        else
            response.write vbTab & vbTab & \"<td bgcolor=\"\"\" & c1 & \"\"\">\" & recordSet.Fields(i) & \"</td>\" & vbCrLf
        end if
NEXT

    response.write vbTab & \"</tr>\" & vbCrLf
    recordSet.Movenext
Loop

recordSet.Close
forbindelse.close

Set recordSet = Nothing
Set forbindelse = Nothing

response.write \"</table>\" & vbCrLf