riempire una casella di riepilogo

[giannipie]

Devo riempire una casella di riepilogo da un database ed uso il seguente codice:

<select name="codice_piattaforma">
                  <%dim objconn2, objrs2, strsql2
		  
		  set objconn2 = server.createobject("adodb.connection")
          objconn2.connectionstring = "dsn=database.dsn"
          objconn2.open
		   strsql2 = "select [codice articolo], tipologia from articoli where tipologia = 'nome' order by [codice articolo]" 
		  set objrs2 = server.CreateObject("adodb.recordset")
          objrs2.open strsql2, objconn2, 1
		  do while not objrs2.eof
		  if objrs2.recordcount = 0 then%>
		  <option value=><%="NESSUN ARTICOLO"%></option>
		  <%ELSE%>
                  <option value=><%=objrs2("codice articolo")%></option>
                  <%end if
				  objrs2.movenext
		   loop
		   objrs2.close
		   set objrs2 = nothing
		   objconn2.close
		   set objconn2 = nothing%>
                </select>

Vorrei fare in modo che se non trova nessun articolo deve riempire la casella con "INSERISCI ARTICOLO" testando la proprietà recordcount del recordset, ma non lo fa, come mai?