How to change color of points and lines in the given code?

Using this code

data = Table[{n, Sin[2 n]/n}, {n, 1, 100}]; ListLogPlot[data,    Joined -> True,    Mesh -> All,    PlotMarkers -> {"•", 9},    PlotStyle -> Thickness[0],    BaseStyle -> 10] 

I get

enter image description here

How can I control and change the color of points and lines? For example, how can I have black points with gray lines? or any other colors.