Left

<% Count = application("count") for i = 1 to len(Count) select case Mid(Count,i,1) case "1" ImgCount = ImgCount & "

" case "2" ImgCount = ImgCount & "

" case "3" ImgCount = ImgCount & "

" case "4" ImgCount = ImgCount & "

" case "5" ImgCount = ImgCount & "

" case "6" ImgCount = ImgCount & "

" case "7" ImgCount = ImgCount & "

" case "8" ImgCount = ImgCount & "

" case "9" ImgCount = ImgCount & "

" case "0" ImgCount = ImgCount & "

" End select Next %> Left