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
%>

[optime]

SOLO 5 record?

[mmaria]

esatto

[optime]

ma fatti un contatore! quando sei a 3 cambi colore...

[mmaria]

come si fa il contatore?

[Roby_72]

Una variabile di appoggio che dentro al ciclo incrementi. Chiamala come vuoi...

Roby

[mmaria]

Perchè non funziona quanto scritto:
Vorrei che iil quinto visulizzasse diversamente ma mi fa vedere tutti e dieci i record nello stesso modo.

ecco lo script

<%

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 10 * FROM articoli where sezione = 'news' ORDER BY ad_id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
Do While Not rs.EOF


cont = 1
if cont = 5 then
response.write "VERDE"&rs("campo3")&"</a> </span>"
end if
cont = cont + 1



rs.MoveNext
Loop

%>

[Roby_72]

Perché cont vale sempre 1 se lo valorizzi DENTRO al ciclo.
Se invece lo valorizzi fuori...

cont = 1
Do While Not rs.EOF
...
...

Roby

[mmaria]

Ok grazie funziona. Vedo solo il quinto. Ma se volessi vedere gli altri nove con un'altra visualizzazione?
Devo adoperare else ma non riesco a farlo funzionare
grazie in anticipo
maria

[Roby_72]

Non ho capito... 10 record con 10 colori diversi???

Roby