<%
function getMaxChar(str)
maxlen=0
maxChar=""
tempStr=""
for i=1 to len(str)
char = mid(str,i,1)
if instr(tempStr,char)<=0 then
tempStr = tempStr&char
tempLen = len(str)-len(replace(str,char,""))
if tempLen>maxl then
maxl = tempLen
maxC = char
elseif tempLen=maxl then
maxC = maxC & "," & char
end if
end if
next
getMaxChar = maxC
end function