ingen HTML i forum indlæg.

erstat < med &lt; og > med &gt;

Minvar = replace(Minvar,\"<\",\"&lt;\")
Minvar = replace(Minvar,\">\",\"&gt;\")

server.htmlencode(minvar)

Function RemoveHTML(strContent)
  Do
    pos = 1
    tmpBegin = InStr(pos,strContent,\"<\")
    If tmpBegin > 0 Then
      pos = tmpBegin
      If LCase(mid(strContent,tmpBegin,7)) = \"<script\" Then
        tmpEnd = Instr(tmpBegin,LCase(strContent),\"</script>\")
        strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-8)
      ElseIf LCase(mid(strContent,tmpBegin,2)) = Chr(60) & \"%\" Then
        tmpEnd = Instr(tmpBegin,LCase(strContent),\"%\" & Chr(62))
        strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-3)
      Else
        tmpEnd = InStr(pos,strContent,\">\")
        If tmpEnd > 0 Then
          strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd)
        Else
          strContent = Left(strContent,tmpBegin-1)
          Exit Do
        End If
      End If
    Else
      Exit Do
    End If
  Loop
  RemoveHTML = strContent
End Function

lol.....

det er det samme som server.htmlencode

Jeg havde selv fundet ud af det inden i kom med jeres svar.

Det må i undskyld :-)