找个高手帮解决个菜鸟问题：moveNext没有移动指针，怎么办？
Set   rsClickCount   =   Server.CreateObject( "ADODB.Recordset ")
strSQL   =   "SELECT   ColumnName,OuterAddress,OuterA,InnerAddress,InnerA,UserGuid,ClickCount   FROM   ClickCount   WHERE   ColumnType   =   1   order   by   ColumnID "

rsClickCount.Open   strSQL,   cn
rsClickCount.MoveLast
rsClickCount.MoveFirst
strTotal= " "
rem   while   not   rsClickCount.EOF
if   rsClickCount.RecordCount> 0   then
rsClickCount.MoveFirst
do   while   not   rsClickCount.EOF
strHTML= " "
strColumnName=rsClickCount( "ColumnName ")
strOuterAddress=rsClickCount( "OuterAddress ")
strOuterA=rsClickCount( "OuterA ")
strInnerAddress=rsClickCount( "InnerAddress ")
strInnerA=rsClickCount( "InnerA ")
strUserGuid=rsClickCount( "UserGuid ")
lClickCount=rsClickCount( "ClickCount ")
strNum1=lClickCount   mod   10
strNum2=(lClickCount/10)   mod   10
strNum3=(lClickCount/100)   mod   10
strNum4=(lClickCount/1000)   mod   10
strNum5=(lClickCount/10000)   mod   10
strNum6=(lClickCount/100000)   mod   10
strNum7=(lClickCount/1000000)   mod   10
strClickCount= " <img   src= '/img/ "&strNum7& ".gif '> "& " <img   src= '/img/ "&strNum6& ".gif '> "& " <img   src= '/img/ "&strNum5& ".gif '> "
strClickCount=strClickCount& " <img   src= '/img/ "&strNum4& ".gif '> "& " <img   src= '/img/ "&strNum3& ".gif '> "& " <img   src= '/img/ "&strNum2& ".gif '> "
strClickCount=strClickCount& " <img   src= '/img/ "&strNum1& ".gif '> "

strHTML=strHTML1&strColumnName   &   lClickCount   &strHTML2&strOuterAddress&strHTML3&strOuterA&strHTML4
strHTML=strHTML&strInnerAddress&strHTML5&strInnerA&strHTML6&strUserGuid&strHTML7&strClickCount&strHTML8
strTotal   =   strTotal   &   strHTML
rsClickCount.movenext
loop
end   if
rem   wend
Response.Write   strTotal

------解决方案--------------------
rsClickCount.Open strSQL, cn，1，1