Bueno, como son números consecutivos, lo más simple es lo más evidente:
<%
cnt=1
do while not lobjRst2.EOF%>
<td align="center">
<%
if lobjrst2.fields("USA") = cnt Then
response.Write " <a href=""path"">" & number & "</a>"
else
response.Write " " & number
End if
cnt = cnt + 1
lobjRst2.MoveNext
loop
%>