<% sub ShowImageCnt(thenum) cntstr=Cstr(thenum) for i= 1 to len(cntstr) cntpart=mid(cntstr,i,1) %>

This site is best viewed at 800 x 600 in Internet Explorer 5. x & higher