Necesitas un Do While para que te muestre todas las lineas de ese campo.
Do While Not result.EOF
Response.Write "<p><font face=Verdana size=1>"&result.Fields("aquivacampo")&"<br><font color=""#696969"">• " &result.Fields("uno") & "</font></font></p>"
result.MoveNext
Loop