<%
Function CutString(txt,length)
txt=trim(txt)
x=len(txt)
y=0
if x>=1 then
for ii=1 to x
if asc(mid(txt,ii,1))<0 or asc(mid(txt,ii,1))>255 then
y=y+2
else
y=y+1
end if
if y>length then
txt=left(trim(txt),ii)
exit for
end if
Next
CutString=txt
else
CutString=""
end if
End Function %>
