Undgå HTML i DB

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

Den virker fint

hvor er request henne i spillet???hvis man tager den fra en form hvordan så???eller læse den her bare i databsen??

den der funktion bruges til at fjerne HTML fra en form.

hvad for en form??

som han skriver:

\"forhindre at der ved indsætning af data fra en form til db (Access) kommer HTML tags.\"

hvorfor ikke skrive dem med og så fjerne dem når de skrives til browseren

strTekst indeholder data fra databasen

response.write server.htmlencode(strTekst)

/NaZaq

Psy: Det virker jo fint, men kan man ikke få funktionen til at gælde for flere Str\'s på en gang? Har prøvet at lave en variabel med flere værdier :

strItem = strBesked,strNavn osv osv

og så har jeg brugt strItem der hvor du har strContent i din, men den vil ikke æde den..

Jeg har heller ikke prøvet med flere på en gang, jeg har bare lavet det hver for sig.