Datoer i select menu - Men kun mandag-fredag

Jeg har nedenstående funktion til at lave en dropdown menu med en specificeret start- og slutdato og en dato der er valgt som default.
Hvordan udelukker jeg at lørdage og søndage vises i menuen?

Mvh. Michael


Function DatoSelect(selectnavn, startdato, slutdato, aktivdato)
    Response.write \"<Select name=\'\"& selectnavn & \"\'>\" & vbCrLf

    For i = startdato to slutdato
    if DateDiff(\"d\", i, aktivdato) = 0 Then
        Response.write \"<Option Selected value=\'\" & i &\"\'>\" & i &\"</option>\" & vbCrLf
    Else
        Response.write \"<Option value=\'\" & i &\"\'>\" & i &\"</option>\" & vbCrLf
    End if
    Next
    Response.write \"</select>\"  & vbCrLf
END Function


DatoSelect(\"Dato\", DateAdd(\"d\",7,Now()), dateadd(\"m\",3,now()), DateAdd(\"d\",7,Now()))