Contador de dias CIPA

galera, eu to fazendo um contador de dias sem acidentes da CIPA e estou com um probleminha, preciso tirar os feriados e finais de semana do resultado final, pois a empresa trabalha de segunda a sexta apenas.

Eis o código:

<%

data = select_Campo("SELECT data FROM cipa","data",SGBD)
recorde = select_Campo("SELECT recorde FROM cipa","recorde",SGBD)

dias = DateDiff("d",cdate(data),cdate(now))

if len(dias) < 4 then
while not len(dias) = 4
dias = 0 & dias
wend
end if

atual_dia01 = left(dias,1)
atual_dia02 = left(dias,2)
atual_dia02 = right(atual_dia02,1)
atual_dia03 = right(dias,2)
atual_dia03 = left(atual_dia03,1)
atual_dia04 = right(dias,1)

recorde_dia01 = left(recorde,1)
recorde_dia02 = left(recorde,2)
recorde_dia02 = right(recorde_dia02,1)
recorde_dia03 = right(recorde,2)
recorde_dia03 = left(recorde_dia03,1)
recorde_dia04 = right(recorde,1)

%>

<div id="home_cipa">

	<div id="home_cipa_titulo">CIPA</div>

 <div id="home_cipa_contador">
 <div id="home_cipa_contador_frase01">Estamos trabalhando há</div>
 <center><div id="home_cipa_contador_contador01"><span class="cipa_numero"><%=atual_dia01%></span><span class="cipa_numero"><%=atual_dia02%></span><span class="cipa_numero"><%=atual_dia03%></span><span class="cipa_numero"><%=atual_dia04%></span> dias</div></center>
 <div id="home_cipa_contador_frase02">sem acidentes com afastamento.<br />Nosso recorde é de</div>
 <center><div id="home_cipa_contador_contador02"><span class="cipa_numero"><%=recorde_dia01%></span><span class="cipa_numero"><%=recorde_dia02%></span><span class="cipa_numero"><%=recorde_dia03%></span><span class="cipa_numero"><%=recorde_dia04%></span> dias</div></center>
 </div>

</div>

<br clear="all" />

Está tudo funcionando certinho, só falta mesmo deixar apenas dias úteis no contador, alguém tem uma luz?