Set rsdbCon = Server.CreateObject("ADODB.RECORDSET")
rsdbCon.ActiveConnection = conexao
cod = request.form("codigo")
mes = request.form("mes")
response.write(cod)
response.write(mes)
if isnull(cod) OR isempty(cod) then
cod = request.QueryString("codigo")
end if
strsql = "select * from Imovel where codigoImovel ='"&cod&"' and mesAtual='"&mes&"' "
rsdbcon.open strsql
if not rsdbcon.bof then
....
....
....
Vou insistir, esta tudo certinho, a única coisa que este estranho é isso: ='"&cod&"', no meu ponte de vista teria que ser assim ="&cod&", porque se trata de um campo numérico. você já tentou fazer essa alteração? Se não tenta ai, caso de erro post ele.. t+++