cosa c'è di sbagliato?

codice:
<%
Dim mese
Dim anno
dim dataa
mese =  Request.QueryString("mese")
anno = Request.QueryString("anno")
dataa = "%/" & mese & "/"  & anno
%>
<%

Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows

Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_conn_db_interventi_STRING
Recordset2_cmd.CommandText = "SELECT * FROM tbl_interventi WHERE intervento_data LIKE " & dataa
Recordset2_cmd.Prepared = true

Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>