'Apertura recorset
Set rsNews = Server.CreateObject("ADODB.Recordset")
strSQL_New = "SELECT * FROM AUTO ORDER by ID_CONTATORE desc"
Set rsNews = conn.Execute(strSQL_New)
sHtml1 = "<FONT face='verdana' SIZE='1' COLOR='Black'>"
sHtml2 = "<A HREF='dettagli.asp?ID="
sHtml3 = "'>"
sHtml4 = "</A></FONT>
"
sTxt = ""
'Verifica recordset
If rsNews.EOF Then
Response.Write "<center><FONT Face='Arial' SIZE='1'>Non ci sono nuove Auto</font></center>"
Else
rsNews.movefirst
'Mostra le prime 5 News
i=0
do until i=15 or rsNews.EOF
i=i+1
'visualizzione records news
sTxt = sTxt & sHtml1 & "Auto: " & rsNews("marca") & sHtml2 & _
rsNews("ID_CONTATORE") & sHtml3 &"
"& rsNews("MODELLO") & sHtml4
rsNews.movenext