PERFETTO!!

Ecco l'esempio.. potrebbe servire a qualcuno:
codice:
<%
prova = "CiccIo"

for x = 1 to len(prova)
	if (mid(prova,x,1)=Ucase(mid(prova,x,1))) then
		maiuscola = maiuscola + 1
	else
		minuscola = minuscola + 1
             end if
next

Response.Write("

MAIU: " & maiuscola)
Response.Write("
MINU: " & minuscola)
%>