<%Function RevFormatText(sIn)
Dim charPos, sOut, curChar, urlChar, urlString, imgChar, imgPos, imgString
sOut = ""
For charPos = 1 To Len(sIn)
curChar = Mid(sIn, charPos, 1)
if curChar = "<" then
if mid(sIn, charPos, 4) = "
" then
sOut = sOut + chr(13)
charPos = charPos + 3
elseif mid(sIn, charPos, 12) = "" then
sOut = sOut + "[quote]"
charPos = charPos + 73
elseif mid(sIn, charPos, 17) = "
" then
sOut = sOut + "[/quote]"
charPos = charPos + 16
elseif mid(sIn, charPos, 3) = "" then
sOut = sOut + "[b]"
charPos = charPos + 2
elseif mid(sIn, charPos, 4) = "" then
sOut = sOut + "[/b]"
charPos = charPos + 3
elseif mid(sIn, charPos, 3) = "" then
sOut = sOut + "[i]"
charPos = charPos + 2
elseif mid(sIn, charPos, 4) = "" then
sOut = sOut + "[/i]"
charPos = charPos + 3
elseif mid(sIn, charPos, 3) = "" then
sOut = sOut + "[u]"
charPos = charPos + 2
elseif mid(sIn, charPos, 4) = "" then
sOut = sOut + "[/u]"
charPos = charPos + 3
elseif mid(sIn, charPos, 4) = ":("
charPos = charPos + 68
else
sOut = sOut + "[img]"
charPos = charPos + 10
imgString = ""
imgChar = ""
imgPos = charPos
do until mid(sIn, imgPos, 2) = """>"
imgChar = mid(sIn, imgPos, 1)
imgString = imgString + imgChar
imgPos = imgPos + 1
if imgPos > len(sIn) then
sOut = sOut + imgString + "[/img]"
exit for
end if
loop
imgString = left(imgString, len(imgString))
sOut = sOut + imgString + "[/img]"
charPos = charpos + (imgPos - charPos + 5)
end if
elseif (mid(sIn, charPos, 2) = ""
charPos = charPos + 1
loop
charPos = charPos + 2
urlString = ""
urlChar = ""
do until mid(sIn, charPos, 4) = ""
urlChar = mid(sIn, charPos, 1)
urlString = urlString + urlChar
charPos = charPos + 1
if charPos > len(sIn) then
exit for
end if
loop
sOut = sOut + urlString
charPos = charpos + 3
end if
else
sOut = sOut + curChar
end if
Next
RevFormatText = sOut
End Function%>