Ah scusa nn avevo capito io.
Allora nel ciclo metti:
codice:
Select Case rs("stato")
  Case "libero"
    bg = "green"
  Case "occupato"
    bg = "red"
  Case "disponibile"
    bg = "yellow"
End Select
(dove rs("stato") è il campo del database preso dal recordset)

Ed il valore di bg lo utilizzi per "riempire" la proprietà bgcolor della colonna html (se è una tabella).

Capito?