ho riscritto il codice ma non mi funziona dove sto sbagliando?

<%
Dim Conn
Dim Rs
Dim Mese
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../_mdb-database/assiforum.mdb")
Set Rs=Server.CreateObject("ADODB.RecordSet")
'Prendo il mese dalla data di sistema
Mese=<FONT color=red>Month(date())</FONT>
' La data nel database deve essere formattata così: 10/08/1977
Set Rs=Conn.Execute("SELECT DOB,Username FROM tblAuthor where Month(DOB)=" & Mese & ";" )
Response.Write "Auguri di buon compleanno a:
"
DO WHILE NOT Rs.EOF
Response.Write Rs("Username") & " " & Rs("DOB") & "
"
Rs.Movenext
LOOP
%>


mi fate sapere grazie