<% dim b,c,d c=0 d=1 Set rs=Server.CreateObject("ADODB.RecordSet") rs.open "select * from ggcode where gglock=false",conn,3,2 randomize for a=1 to rs.recordcount b=int(rnd()*10) if c" 'response.write d & " "& c&"
" select case d case 1 case rs.recordcount rs.movelast case else rs.move d-1,1 end select rs(2)=rs(2)+1 rs.update response.write "document.write ('"&rs(1)&"')" set rs=nothing %>