<% CounterNum = GetCounterNum("counter\counter.txt") %> <% dim i, S, G S = CStr( CounterNum ) do while Len(S) < 7 S = "0" + S loop For i = 1 to Len(S) G = G & "" Next %> <% =G %>