%
Count = application("visit")
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
if len(Count) < 6 then
aa = 6 - len(count)
for i=1 to aa
kk = kk & "
"
next
end if
%>
![]() |
|
| Home | About MTRC | Research | People | News | Facilities | Resources | Site Map | Search | Contact Us | |