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

%>