Contar los días entre dos fechas pero sin sábados y domingos

[ggol15]

Bueno ya encontré la respuesta a mi problema después de varias horas , se me perdio la pagina donde encontre esta solucion pero bueno lo pongo para quien lo requiera


'recibe dos fechas y nos dice cuantos
'días laborables hay entre esas dos fechas
Function diaslaborables(inicio,fin)
'busco la diferencia de dÃ*as que hay entre las dos fechas
diferencia = DateDiff("d", inicio, fin)
numLaborables = 0
fechaindice = inicio
'compruebo que la fecha de inicio es menor que la fecha fin
If inicio<fin Then
for i= 0 To diferencia
'si devuelve un num entre 2 y 6 inclusive entonces es un día laborable.
If Weekday(fechaindice)>=2 And Weekday(fechaindice)<=6 Then numLaborables=numLaborables+1
'pasamos al siguiente día
fechaIndice = DateAdd("d",fechaIndice,1)
next
End If

diaslaborables = numLaborables
End function

'inicializo la fecha de inicio al dÃ*a de hoy
fechainicio = Date()

'le agrego 7 dias a la fecha de inicio
fechafin = DateAdd("d",FechaI,7)
dias = diaslaborables(FechaI,FechaF)
response.write "Desde el dí*a "& FechaI & " hasta el día "&FechaF & " hay "&dias & " dias laborables"