Ik probeer het voor elkaar te krijgen om dmv een select case statement iedere drie uur een ander bericht te laten zien alleen het lukt niet en ik blijf vast zitten op het stuk waar ik via vb de uren uit moet lezen. Wie kan me er mee helpen?
<% select case vbshortdate
case vb0 response.write "Het is wel een vreemd tijdstip om wakker te zijn he."
case vb1 response.write "Het is wel een vreemd tijdstip om wakker te zijn he."
case vb2 response.write "Het is wel een vreemd tijdstip om wakker te zijn he."
case vb3 response.write "Nog even volhouden en het wordt licht."
case vb4 response.write "Nog even volhouden en het wordt licht."
case vb5 Response.write "Nog even volhouden en het wordt licht."
case vb6 Response.write "Zo vroeg wakker?"
case vb7 response.write "Zo vroeg wakker?"
case vb8 response.write "Zo vroeg wakker?"
case vb9 response.write "Moet je niet werken in plaats van surfen?"
case vb10 response.write "Moet je niet werken in plaats van surfen?"
case vb11 Response.write "Moet je niet werken in plaats van surfen?"
case vb12 Response.write "Het ergste van de dag is al voorbij."
case vb13 response.write "Het ergste van de dag is al voorbij."
case vb14 response.write "Het ergste van de dag is al voorbij."
case vb15 response.write "Nog een paar uurtjes."
case vb16 response.write "Nog een paar uurtjes."
case vb17 Response.write "Nog een paar uurtjes."
case vb18 Response.write "Biertje?"
case vb19 response.write "Biertje?"
case vb20 response.write "Biertje?"
case vb21 response.write "Ga toch naar bed."
case vb22 response.write "Ga toch naar bed."
case vb23 Response.write "Ga toch naar bed."
end select %>
<% select case vbshortdate
case vb0 response.write "Het is wel een vreemd tijdstip om wakker te zijn he."
case vb1 response.write "Het is wel een vreemd tijdstip om wakker te zijn he."
case vb2 response.write "Het is wel een vreemd tijdstip om wakker te zijn he."
case vb3 response.write "Nog even volhouden en het wordt licht."
case vb4 response.write "Nog even volhouden en het wordt licht."
case vb5 Response.write "Nog even volhouden en het wordt licht."
case vb6 Response.write "Zo vroeg wakker?"
case vb7 response.write "Zo vroeg wakker?"
case vb8 response.write "Zo vroeg wakker?"
case vb9 response.write "Moet je niet werken in plaats van surfen?"
case vb10 response.write "Moet je niet werken in plaats van surfen?"
case vb11 Response.write "Moet je niet werken in plaats van surfen?"
case vb12 Response.write "Het ergste van de dag is al voorbij."
case vb13 response.write "Het ergste van de dag is al voorbij."
case vb14 response.write "Het ergste van de dag is al voorbij."
case vb15 response.write "Nog een paar uurtjes."
case vb16 response.write "Nog een paar uurtjes."
case vb17 Response.write "Nog een paar uurtjes."
case vb18 Response.write "Biertje?"
case vb19 response.write "Biertje?"
case vb20 response.write "Biertje?"
case vb21 response.write "Ga toch naar bed."
case vb22 response.write "Ga toch naar bed."
case vb23 Response.write "Ga toch naar bed."
end select %>