<% '********************************************* '*** Eliminiamo i tag principali ***** '********************************************* Private Function removeAllTags(ByVal strInputEntry) strInputEntry = Replace(strInputEntry, "&", "&", 1, -1, 1) strInputEntry = Replace(strInputEntry, "<", "<", 1, -1, 1) strInputEntry = Replace(strInputEntry, ">", ">", 1, -1, 1) strInputEntry = Replace(strInputEntry, "#", "#", 1, -1, 1) strInputEntry = Replace(strInputEntry, "%", "%", 1, -1, 1) strInputEntry = Replace(strInputEntry, "*", "*", 1, -1, 1) strInputEntry = Replace(strInputEntry, "\", "\", 1, -1, 1) strInputEntry = Replace(strInputEntry, "'", "’", 1, -1, 1) removeAllTags = strInputEntry End Function Private Function removemaligno(ByVal strInput) strInput = Replace(strInput, "&", "&", 1, -1, 1) strInput = Replace(strInput, "#", "#", 1, -1, 1) strInput = Replace(strInput, "%", "%", 1, -1, 1) strInput = Replace(strInput, "*", "*", 1, -1, 1) strInput = Replace(strInput, "\", "\", 1, -1, 1) strInput = Replace(strInput, "'", "’", 1, -1, 1) removemaligno = strInput End Function '****************************************** '*** UBB code ***** '****************************************** Private Function UBBcode(ByVal strMessage) Dim strTempMessageLink Dim strMessageLink Dim lngLinkStartPos Dim lngLinkEndPos Dim intLoop strMessage = Replace(strMessage, "[B]", "", 1, -1, 1) strMessage = Replace(strMessage, "[/B]", "", 1, -1, 1) strMessage = Replace(strMessage, "[I]", "", 1, -1, 1) strMessage = Replace(strMessage, "[/I]", "", 1, -1, 1) strMessage = Replace(strMessage, "[U]", "", 1, -1, 1) strMessage = Replace(strMessage, "[/U]", "", 1, -1, 1) strMessage = Replace(strMessage, "[LIST=1]", "

", 1, -1, 1) strMessage = Replace(strMessage, "[/LIST=1]", "

", 1, -1, 1) strMessage = Replace(strMessage, "[LIST]", "

", 1, -1, 1) strMessage = Replace(strMessage, "[/LIST]", "

", 1, -1, 1) strMessage = Replace(strMessage, "[LI]", "

", 1, -1, 1) strMessage = Replace(strMessage, "[/LI]", "

", 1, -1, 1) strMessage = Replace(strMessage, "[CENTER]", "", 1, -1, 1) strMessage = Replace(strMessage, "[/CENTER]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT FACE=Arial]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT FACE=Courier]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT FACE=Times]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT FACE=Verdana]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT COLOR=BLACK]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT COLOR=WHITE]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT COLOR=BLUE]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT COLOR=RED]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT COLOR=ORANGE]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT COLOR=GREEN]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT COLOR=YELLOW]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT COLOR=GRAY]", "", 1, -1, 1) strMessage = Replace(strMessage, "[/FONT]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT SIZE=1]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT SIZE=2]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT SIZE=3]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT SIZE=4]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT SIZE=5]", "", 1, -1, 1) strMessage = Replace(strMessage, "[FONT SIZE=6]", "", 1, -1, 1) Do While InStr(1, strMessage, "[IMG]", 1) > 0 AND InStr(1, strMessage, "[/IMG]", 1) > 0 lngLinkStartPos = InStr(1, strMessage, "[IMG]", 1) lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/IMG]", 1) + 6 strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos))) strTempMessageLink = strMessageLink strTempMessageLink = Replace(strTempMessageLink, "[IMG]", "", 1, -1, 1) strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1) Loop Do While InStr(1, strMessage, "[URL=", 1) > 0 AND InStr(1, strMessage, "[/URL]", 1) > 0 lngLinkStartPos = InStr(1, strMessage, "[URL=", 1) lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/URL]", 1) + 6 If lngLinkEndPos - lngLinkStartPos =< 5 Then lngLinkEndPos = lngLinkStartPos + 5 strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos))) strTempMessageLink = strMessageLink strTempMessageLink = Replace(strTempMessageLink, "[URL=", "", 1, -1, 1) strTempMessageLink = Replace(strTempMessageLink, "]", """ target=_blank"">", 1, -1, 1) strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1) Loop Do While InStr(1, strMessage, "[EMAIL=", 1) > 0 AND InStr(1, strMessage, "[/EMAIL]", 1) > 0 lngLinkStartPos = InStr(1, strMessage, "[EMAIL=", 1) lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/EMAIL]", 1) + 8 If lngLinkEndPos - lngLinkStartPos =< 7 Then lngLinkEndPos = lngLinkStartPos + 7 strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos))) strTempMessageLink = strMessageLink strTempMessageLink = Replace(strTempMessageLink, "[EMAIL=", "", 1, -1, 1) strTempMessageLink = Replace(strTempMessageLink, "]", """>", 1, -1, 1) strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1) Loop UBBcode = strMessage End Function %>