ho risolto così con un pò di "fantasia"......

codice:
DataInizio = "17/04/2011"
DataFine = "23/04/2011"
DataInizio = FormatDateTime(DataInizio, vbShortDate)
DataFine = FormatDateTime(DataFine, vbShortDate)
GiorniLavorativi = 0
Do While fineciclo = 0
If DataInizio = DataFine Then
fineciclo = 1
end if
DataControllo = Weekday(DataInizio, 2)
If DataControllo <> 6 or DataControllo <> 7 Then
GiorniLavorativi = GiorniLavorativi + 1
end if
DataInizio = DateAdd("d", 1, DataInizio)
DataFine = DateAdd("d", 0, DataFine)
loop
response.write(GiorniLavorativi)