Article ID: 163334
Article Last Modified on 1/19/2007
Function MakeHTMLValue(szVal)
Dim i
Dim szRet
for i = 1 to Len(szVal)
ch = Mid(szVal, i, 1)
if ch = " " Then
szRet = szRet & "%20"
elseif ch = "&" Then
szRet = szRet & "%26"
elseif ch = "#" Then
szRet = szRet & "%23"
elseif ch = """" Then
szRet = szRet & "%22"
elseif ch = ";" Then
szRet = szRet & "%3B"
elseif ch = ":" Then
szRet = szRet & "%3A"
elseif ch = "'" Then
szRet = szRet & "%27"
else
szRet = szRet & Mid(szVal, i, 1)
end if
next
MakeHTMLValue = szRet
End Function
Function MakeHTMLValue(szVal)
Dim i
Dim szRet
for i = 1 to Len(szVal)
ch = Mid(szVal, i, 1)
if ch = " " Then
szRet = szRet & "%20"
elseif ch = "&" Then
szRet = szRet & "%26"
elseif ch = "#" Then
szRet = szRet & "%23"
elseif ch = """" Then
szRet = szRet & "%22"
elseif ch = ";" Then
szRet = szRet & "%3B"
elseif ch = ":" Then
szRet = szRet & "%3A"
elseif ch = "'" Then
szRet = szRet & "%27"
elseif ch = "%" Then
szRet = szRet & "%25"
elseif ch = "+" Then
szRet = szRet & "%2B"
elseif ch = "^" Then
szRet = szRet & "%5E"
else
szRet = szRet & Mid(szVal, i, 1)
end if
next
MakeHTMLValue = szRet
End Function
Additional query words: reserved map xlate frontpage frontpg
Keywords: kbhowto kbinterop kbprogramming KB163334