Using slightly different notation
Assuming[{0<r<1,q>0},Integrate[q E^(-q x)(r^x(w-u)-w)/Log[r], {x,0,Infinity}]]
click here
it worked a moment ago. I'm not convinced that the changes I made had anything to do with the different result. Maybe it was just "resting" when you tried.
