Scrivo un esempio che potrebbe avere anche degli errori, però, ciò che conta è la logica.
codice:
<table>
<%
data = date()
oraIniziale = "00.00.00"
oraFinale = "00.30.00"
for i = 1 to 48
%>
<tr>
<%
sql = "SELECT * FROM tabella1 WHERE data = #" & data & "# AND (oraIniziale > " & oraIniziale & " OR oraFinale < " & oraFinale & ")"
%>
<td>
Dalle ore <%=dataInizio%>
Dalle ore <%=dataFine%>
</td>
<td>
<%
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
response.write rs("evento") & "
"
rs.moveNext
loop
else
response.write "Non ci sono eventi disponibili per questo intervallo di tempo."
end if
rs.close
set rs = nothing
%>
</td>
<%
oraIniziale = dateAdd("n",30,oraIniziale)
if i < 47 then
oraFinale = dateAdd("n",30,oraFinale)
else
oraFinale = dateAdd("n",29,oraFinale)
end if
%>
</tr>
<%
next
%>
</table>