<% Dim Atend Dim Atend_numRows Set Atend = Server.CreateObject("ADODB.Recordset") Atend.ActiveConnection = MM_atendimento_STRING Atend.Source = "Select * from atendentes where status = 1" Atend.CursorType = 0 Atend.CursorLocation = 2 Atend.LockType = 1 Atend.Open() Atend_numRows = 0 %>

<% If NOT Atend.EOF then%>

Atendimento On-Line | Clique para entrar.

<% else %> Atendimento não disponivel no momento.

<% End If %> <% Atend.Close() Set Atend = Nothing %>