<% dim userSQL %>
<%
Dim var1, room, user, opc, msgError, tsalas
' seta variavel
room = Request("room")
user = Request("user")
opc = Request("opc" )
msgError = ""
tsalas = 0
' pega o numero de limite
limSQL = "SELECT tt_usuarios FROM chat_salas WHERE (id_sala = " & room & ")"
set limRS = conecta.Execute(limSQL)
tsalas = limRS("tt_usuarios")
set limRS = nothing
' verifica a opcao selecionada
if opc = 1 then
' consiste os dados digitados
if trim(user) = "" then msgError = msgError & varloginUserEmpty
' verifica se existe o usuario
usSQL = "SELECT id_usuario FROM chat_usuarios WHERE id_usuario = '" & user & "'"
tsSQL = "SELECT count(*) AS total FROM chat_usuarios WHERE id_sala = " & room
set usRS = conecta.Execute(usSQL)
set tsRS = conecta.Execute(tsSQL)
' verifica se existe
if not usRS.EOF then msgError = msgError & varloginUserExists
' verifica o numero limite de usuarios por sala
if not tsRS.EOF then
tsNum = tsRS("total")
tsNum = CDbl(tsNum)
tsalas = CDbl(tsalas)
if tsNum > tsalas then msgError = msgError & varloginUserLimit
end if
' verifica se nao houve erro
if trim(msgError) = "" then
' grava novo ususario
NewUser room,user
' transforma o usuario
user = replace(user," ","%20")
var1 = "room=" & room & "&user=" & user
else
opc=0
end if
end if
%>
<%=varTitle%>
<%if opc = 1 then%>
<%else%>