<% Response.Charset="ISO-8859-1"%>
<HTML>
<HEAD>
<TITLE>.:: Alguns scripts ::.</TITLE>
<META NAME="Author" CONTENT="Wellington Marinheiro">
</HEAD>
<script>
function palavra(texto,lim){
var y = true;
var qt=0;
var par="";
var tam=texto.value.split(" ");
if (tam.length>0){
for (var nn=0;nn<tam.length;nn++){
if (tam[nn].length>lim){
qt++;
par=tam[nn];
break;
}
}
}else{
if (texto.length>lim){
qt++;
par=texto;
}
}
if(qt>0){
alert("Palavra muito longa no texto: \n" + tam[nn] +
"\n\nSepare-a para prosseguir com o preenchimento do Registro.");
texto.focus();
y = false;
}
return y;
}
</script>
<BODY>
<%
if request.queryString("at")= "" then
%>
<CENTER>
Verificando palavras compridas dentro do texto<BR>
<hr>
<form name="form" action="chtxt.asp?at=1" method="post">
<table border="1" bgcolor=#ffffff width=70% align="center">
<tr>
<td><B>Um texto</B>
<INPUT TYPE="text" NAME="txt" size="80" onblur="palavra(this,25)"><BR>
<tr>
<td colspan="2" align="center">
<INPUT TYPE="submit" value="Enviar">
</tr>
</table>
</form>
</CENTER>
<%
else
response.write "<div align=center><B>Resultado:</B><BR>"
response.write "Texto informado: " & request.Form("txt")
response.write "<BR><A HREF='chtxt.asp'>Novo Teste</A>"
response.write "</div>"
end If
%>
</body>
</html>