%
'Conexao banco de dados
Abre_Bd()
' fim Conexao
ssql = "SELECT * FROM vwComUsu WHERE franquia = 0 ORDER BY dtCadastro desc"
set rsCL = Conexao.execute(ssql)
%>
<%=nomeadm%>
<% If Not rsCL.EOF Or Not rsCL.BOF Then %>
Prospects
Novo Contato
<%
cont = 1
While NOT rsCL.EOF
if Cor = "#F0F0F0" then
Cor = "#ffffff"
else
Cor = "#F0F0F0"
end if
%>