<% If isEmpty(Session("ID")) Then strNick1 = "" strNick2 = "" Else Function Shorten(sString, sLength) If Len (sString) > sLength Then Shorten = Left(sString,sLength) & "...." Else Shorten = sString End If End Function strNick = Replace(Session("NAME"), "[", "") strNick = Replace(strNick, "]", "") strNick = Replace(strNick, "(", "") strNick = Replace(strNick, ")", "") strNick = Replace(strNick, ".", "") strNick1s = "spo" & Shorten(strNick,11) strNick2s = "spo1" & Shorten(strNick,10) strNick1 = "" strNick2 = "" End if %> <%=strNick1%> <%=strNick2%>