<%
varStartTid = Cdate("07:00")
varSlutTid = Cdate("18:00")
varInterval = "30" ' i minuter
Response.Write ""
Do Until varStartTid > varSlutTid
Response.Write ""&FormatDateTime(varStartTid,vbShortTime)&""
varStartTid = DateAdd("n",varInterval,varStartTid)
Loop
Response.Write ""
%>