Ej godkänna htmlkod ?

Ja, det har du visst... Nej nu j*****

Jag ska ägna hela min fritid åt att skriva mina funderingar på webforum så jag kommer i kraftigt överläge gentemot dig Brimpa !

Den som lever får se..

Jag trodde vi hade gjort klart att mitt alias är Brimba och inget annat!

Skärp dig

Ett p eller b hit eller dit...

Du kan väl kalla mig för Pire om du vill !

Pire

Föresten Bire är det någon sorts slang på Beer? Eller är det Bajer eller är det B I R E eller vad kommer det ifrån?

Oops svenskan var inte så bra.

Jag har faktiskt ingen aning om vart mitt nick kommer från.
Jag har haft det namnet sen jag var en liten parvel och de senaste 20 åren har jag ägnat åt att lära mig leva med det

Det har inget med rusdrycker att göra iaf, det är jag säker på !

Öl är gott...

Still 10 inläggs ahead

wooohooo (I thought you were after me?)

Jag kommer nog snart att gå förbi dej...

hmmm.... sitter här med mitt lilla klotterplank och vill nu inte ha så att man kan skriva någon som helst html kod... den ska reagera när man skriver
bara "< eller >" vart lägger man kodsnutten...?på sidan man skriver in eller sidan man läser alla inlägg på...?

Det gör du på det stället du lägger in texten i databasen. Typ:

If Instr(Request("textruta"),"<") Or Instr(Request("textruta"),">")) Then
Response.Write "Du får inte skriva HTML-kod"
Else
'Kod som slänger i allt i databasen
End If

Fast då kommer den reagera på om man skriver ett större än tecken eller ett mindre än tecken. Så du kanske skulle byta ut Or mot And.
Fast själv tycker jag ServerHTMLEncode(..) är mycket bättre.

Ooops! Läste fel...

Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

  Dim objRegExp, strOutput
  Set objRegExp = New Regexp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<(.&#0124;\n)+?>"

  'Replace all HTML tag matches with the empty string
  strOutput = objRegExp.Replace(strHTML, "")
  
  'Replace all < and > with < and >
  strOutput = Replace(strOutput, "<", "<")
  strOutput = Replace(strOutput, ">", ">")
  
  stripHTML = strOutput    'Return the value of strOutput

  Set objRegExp = Nothing
End Function