Vise fredage mellem 2 datoer

Prøv det her:

Startdato = "13-04-2003"
Slutdato = "28-04-2003"
Tempdato = Startdato

For a = 1 to Int(DateDiff("d", startdato, slutdato))
    If Weekday(tempdato, 2) = 5 Then
        Response.Write tempdato & "<br>"
    End If
    tempdato = DateAdd("d", 1, tempdato)
Next

Det er ikke afprøvet, men ser rimeligt ud.

StartDato = DateSerial(2003,4,13)
SlutDato  = DateSerial(2003,4,28)

if WeekDay(StartDato)>6 then
  NuvDato=DateAdd("d",6,StartDato)
else
  NuvDato=DateAdd("d",6-WeekDay(StartDato),StartDato)
end if
do while NuvDato<SlutDato
  Response.Write NuvDato
  NuvDato=DateAdd("d",7,NuvDato)
loop

<%
datBegin = "13-04-2003"
datEnd = "28-04-2003"
intDayCount = DateDiff("d", datBegin, datEnd)

For i = 1 To intDayCount
datTmp = DateAdd("d", i, datBegin)

If DatePart("w", datTmp) = VbFriday Then
datMatch = datMatch & datTmp & ","
End If
Next

Arr = Split(Left(datMatch, Len(datMatch) - 1), ",")

For i = LBound(Arr) To Ubound(Arr)
Response.write(Arr(i) & "<br>")
Next
%>

Dette er ikke lige proevet af, er noget jeg lige hurtigt har strikket sammen

Tak for Jeres svar. Jeg har givet point efter den løsning som forekom mig mest effektiv - og så var det også det hurtigste svar.

Det var det hurtigste svar, så rimeligt nok.

Meen det er nu ikke den mest effektive.
spotguns kigger på alle datoer, i stedet for kun fredage, så den vil teoretisk tage 7 gange så lang tid at gennemløbe