<%
dim record
Set record = oConn.Execute("SELECT * From news")
%>
<%
function PrintClass(color)
select case (color)
case 1:
Response.Write("class='RRed'")
case 2:
Response.Write("class='RGreen'")
case 3:
Response.Write("class='RBlue'")
case 4:
Response.Write("class='RYellow'")
end select
end function
%>
