codice:
 	<%
Dim Mese, inizio, fine
Mese = request.querystring("mese")

set Mesi = Server.CreateObject("ADODB.Recordset")
sql = "select * from Mesi where identifica_mese =" &Mesi
Mesi.ActiveConnection = cn
Mesi.Open sql, cn

inizio = CStr(Mesi("inizio"))
fine = CStr(Mesi("fine"))

Mesi.close()
Set Mesi = nothing
%>


<%
set Report = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM report WHERE start <= Datevalue('" & inizio & "') AND end >= Datevalue('" & fine & "')"
Report.ActiveConnection = cn
Report.Open sql, cn
%>
questo funziona se tu mi assicuri che START e END sono campi tipo DATE (quindi data)...

se ancora ci sono dei problemi...
metti prima di REPORT.OPEN queste due linee

response.write SQL
response.end

e vediamo cosa esce di output