Zobrazení svátku na aktuální a následující den

Zobrazení svátku na aktuální a následující den (s použitím databáze)

<%
' Pripojení k databazi
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("svatky.mdb")
Conn.Open

' Definice svatku
Sql = "SELECT (SELECT svatek FROM svatky WHERE (den = DATEPART('D',NOW())) AND (mesic = DATEPART('M',NOW()))) AS Dnes, (SELECT svatek FROM svatky WHERE (den = DATEPART('D',DATEADD('D',1,NOW()))) AND (mesic = DATEPART('M',DATEADD('D',1,NOW())))) AS Zitra FROM svatky"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, Conn, 3, 3
SvatekDnes = CStr(rs("Dnes"))
SvatekZitra = CStr(rs("Zitra"))
rs.CloseSet rs = Nothing
%>

<div align="center">
<center>
<table border="0">
<tr>
<td>
<font size="2" face="MS Sans Serif, Arial">
<b>Dnes má svátek: </b>
<%
= SvatekDnes
%>
<br><br>
<b>Zítra má svátek: </b>
<%
= SvatekZitra
%>
</font>
<td>
<tr>
</table>
</center>
</div>