Funzione che non... funziona al primo giro

[Allie]

Salve a tutti

Ieri mi sono imbattuta in uno strano problema: ho una funzione eseguita durante un ciclo, che al primo giro non va
A questo indirizzo potete vedere il risultato: la funzione controlla le estensioni dei file ed in base a questi assegna un iconcina con il link per scaricare o visualizzare il file.
Dal secondo giro in poi funziona tutto, ma al primo fa tutto (scrive il nome giusto, mette il link corretto, ecc.) tranne assegnare l'iconcina Il problema si verifica in ogni caso, anche cambiando l'ordine con cui vengono visualizzati i file, quindi non è un problema di un file o un' estensione particolare
Ci abbiamo ragionato in due, ma non ci siamo saltati fuori, per favore potete darci un'occhiata anche voi?

Ecco il codice di download.asp

<%
query_sql="select * from dati order by data desc;"
set rs=server.CreateObject("ADODB.recordset")
rs.Open query_sql,connection,3,3

if not rs.EoF then



	do while not rs.EoF%>
	<h1><%=rs.fields("data")%> - <%=rs.fields("titolo")%></h1>

	<%=rs.fields("testo")%>

	SCARICA: 

	
	
	
		<%query_sql1="select * from downloads where iddato= " & rs.fields("id") & " order by descrizione DESC"
		set rs1=server.CreateObject("ADODB.recordset")
		rs1.Open query_sql1,connection,3,3
		if not rs1.EoF then
			 while not rs1.EoF
				call AssegnaIcona (rs1.fields("nome"), d )
			%>
			
				">[img]icone/<%= icona%>[/img]<%=rs1.fields("descrizione")%>

		   

	<%		rs1.movenext
			wend
		end if
		rs1.close
		set rs1=nothing
	rs.movenext
	loop
	
end if
rs.close
set rs=nothing
%>

ed ecco la funzione AssegnaIcona:

function AssegnaIcona (img, d)

estensione= right (img, 3)
	
	Select Case lCase(estensione)
					Case "avi"
					icona = "avi"&d&".gif"
						
					Case "mpg"
					icona = "avi"&d&".gif"
					
					Case "bmp"
					icona = "bmp"&d&".gif"
					
					'ecc. ecc.						
	End Select

end function

Avete idea di cosa non vada? Funziona TUTTO tranne l'assegnazione della prima iconcina (nell'esempio online i link non funzionano perchè non ho messo online i file, ma sono corretti)