o código do defaul.asp está abaixo. <%@ Language=VBScript %> <%Response.Buffer=true%> <% Response.CacheControl = "no-cache" Response.AddHeader "pragma", "no-cache" Response.Expires = -1 %> <html> <head> <title>Shopmedia - Chat</title> <script language="JavaScript"> function click() { if (event.button==2) { alert('Todos os Direitos reservados a ShopMedia') } } document.onmousedown=click </script> <script Language="JavaScript"> <!-- function Validator(theForm) { if (theForm.Apelido.value.length < 1) { alert("Desculpe, mas você não preencheu o campo nick"); theForm.Apelido.focus(); return (false); } return (true); } //--> </script> <% 'Define uma matriz com 20 variáveis Dim Nomes(20) 'Declaração de variáveis Dim I, StrLista 'Receber dados da matriz Usuarios = Application("Usuarios") 'Configura a matriz no cliente para ser usado ao entrar for i=0 to 19 if usuarios(i) <> "" then ' Response.write "Nomes(" & i & ") = " & chr(34) & Usuarios(i) & chr(34) & chr(13) End if Next 'Esta função verifica se possíveis erros ocorreram e força o usuário a corrigi-los Function FrmApelidos_onSubmit() For i=0 To 19 If FrmApelidos.Apelido.value = Nomes(i) Then IntErro = 1 If FrmApelidos.Apelido.value = "" Then IntErro = 2 If Len(FrmApelidos.Apelido.value) > 10 Then IntErro = 3 Next Select Case IntErro Case 1 MsgBox "Este nome já está sendo utilizado por outro usuário. Escolha outro nome", 0, "Nome inválido" FrmApelidos_onSubmit = False Case 2 MsgBox "É necessário digitar um nome para entrar na sala de chat", 0, "Nome inválido" FrmApelidos_onSubmit = False Case 3 MsgBox "O nome deve ter no máximo 10 caracteres.", 0, "Nome inválido" FrmApelidos_onSubmit = False End select End function %> </head> <body BGCOLOR="#E9E9E9" topmargin="0" leftmargin="0"> <div align="center"><center> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="100%" bgcolor="#F1EBC5"></td> </tr> </table> </center></div><div align="center"><center> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td valign="middle" align="center" height="90" bgcolor="#F1EBC5" style="padding-left: 20"><img src="img/logo_shopmedia.gif" width="206" height="56" border="0" alt="Internet como você quer!"></td> <td valign="bottom" align="center" height="90" bgcolor="#F1EBC5" width="100%"><img src="img/chat_prog.gif" width="286" height="27" border="0"></td> <td valign="middle" align="center" height="90" bgcolor="#F1EBC5" style="padding-right: 20"><a href="http://www.terra.com.br" target="_blank"><img src="img/logo_terra.gif" width="63" height="46" border="0" alt="Internet mais sua do que nunca"></a></td> </tr> <tr> <td valign="middle" align="center" height="10" bgcolor="#F1EBC5"></td> <td valign="middle" align="center" height="10" bgcolor="#F1EBC5" width="100%"></td> <td valign="middle" align="center" height="10" bgcolor="#F1EBC5"></td> </tr> </table> </center></div><div align="center"><center> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td valign="middle" align="left" height="2" bgcolor="#FF712D"></td> </tr> <tr> <td valign="middle" align="left" height="3" bgcolor="#005F8C"></td> </tr> <tr> <td valign="middle" align="left" style="padding-left: 10; padding-right: 10" height="40"></td> </tr> <tr> <td valign="middle" align="left" style="padding-left: 50; padding-right: 50"><p align="center"><font face="Verdana" size="2">Bem vindo ao Chat!</font></p> <p><font face="Verdana" size="2">Desenvolvemos esse chat para melhorarmos a comunicação entre os programadores/desenvolvedores.<br> Esperamos que todos os nossos clientes/usuários utilizem desse sistema da melhor maneira possível.<br> Contamos com sua participação e colaboração para que possamos melhorar a cada dia nossos serviços.</font></td> </tr> <tr> <td valign="middle" align="left" style="padding-left: 50; padding-right: 50"> <p align="center"><font face="Verdana" size="2">Para acessar basta entrar com seu nick abaixo:</font></td> </tr> <tr> <td valign="middle" align="left" style="padding-left: 10; padding-right: 10"> <form NAME="FrmApelidos" ACTION="Entrar.asp" METHOD="POST" onsubmit="return Validator(this)"> <div align="center"><center><p><font face="Verdana" size="2"><input TYPE="Text" SIZE="10" NAME="Apelido"> <input TYPE="Submit" VALUE="Entrar"> </font></p> </center></div> </form> </td> </tr> </table> </center></div> </body> </html>