E' assurdo quello che faccio... per visulizzare record diverso colore

[mmaria]

Cari amici visualizzo cinque record con il colore verde... solo che il terzo lo voglio visualizzare in rosso... al momento ecco il mio script...
possibile che debba fare tutto questo? non c'è un modo più semplice?
Sempre grazie dalla vostra Maria

<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad_news.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn
sql="SELECT TOP 1 * FROM articoli ORDER BY ad_id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
rs.movelast
response.write "<p class=verde>"&rs("campo3")&""
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
end if
%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad_news.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn
sql="SELECT TOP 2 * FROM articoli ORDER BY ad_id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
rs.movelast
response.write "<p class=verde>"&rs("campo3")&""
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
end if
%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad_news.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn
sql="SELECT TOP 3 * FROM articoli ORDER BY ad_id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
rs.movelast
response.write "<p class=rosso>"&rs("campo3")&""
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
end if
%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad_news.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn
sql="SELECT TOP 4 * FROM articoli ORDER BY ad_id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
rs.movelast
response.write "<p class=verde>"&rs("campo3")&""
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
end if
%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad_news.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn
sql="SELECT TOP 5 * FROM articoli ORDER BY ad_id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
rs.movelast
response.write "<p class=verde>"&rs("campo3")&""
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
end if
%>