% ssql = " SELECT id_Programa " & _ " FROM tb_programa " & _ " where Now() between CDate( data_entrar + ' ' + hora_entrar + ':00') and CDate( data_sair + ' ' + hora_sair + ':00') and id_ativo <> '0' or id_ativo is null " set rs = dados.execute(ssql) if not rs.eof then flag = true cdPrograma = rs("id_Programa") end if rs.close set rs = nothing %>
|