Dropdown med visning af alle lørdage i 1 år frem

Prøvnoget i den her stil (har ikke lige testet det, så der er sikkert en del små syntaxfejl).


<%
response.write("<select name='loerdage'>" & vbcrlf)
i = 0
dagefrem = 365
dato = cDate("2002-03-11")
tmpdato = dato

Do while i <= dagefrem
  tmpdato = cDate(cLng(dato) + i)  ' lav datoen om til Lng og læg i (dage) til og lav tilbage til en dato.
  If Weekday(tmpdato) = 7 Then  ' det er en lørdag
    response.write("<option value='" & tmpdato & "'>" & FormatDatetime(tmpdato, vbshortdate) & "</option>" & vbcrlf)
    dato = tmpdato)
    i = i + 7
  Else ' det er ikke en lørdag, så vi rykker een dag frem
    i = i + 1
  End If
Loop
response.write("</select>" & vbcrlf)
%>

Når den har valgt den første lørdag springer næste lørdag over - viser den næste lørdag - springer 2 lørdage over - viser nærste lørdag - springer 3 lørdage over - og så fremdeles.

Denne her kan gøre det du søger:

<%
response.write("<select name='loerdage'>" & vbcrlf)

dato = Date ' Dagen i dag
SlutDato = dato + 365 ' Find slutdato 1 år frem

do while Weekday(dato) <> 7
  dato = dato + 1 ' Find nærmeste Lørdag
loop

do while dato < SlutDato ' udskriv alle lørdage 1 år frem
  response.write("<option value='" & dato & "'>" & FormatDatetime(dato, vbshortdate) & "</option>" & vbcrlf)
  dato = dato + 7 ' Find næste lørdag
loop

response.write("</select>" & vbcrlf)
%>

Den er testet.

coltau> den kører...kanon tak for det. Så der point.