Met onderstaande code probeer ik uit een gebeurtenissenlijst die gebeurtenis (veld Actdatum) te selecteren die (in de toekomst) het dichtst bij 'vandaag' ligt.
Dus als de gebeurtenis op vandaag doorgaat dan wordt deze geselecteerd, anders de eerstvolgende uit de lijst (waarvan de Actdatum het dichtst bij 'vandaag' ligt).
<%
Do While Not rs.EOF
if rs("ActDatum")<date() then
rs.MoveNext
if rs("ActDatum")=date() then
selectiedatum=rs("ActDatum")
exit do
elseif rs("ActDatum")>date() then
movePrevious
selectiedatum=rs("ActDatum")
exit do
else
end if
end if
Loop
%>
MovePrevious geeft fout - Dank voor een oplossing.
Dus als de gebeurtenis op vandaag doorgaat dan wordt deze geselecteerd, anders de eerstvolgende uit de lijst (waarvan de Actdatum het dichtst bij 'vandaag' ligt).
<%
Do While Not rs.EOF
if rs("ActDatum")<date() then
rs.MoveNext
if rs("ActDatum")=date() then
selectiedatum=rs("ActDatum")
exit do
elseif rs("ActDatum")>date() then
movePrevious
selectiedatum=rs("ActDatum")
exit do
else
end if
end if
Loop
%>
MovePrevious geeft fout - Dank voor een oplossing.