<%
tmp=Application("Count")
tmp=Cstr(tmp)
dim disp(20)
dim images(20)
dbbits=len(tmp)
for I= 1 to dbbits
disp(I)=left(right(tmp,I),I-(I-1))
next

for I=dbbits to 1 step -1
images(I)="<img src="&"http://www.show5.net/Images/Counter"&"/"&disp(I)&".gif>"

response.write ""&images(I)&""

next

%>