unusual characters are converted to their ascii code in Hex and then preceded
by a percent sign. Domino usually takes care of this for you but if you start
playing with Query_Strings in Lotus Script you have to do it by hand. This
function does the following...
a) Search for a percent sign.
b) If there is one then chop the string into three parts
i) The bit upto (not including) the % sign
ii) The 2 digit hex number following the % sign
iii) The unprocessed part of the string after the hex #
c) i) and the chr() of ii) are concatenated and then added to a recursed
treatment of the remainder iii)
d) Return the string.
Function Unescape(Byval strIn) As String
On Error Resume Next
Dim intPercent As Integer
intPercent = Instr(strIn, "%")
If intPercent Then
strIn = Mid(strIn, 1, intPercent - 1) & Chr(Cint("&H" & Mid(strIn, intPercent
+ 1, 2))) & Unescape(Mid(strIn,intPercent + 3))
Unescape = strIn