[Import] common ASP functions: trimlr ()

<%
'Function: returns the sString copy of the string sStr before, after, or before and after sStr. (Case Sensitive)
'Source: http://jorkin.reallydo.com/article.asp? Id = 443

Public Function TrimLR (ByVal sString, ByVal sStr, ByVal sLeftOrRight)
Dim iStrLen: iStrLen = Len (sStr)
Select Case UCase (sLeftOrRight)
Case "L", "LEFT"
Do While Left (sString, iStrLen) = sStr
SString = Mid (sString, iStrLen + 1)
Loop
Case "R", "RIGHT"
Do While Right (sString, iStrLen) = sStr
SString = Mid (sString, 1, Len (sString)-iStrLen)
Loop
Case Else
SString = TrimLR (sString, sStr, "L ")
SString = TrimLR (sString, sStr, "R ")
End Select
TrimLR = sString
End Function
%>

Source: http://Jorkin.Reallydo.Com/default.asp? Id = 444