Replace al html?

Du skal jo netop IKKE html encode...

<%= Server.HTMLEncode("Dette tag: <p>") %>
bliver til
Dette tag: &lt;p&gt

;)

Lav først en funktion:

<%
Function ReplaceTest(tekst,patrn, replStr)
  Dim regEx, str1
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.global = true
  regEx.IgnoreCase = True
  ReplaceTest = regEx.Replace(tekst, replStr)
End Function
%>

Fjern så alle tags fra teksten:

<%
strTekst = record("html")
udenHTML = ReplaceTest(strTekst,"(<[^><]*>)"," ")
response.write udenHTML
%>

/Goose

Goose..

Jeg kan ikke helt få dit til at virke :(

Syntax error

/test.asp, line 20

Function ReplaceTest(tekst,patrn, replStr)
^

hmm, det virker da fint her hos mig ............

Hvordan ser dit script ud ?

/Goose

Sådan her :)

<%
Response.Buffer = True

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../database/afront.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

Sql = "SELECT * FROM menuopsaetning"
Set Record =  Con.Execute(Sql)

%>

<% Do while Not Record.EOF %>


<b><%= Record("link") %></b><br>

<%
Function ReplaceTest(tekst,patrn, replStr)
  Dim regEx, str1
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.global = true
  regEx.IgnoreCase = True
  ReplaceTest = regEx.Replace(tekst, replStr)
End Function
%>

<%
strTekst = record("html")
udenHTML = ReplaceTest(strTekst,"(<[^><]*>)"," ")
response.write udenHTML
%>

<br><br>

<%
Record.MoveNext
Loop
%>

<%
Con.Close
Set Con = Nothing
%>

hmm, prøv lige:

<%
Response.Buffer = True

Function ReplaceTest(tekst,patrn, replStr)
  Dim regEx, str1
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.global = true
  regEx.IgnoreCase = True
  ReplaceTest = regEx.Replace(tekst, replStr)
End Function

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../database/afront.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

Sql = "SELECT * FROM menuopsaetning"
Set Record =  Con.Execute(Sql)

%>

<% Do while Not Record.EOF %>


<b><%= Record("link") %></b><br>


<%
strTekst = record("html")
udenHTML = ReplaceTest(strTekst,"(<[^><]*>)"," ")
response.write udenHTML
%>

<br><br>

<%
Record.MoveNext
Loop
%>

<%
Con.Close
Set Con = Nothing
%>

/Goose

Gud hvor er jeg dum.. Jeg placerede det lige selv før loopet, så fungerede det bare perfekt.

Tusinde tak skal du have, og god weekend!

- tak i lige måde :o)

/Goose