Elenco sabati

[gim]

Ciao a tutti. Dovrei creare un menu che contenga solo i sabati di un determinato periodo dell'anno. Faccio così:

<% 
dim DtDataPrimo 
DIM intDayFirst 
DtDataPrimo = "1/4/2006"
DtDatafine = "30/9/2006"
intDayFirst=Weekday(DtDataPrimo) 
DtDataPrimo = DateAdd("d",7-intDayFirst,DtDataPrimo) 
Response.Write intDayFirst 

while Year(DtDataPrimo) = Year(DtDatafine) 

Response.Write "<option value=""" & DtDataPrimo & """>" & DtDataPrimo & "</option>" 
DtDataPrimo = DateAdd("d",7,DtDataPrimo) 
wend 
Response.Write(DtDataPrimo) 
%>

Il ciclo mi continua fino al 30/12 e non riesco a farlo fermare al dtdatafine. Dove sbaglio?

[Mems]

<%
dataInizio = cDate("01/04/2005")
dataFine = cDate("30/09/2005")

while dataInizio < dateAdd("d",1,dataFine)
if WeekDay(dataInizio) = 7 then
response.write formatDateTime(dataInizio,vbLongDate) & "
"
end if
dataInizio = dateAdd("d",1,dataInizio)
wend
%>

[gim]

Preciso ed efficace come sempre.
Grazie mille Mems.