Ajuda Por Favor

[doulo4ever]

Olá galera, por favor me ajudem nessa, já tentei de várias formas, mas não consigo acerta na linha de código que faz replace da letra "<"

Esse é um código de chat, as pessoas que entendem de html ficam enviando letras grandes e até código javascript, eu quero retirar a letra "<" das mensagens, assim a pessoa não consegue enviar este tipo de comando!

Abaixo o código:

<%

Application.Lock

sl01_StrMensagem = Request.Form("Mensagem")

strImagem = Request.Form("imagem")

sl01_StrMensagem = MostrarImagem(sl01_StrMensagem)

IntAcao = Request.Form("Acao")

IntUsuario = Request.Form("Usuario")

IntSigilo = Request.Form("Sigilo")

StrBotaoX = Request.Form("Botao.X")

StrBotaoY = Request.Form("Botao.Y")

sl01_Mensagens = Application("sl01_Mensagens")

sl01_ParaUsuario = Application("sl01_ParaUsuario")

sl01_Exclusiva = Application("sl01_Exclusiva")

sl01_DeUsuario = Application("sl01_DeUsuario")

sl01_Usuarios = Application("sl01_Usuarios")

sl01_StrUsuario = sl01_Usuarios(Session("sl01_Usuario"))

lenStrUsuario = len(sl01_StrUsuario)

lenStrUsuario = lenStrUsuario * 3

If Session("careta") = "não" Then

strCareta = ""

else

strCareta = "<img src=caretas/" & Session("careta") & ".gif>"

end if

If Acao(intAcao) = "grita com" then

strAG = "<b><font size=3>"

strFG = "</font></b>"

else

strAG = ""

strFG = ""

end if

If StrBotaoX <> 0 and StrBotaoY <> 0 Then

StrSair = "top.location.href =" & Chr(34) & "descarregar.asp" & Chr(34)

End if

If Int(IntSigilo) = 1 then StrSigilo = " reservadamente"

If sl01_StrMensagem <> "" Then

for i=18 to 0 step -1

sl01_Mensagens(i+1)= sl01_Mensagens(i)

sl01_Exclusiva(i+1)= sl01_Exclusiva(i)

sl01_ParaUsuario(i+1) = sl01_ParaUsuario(i)

sl01_DeUsuario(i+1) = sl01_DeUsuario(i)

next

sl01_Mensagens(0) = sl01_StrNovaMensagem & "</font>"

sl01_ParaUsuario(0) = IntUsuario

sl01_DeUsuario(0) = Session("sl01_Usuario")

sl01_Exclusiva(0) = Int(IntSigilo)

If sl01_Usuarios(IntUsuario) = "" Then IntUsuario = 0

If strImagem = "vazio" then 'sem imagem

If Int(intSigilo) = 1 then 'reservado sem imagem

sl01_StrNovaMensagem = "<table width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=" & Application("tarja_r") & "><tr><td><font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+") </font>" & strCareta & "<B><font face=verdana size=2 color=" & Session("cor") & ">" & sl01_Usuarios(Session("sl01_Usuario")) & " </font></b><font face=verdana size=2>" & Acao(IntAcao) & "<b> " & sl01_Usuarios(IntUsuario) & "</font></B><font face=verdana size=1>" & StrSigilo & " - " & strAG

sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem

sl01_StrNovaMensagem = sl01_StrNovaMensagem & strFG & "</td></tr></table>"

else 'aberto sem imagem

sl01_StrNovaMensagem = "<font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+") </font> " & strCareta & " <B><font face=verdana size=2 color=" & Session("cor") & ">" & sl01_Usuarios(Session("sl01_Usuario")) & " </font></b><font face=verdana size=2>" & Acao(IntAcao) & "<b> " & sl01_Usuarios(IntUsuario) & "</font></B><font face=verdana size=1>" & StrSigilo & " - " & strAG

sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem & strFG

end if

sl01_Mensagens(0) = sl01_StrNovaMensagem & "</font>"

sl01_ParaUsuario(0) = IntUsuario

sl01_DeUsuario(0) = Session("sl01_Usuario")

sl01_Exclusiva(0) = Int(IntSigilo)

else 'com imagem

If Int(intSigilo) = 1 then 'reservado com imagem

