<%@ LANGUAGE="VBSCRIPT"%> <% IF len(Request.Cookies("nick")) = 0 AND len(Request.Form("nick")) = 0 THEN %>

 

 

 

 

Digite o seu nome/apelido:

 

<% ELSE Response.Cookies("Nick")=Request.Form("nick") Application.Lock flag = 0 IF Application("usuario1") = "" Then Application("usuario1") = Request.Form("nick") Session("id")=1 flag = 1 END IF IF (Application("usuario2") = "") and (flag = 0) Then Application("usuario2") = Request.Form("nick") Session("id")=2 flag = 1 END IF IF (Application("usuario3") = "") and (flag = 0) Then Application("usuario3") = Request.Form("nick") Session("id")=3 flag = 1 END IF IF (Application("usuario4") = "") and (flag = 0) Then Application("usuario4") = Request.Form("nick") Session("id")=4 flag = 1 END IF IF (Application("usuario5") = "") and (flag = 0) Then Application("usuario5") = Request.Form("nick") Session("id")=5 flag = 1 END IF IF (Application("usuario6") = "") and (flag = 0) Then Application("usuario6") = Request.Form("nick") Session("id")=6 flag = 1 END IF IF (Application("usuario7") = "") and (flag = 0) Then Application("usuario7") = Request.Form("nick") Session("id")=7 flag = 1 END IF IF (Application("usuario8") = "") and (flag = 0) Then Application("usuario8") = Request.Form("nick") Session("id")=8 flag = 1 END IF IF (Application("usuario9") = "") and (flag = 0) Then Application("usuario9") = Request.Form("nick") Session("id")=9 flag = 1 END IF IF (Application("usuario10") = "") and (flag = 0) Then Application("usuario10") = Request.Form("nick") Session("id")=10 flag = 1 END IF IF (Application("usuario11") = "") and (flag = 0) Then Application("usuario11") = Request.Form("nick") Session("id")=11 flag = 1 END IF IF (Application("usuario12") = "") and (flag = 0) Then Application("usuario12") = Request.Form("nick") Session("id")=12 flag = 1 END IF IF (Application("usuario13") = "") and (flag = 0) Then Application("usuario13") = Request.Form("nick") Session("id")=13 flag = 1 END IF IF (Application("usuario14") = "") and (flag = 0) Then Application("usuario14") = Request.Form("nick") Session("id")=14 flag = 1 END IF IF (Application("usuario15") = "") and (flag = 0) Then Application("usuario15") = Request.Form("nick") Session("id")=15 flag = 1 END IF IF (Application("usuario16") = "") and (flag = 0) Then Application("usuario16") = Request.Form("nick") Session("id")=16 flag = 1 END IF IF (Application("usuario17") = "") and (flag = 0) Then Application("usuario17") = Request.Form("nick") Session("id")=17 flag = 1 END IF IF (Application("usuario18") = "") and (flag = 0) Then Application("usuario18") = Request.Form("nick") Session("id")=18 flag = 1 END IF IF (Application("usuario19") = "") and (flag = 0) Then Application("usuario19") = Request.Form("nick") Session("id")=19 flag = 1 END IF IF (Application("usuario20") = "") and (flag = 0) Then Application("usuario20") = Request.Form("nick") Session("id")=20 flag = 1 END IF IF (Application("usuario21") = "") and (flag = 0) Then Application("usuario21") = Request.Form("nick") Session("id")=21 flag = 1 END IF IF (Application("usuario22") = "") and (flag = 0) Then Application("usuario22") = Request.Form("nick") Session("id")=22 flag = 1 END IF IF (Application("usuario23") = "") and (flag = 0) Then Application("usuario23") = Request.Form("nick") Session("id")=23 flag = 1 END IF IF (Application("usuario24") = "") and (flag = 0) Then Application("usuario24") = Request.Form("nick") Session("id")=24 flag = 1 END IF IF (Application("usuario25") = "") and (flag = 0) Then Application("usuario25") = Request.Form("nick") Session("id")=25 flag = 1 END IF IF (Application("usuario26") = "") and (flag = 0) Then Application("usuario26") = Request.Form("nick") Session("id")=26 flag = 1 END IF IF (Application("usuario27") = "") and (flag = 0) Then Application("usuario27") = Request.Form("nick") Session("id")=27 flag = 1 END IF IF (Application("usuario28") = "") and (flag = 0) Then Application("usuario28") = Request.Form("nick") Session("id")=28 flag = 1 END IF IF (Application("usuario29") = "") and (flag = 0) Then Application("usuario29") = Request.Form("nick") Session("id")=29 flag = 1 END IF IF (Application("usuario30") = "") and (flag = 0) Then Application("usuario30") = Request.Form("nick") Session("id")=30 flag = 1 END IF IF (Application("usuario31") = "") and (flag = 0) Then Application("usuario31") = Request.Form("nick") Session("id")=31 flag = 1 END IF IF (Application("usuario32") = "") and (flag = 0) Then Application("usuario32") = Request.Form("nick") Session("id")=32 flag = 1 END IF IF (Application("usuario33") = "") and (flag = 0) Then Application("usuario33") = Request.Form("nick") Session("id")=20 flag = 1 END IF IF (Application("usuario34") = "") and (flag = 0) Then Application("usuario34") = Request.Form("nick") Session("id")=34 flag = 1 END IF IF (Application("usuario35") = "") and (flag = 0) Then Application("usuario35") = Request.Form("nick") Session("id")=35 flag = 1 END IF IF (Application("usuario36") = "") and (flag = 0) Then Application("usuario36") = Request.Form("nick") Session("id")=36 flag = 1 END IF IF (Application("usuario37") = "") and (flag = 0) Then Application("usuario37") = Request.Form("nick") Session("id")=37 flag = 1 END IF IF (Application("usuario38") = "") and (flag = 0) Then Application("usuario38") = Request.Form("nick") Session("id")=38 flag = 1 END IF IF (Application("usuario39") = "") and (flag = 0) Then Application("usuario39") = Request.Form("nick") Session("id")=39 flag = 1 END IF IF (Application("usuario40") = "") and (flag = 0) Then Application("usuario40") = Request.Form("nick") Session("id")=40 flag = 1 END IF Application.UnLock Application("txt1") = "** " & Request.Form("nick") & " Ingressou no chat" Response.redirect "http://www.cpvsede.org.br/chat/inicio.asp" END IF %>