<%
dim dtData
dim intMese
intMese = 5 'maggio per esempio
dtData ="1/1/" & Year(date)
dtData = DateAdd("m",intMese,dtData )'vado al primo giorno del mese successivo
dtData = DateAdd("d",-1,dtData )'mi porto sull'ultimo giorno del mese
while Weekday(dtData) <> 7 'scorro il mese al contrario finchè non trovo un sabato ()
dtData = DateAdd("d",-1,dtData )
wend
Response.Write dtData

%>