<%@LANGUAGE="VBSCRIPT"%>
<%
Dim room, user
' seta variavel
room = Request("room")
user = Request("user")
' pega as salas
salaSQL = "SELECT * FROM chat_salas"
set salaRS = conecta.Execute(salaSQL)
%>
<%=varTitle%>
<%=varchatTitle%>
<%=varroomChoose%>
<%=varroomName%>
<%=varroomQtd%>
<%
Do while not salaRS.EOF
' total = salaRS("total" )
id_sala = salaRS("id_sala")
nm_sala = salaRS("nm_sala")
%>