Colorindo linhas de uma tabela de acordo com db

Seguinte galera, eu tenho uma tabela com dados de duplicatas de banco a negociar.

Alguns titulos estão em cartório, outros em aberto e outros para serem dado baixa.

Aí entra meu problema, o pessoal daqui do trampo, pediu pra eu alterar conforme a situação, botar a linha de uma cor diferente, então, eu tentei fazer uma verificação dos dados recebidos e fazer uma condição. Se for A bota tal cor e assim por diante.

Mas eu to meio enferrujado e não tenho a mínima idéia de como posso fazer isso... alguém pode me dar uma luz?

pensei em algo assim

cor = recordset(campo)

se cor = a então colorido = (a cor q eu escolher)

Só que aí está um prob, eu não sei como eu recebo um valor do record set, e eu não to conseguindo achar um meio de relacionar a linha inteira e não só o campo em si entende.

CODE
<link rel="stylesheet" href="css/estilo.css" type="text/css">

<%

Set objConexao = Server.CreateObject("ADODB.Connection")

objConexao.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\cobranca\data\data.mdb;Persist Security Info=False")

sql = "SELECT * from nBicbanco ORDER BY nVencimento"

Set rs = objConexao.execute(sql)

%>

<font face="Verdana">

<p align="center"><img src="img/bicbanco.bmp" height="50"/></p>

<table border="2" align="center">

 

	<tr class="style1">

 

 <td>Razão Social</td>

 <td>Vencimento</td>

 <td align="center">Valor</td>

 <td>Banco</td>

 <td>VD</td>

 <td>Pedido</td>

 <td>C/A/B</td>

 <td>Filial</td>

 <td nowrap>Observação</td>

 

	</tr>

<%

rs.MoveFirst

Do While Not rs.eof

%>

	<tr class="style2">

 

 <td> <%=rs("nRazaosocial") %> </td>

 <td align="center"><%=rs("nVencimento") %></td>

 <td> <%=FormatCurrency(rs("nValor")) %> </td>

 <td><%=rs("nBanco") %></td>

 <td align="center"><%=rs("nVendedor") %></td>

 <td><%=rs("nPedido") %></td>

 <td align="center"><%=rs("nSituacao") %></td>

 <td> <%=rs("nFilial") %> </td>

 <td> <%=rs("nObservacao") %></td>

 

	</tr>

<%

rs.MoveNext

Loop

%>

</table>

</font>