sl01_StrNovaMensagem = "<table width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=" & Application("tarja_r") & "><tr><td><font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+") </font> " & strCareta & " <B><font face=verdana size=2 color=" & Session("cor") & ">" & sl01_Usuarios(Session("sl01_Usuario")) & " </font></b><font face=verdana size=2>" & Acao(IntAcao) & "<b> " & sl01_Usuarios(IntUsuario) & "</font></B><font face=verdana size=1>" & StrSigilo & " - " & strAG & "<img src=" & strImagem & ">"

sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem

sl01_StrNovaMensagem = sl01_StrNovaMensagem & strFG & "</td></tr></table>"

else 'aberto com imagem

sl01_StrNovaMensagem = "<font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+") </font> " & strCareta & "<B><font face=verdana size=2 color=" & Session("cor") & ">" & sl01_Usuarios(Session("sl01_Usuario")) & " </font></b><font face=verdana size=2>" & Acao(IntAcao) & "<b> " & sl01_Usuarios(IntUsuario) & "</font></B><font face=verdana size=1>" & StrSigilo & " - " & strAG & " <img src=" & strImagem & ">"

sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem & strAG

end if

sl01_Mensagens(0) = sl01_StrNovaMensagem & "</font>"

sl01_ParaUsuario(0) = IntUsuario

sl01_DeUsuario(0) = Session("sl01_Usuario")

sl01_Exclusiva(0) = Int(IntSigilo)

End if

End if

StrQuebra = "<BR>&nbsp;<BR>"

For i=0 To 19

If sl01_Mensagens(i) = Session("sl01_Ultima") Then Exit For

If sl01_Exclusiva(i) < 1 Or Int(sl01_DeUsuario(i)) = Int(Session("sl01_Usuario")) or Int(sl01_ParaUsuario(i)) = Int(Session("sl01_Usuario")) or sl01_ParaUsuario(i) = 0 then

StrNovas = StrNovas & StrQuebra & sl01_Mensagens(i)

End if

Next

Session("sl01_Ultima") = sl01_Mensagens(0)

sl01_Usuarios(0) = "Todos"

Application("sl01_Mensagens") = sl01_Mensagens

Application("sl01_Exclusiva") = sl01_Exclusiva

Application("sl01_ParaUsuario") = sl01_ParaUsuario

Application("sl01_DeUsuario") = sl01_DeUsuario

Application("sl01_Usuarios") = sl01_Usuarios

For i=0 to 19

If Len(sl01_Usuarios(i)) > 0 And Int(Session("sl01_Usuario")) <> i Then

StrLista = StrLista & "<OPTION VALUE=" & i

If Int(IntUsuario) = Int(i) Then StrLista = StrLista & " SELECTED"

StrLista = StrLista & ">" & sl01_Usuarios(i) & Chr(13)

End If

Next

Application.Unlock

Function MostrarImagem(sl01_StrMensagem)

Dim IntInicio, IntFim, StrSaida

IntInicio = InStr(1, sl01_StrMensagem, "[")

If IntInicio < 1 Then

MostrarImagem = sl01_StrMensagem

Exit Function

End if

IntFim = InStr(IntInicio , sl01_StrMensagem, "]")

If IntFim < 1 Then

MostrarImagem = sl01_StrMensagem

Exit Function

End if

'inicio mostrar imagem

StrSaida = Left(sl01_StrMensagem, IntInicio - 1) & "<br>"

StrSaida = StrSaida & "<IMG SRC='" & Mid(sl01_StrMensagem, IntInicio + 1, IntFim - IntInicio - 1) & "'>"

StrSaida = StrSaida & Right(sl01_StrMensagem, Len(sl01_StrMensagem) - IntFim) & "<br>"

'fim mostrar imagem

MostrarImagem = StrSaida

End Function

Function LimparVariavel(sl01_StrMensagem)

Dim IntCont

Dim StrLetra

Dim StrSaida

For IntCont = 1 To Len(sl01_StrMensagem)

StrLetra = Mid(sl01_StrMensagem, IntCont, 1)

If Asc(StrLetra) = 34 Then

StrLetra = """

ElseIf Asc(StrLetra) = 13 or Asc(StrLetra) = 10 Then

StrLetra = " "

End if

StrSaida = StrSaida & StrLetra

Next

LimparVariavel = StrSaida

End Function

%>

Muito obrigado mesmo!

[Victor]

Qual o erro que retorna no servidor???

[Bicicleta]

Dá um Server.HTMLEncode antes de enviar a mensagem... Isso evita esse problema, e você não precisa ficar usando o Replace!