Aqui les dejo como me quedo al final, funciona perfecto.
Gracias por su colaboración
Código:
<%
Function diaslaborables
totalferiados = 0
While ((Repeat4__numRows <> 0) AND (NOT programadas_descuento.EOF))
fecha=(programadas_descuento.Fields.Item("fecha_inicio").Value)
dias=(programadas_descuento.Fields.Item("cantidad_dias").Value)
'---------------------------------------------------------
diainicio = Day(fecha)'left(fecha,2)
mesinicio = Month(fecha)'mid(fecha,4,2)
anioinicio = Year(fecha)'right(fecha,4)
inicio = anioinicio&"/"&mesinicio&"/"&diainicio
'---------------------------------------------------------
fin = Dateadd("d",(dias-1),fecha)
diafin = day(fin)'left(fin,2)
mesfin = Month(fin)
aniofin = Year(fin)'right(fin,4)
fin = aniofin&"/"&mesfin&"/"&diafin
'---------------------------------------------------------
'conexion BD
Dim Feriados
Dim Feriados_numRows
Set Feriados = Server.CreateObject("ADODB.Recordset")
Feriados.ActiveConnection = MM_Con_Vacaciones_STRING
Feriados.Source = "SELECT count(*) AS TOTAL FROM Tbl_Feriados WHERE Fecha BETWEEN '"+inicio+"' AND '"+fin+"' "
Feriados.CursorType = 0
Feriados.CursorLocation = 2
Feriados.LockType = 1
Feriados.Open()
Feriados_numRows = 0
totalferiados = (dias-(Feriados.Fields.Item("TOTAL").Value))+totalferiados
diaslaborables = totalferiados
Feriados.Close()
Set Feriados = Nothing
Repeat4__index=Repeat4__index+1
Repeat4__numRows=Repeat4__numRows-1
programadas_descuento.MoveNext()
Wend
End Function
%>