'Loop' senza 'Do' che singifica?

[mmaria]

Ciao amici in Asp mi appare questo errore:
Errore di compilazione di Microsoft VBScript errore "800a040e'

'Loop' senza 'Do'
/piede/destra.asp, riga 57
Loop
^
Che significa in questo mio script che vi posto?

sql="SELECT TOP 20 * FROM articoli where sezione = 'news' ORDER BY ad_ID DESC" 
      Set rs = Server.CreateObject("ADODB.Recordset") 
      rs.Open sql, conn ,3,3 
      if not rs.eof then 
      Do While Not rs.EOF 
      
      if (rs("campo1")) = date() then
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im36.gif>"
      response.write "<a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&"" 
      else
   

      
      if (rs("AD_DATED")) = date() then
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im36.gif>"
      response.write "<a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&"" 
      else
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im44.gif>"
      response.write " <a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&"" 
      end if
       
      response.write "</a>
" 
      rs("ad_viewed")=rs("ad_viewed")+1 
      rs.update 
      rs.MoveNext 
      Loop
      end if

Grazie di cuore...

[wegawhite]

Prova così:

sql="SELECT TOP 20 * FROM articoli where sezione = 'news' ORDER BY ad_ID DESC" 
      Set rs = Server.CreateObject("ADODB.Recordset") 
      rs.Open sql, conn ,3,3

      if not rs.eof then 
      Do While Not rs.EOF 
      

      if (rs("campo1")) = date() then
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im36.gif>"
      response.write "<a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&""


      elseif (rs("AD_DATED")) = date() then
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im36.gif>"
      response.write "<a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&"" 
      

      else
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im44.gif>"
      response.write " <a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&"" 
      end if 

      response.write "</a>
" 
      rs("ad_viewed")=rs("ad_viewed")+1 
      rs.update 
      rs.MoveNext 
      Loop
      end if

[mmaria]

Provo ma ecco l'errore:


Errore di compilazione di Microsoft VBScript errore "800a03ea'

Errore di sintassi


elseif
------^

[wegawhite]

if not rs.eof then 
      Do While Not rs.EOF 
      

      if (rs("campo1")) = date() then
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im36.gif>"
      response.write "<a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&""


      elseif (rs("AD_DATED")) = date() then
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im36.gif>"
      response.write "<a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&"" 
      

      else
      response.write "<p class=AltreNews>"
      response.write "<img id=icone src=/img/im44.gif>"
      response.write " <a href='0_News02.asp?id="& rs("AD_id")&"#alto' target=""centro"">"&rs("AD_TITLE")&"" 
      end if 

      response.write "</a>
" 
      rs("ad_viewed")=rs("ad_viewed")+1 
      rs.update 
      rs.MoveNext 
      Loop
      end if