tal vez así:
<%for each x in Ob_RS.Fields
If ob.RS("Marcado")="Sí" Then
mar = "class=tr"
Else
mar = "class=trm"
End If
%>
<td <%=mar%> align=center><p><%Response.Write(x.val ue)%></p></td>
<%next
OB_RS.MoveNext%>
</tr>
Saludos
<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>