Iniciando Variável...

[Guest Bruninha]

OI Dinovo!!!!

Só mais uma coisinha, Tenho esse contador que me da a Qtd de empresa por Estado(UF) e o total dessa empresa em todos os Estados, certo.

Só que, se não houver nenhum registro cadastrado da um erro, ou seja, precisaria iniciar a variável "Tipo_Empresa" para que o sistema de contagem reconheça algum valor e apresente o resultado mesmo sendo Zero(Nenhum),

Acho que é isso...

Como eu inicio essa variável???

]<%

Set rs = Server.CreateObject("ADODB.Recordset")

Sql="Select count(id_Empresa) as total, UF from Cad_Empresa where Tipo_Empresa='Jornal' group by UF"

set RsCad_Empresa=conexao.execute(sql)

response.write "<table>"

response.write "<tr><td colspan='3' class='conteudo_lista'><< Jornais >></td></tr>"

response.write "<tr><td colspan='3' height='6'> </td></tr>"

Do while not rsCad_Empresa.eof

response.write "<tr><td class='conteudo_lista'>&nbsp;&nbsp;&nbsp;&nbsp;" & RsCad_Empresa("UF") & "</td><td>-</td><td class='conteudo_vermelho'>" & RsCad_Empresa("total") & "</td></tr>"

RsCad_Empresa.MoveNext

Loop

Sql="Select count(Tipo_Empresa) as total, Tipo_Empresa from Cad_Empresa where Tipo_Empresa='Jornal' group by Tipo_Empresa"

set RsCad_Empresa=conexao.execute(sql)

response.write "<tr><td class='conteudo_lista'>&nbsp;&nbsp;Total</td><td>-</td><td class='conteudo_vermelho'>" & RsCad_Empresa("total") & "</td></tr>"

response.write "</table>"

%>

Bjs

Bru

[koal40]

tenta ao invez de ultilizar o metodo count(), use RsCad_Empresa.recordcount... fikaria assim:

<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="Select id_empresa, UF from Cad_Empresa where Tipo_Empresa='Jornal' group by UF"
set RsCad_Empresa=conexao.execute(sql)

response.write "<table>"
response.write "<tr><td colspan='3' class='conteudo_lista'><< Jornais >></td></tr>"
response.write "<tr><td colspan='3' height='6'> </td></tr>"

Do while not rsCad_Empresa.eof
response.write "<tr><td class='conteudo_lista'>&nbsp;&nbsp;&nbsp;&nbsp;" & RsCad_Empresa("UF") & "</td><td>-</td><td class='conteudo_vermelho'>" & RsCad_Empresa.recordcount & "</td></tr>"

RsCad_Empresa.MoveNext
Loop
Sql="Select Tipo_Empresa from Cad_Empresa where Tipo_Empresa='Jornal' group by Tipo_Empresa"
set RsCad_Empresa=conexao.execute(sql)
response.write "<tr><td class='conteudo_lista'>&nbsp;&nbsp;Total</td><td>-</td><td class='conteudo_vermelho'>" & RsCad_Empresa.recordcount & "</td></tr>"
response.write "</table>"
%>

OU faça simplesmente um if....

if RsCad_Empresa("total") < 1 then
RsCad_Empresa("total") = 0
end if

[Guest Bruninha]

Fazendo dessa forma,"RsCad_Empresa.recordcount", se não houver nenhum registro cadastrado ele apresenta um "-1", nº negativo....!?!?!

RsCad_Empresa.recordcount

[koal40]

tenta colocar o if também...

 if RsCad_Empresa.recordcount < 1 then
response.write("0")
else
response.write RsCad_Empresa.recordcount
end if