Select Count e Calculo Porcentagem

Pessoal o erro na hora de calcular em porcentagem , aparece a mensagem ERRO DE TEMPO DE EXECUÇÃO DO MICROSOFT VBSCRIPT ERRO '800A000D Tipos incompativeis

Alguém poderia me auxiliar por favor.
<%

total_emais_recebidos=links("totalemailsrecebidos") Erro nesta linha , puxando função select count ,
total_ao_contar = 1000
porcentagem = Formatnumber(((100*total_emais_recebidos)/total_ao_contar),0)&"%"
response.write porcentagem
%> progre<%response.write(Application("total"))%>