A lo mejor esto te ayuda:
<html>
<body bgcolor=#FFFFFF>
<form method=post>
<input type=password name=cadena>
<input type=submit>
</form>
</body>
</html><%
cadena = Request("cadena")
char1 = Mid(cadena,1,1)
char2 = Mid(cadena,2,1)
char3 = Mid(cadena,3,1)
Response.Write "<br><b>" & cadena & "</b>"
If UCase(char1) <> char1 Then
Response.Write "<br>Primer caracter no es mayúscula"
End If
If InStr(1, "0123456789", char2) = 0 Then
Response.Write "<br>Segundo caracter no es numero"
End If
If LCase(char3) <> char3 Then
Response.Write "<br>Tercer caracter no es minúscula"
End If
%>
<OBJECT WIDTH=200 HEIGHT=50><PARAM NAME=movie VALUE="http://www.geocities.com/wamoretti/wamoretti.swf"><PARAM NAME=wmode VALUE=transparent><EMBED src="http://www.geocities.com/wamoretti/wamoretti.swf" wmode=transparent WIDTH=200 HEIGHT=50></EMBED></OBJECT