Para el primero usa algo asi
IF Request.Form("Numero")>=501 Then
Response.Write "El numero debe ser menor a 500"
Else
.... ' lo que tengas q hacer
End If
y para validar un numero determinado de palabras usas algo asi
Comentarios=Request.Form("Comentarios")
Arreglo=Split(Comentarios," ")
NumPalabras=Ubound(Arreglo)
If NumPalabras>200 Then
Response.Write "Tus comentarios son muy largos"
Else
'lo que tengas que hacer
End if
saludos
:)