Grazie, lo stato si stampa correttamente con response.write, ecco il code.
codice:
Do While Not rs.eof

Select Case rs("stato")
  Case "libero"
    bg = "green"
  Case "disponibile"
    bg = "yellow"
  Case "occupato"
    bg = "red"
End Select
response.write rs("stato")

Response.Write "<tr>"
Response.Write "<td bgcolor='#FFFFFF' style='font-family: Verdana; font-size: 8 pt'; style='border-style: solid; border-width: 1' align='center'>" & rs("IDCD") & "</td>"