<%
Select Case Request.Querystring("acao")
Case "semnick"
msg = "VOCÊ PRECISA DIGITAR UM APELIDO!"
Case "tamanhoerrado"
msg = "O APELIDO DEVE TER ENTRE 3 E 21 CARACTERES!"
End Select
strCareta = Request.Querystring("careta")
If strCareta = "" Then
strCareta = "69"
end if
%>
