Problemi su un call di una sub...............

[diegoctn]

Ragazzi in una pagina common.asp ho personalizzato questo codice:

<%
'INIZIO IMPOSTAZIONI ******************
session.LCID = 1040
dbPath = server.mapPath("\attex\liste.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath
'FINE IMPOSTAZIONI *******************
sub elencoGiocatori(objConn,byRef elencoGiocatoriOutput)
	sql = "SELECT * FROM segreterie order by conta"
	set rs = server.createObject("ADODB.Recordset")
	rs.open sql, objConn, 1, 3
	if not rs.eof then
		v = 0 'Contatore giocatori
		ReDim elencoGiocatoriOutput((rs.recordCount-1),3)
		do while not rs.eof
	
			elencoGiocatoriOutput(v,0) = rs("conta")
			elencoGiocatoriOutput(v,1) = rs("descr")
			elencoGiocatoriOutput(v,2) = rs("media")

			v = v + 1
		rs.moveNext
		loop
	end if
	rs.close
	set rs = nothing
end sub

richiamato in questa pagina default.asp

<%
call dbConnect(conn,dbConnString)
call elencoGiocatori(conn,elencoGiocatoriOutput)
call dbDisconnect(conn)
%>

ma mi da :

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'elencoGiocatori'


Perchè secondo voi?