Fjerne alt HTML

Function RemoveHTML( strText )
    Dim RegEx
    Set RegEx = New RegExp
    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = True
    strText = Replace(LCase(strText), "<br>", chr(10))
    RemoveHTML = RegEx.Replace(strText, "")
End Function

left(RemoveHTML(DinVaribel), 160)

viser de første 160 tegn...

pelkjaer -> Nu bruger jeg denne: "Left(rsnews("nyhed"),160)" , hvor skal jeg sætte navnet på din function ind?

2-maz -> Jeg kan ikke helt få det til at virke, hvordan sætter jeg det sammen med det jeg har i forvejen?

For at bruge pelkjaer's brug dette:

Response.write Left(RemoveHTML(rsnews("nyhed")),160)"

Så får du 160 karakter fri for HTML koder + det løse...


Se evt mere her og den function jeg har viderudviklet som tillader <ikke-html-tags> som det sidste.:  http://www.eagleeye.dk/asp/removehtml/default.asp

Nu får jeg denne fejl:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'RemoveHTML'

hmm der er også komer et " med..:

Response.write Left(RemoveHTML(rsnews("nyhed")),160)

Den havde jeg fjernet i forvejen, så det er ikke det.

Hele sætningen ser sådan ud:
<% Response.write Left(RemoveHTML(rsnews("nyhed")),160)&"......" &  "<A href='visnyheder.asp?id=" & RSnews("id")&"&menu=15'>Læs mere </A>"%>

og min forbindelse til databasen ser sådan ud:
<%
set connnews = server.createobject("ADODB.connection")
path = Server.MapPath("db.mdb")
connnews.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQLnews = "SELECT TOP 3 * FROM nyheder WHERE (now()) - (oprettetdato) <= 30  ORDER BY ID DESC"
set RSnews = Connnews.Execute(SQLnews)
%>

Bruger du pelkjaer's function?

nej jeg bruger den jeg fik af 2-maz/dig

Nu virker det - jeg skulle også bruge den function :-)

Tak for hjælpen alle.

eagleeye -> vil du også have point, så smid et svar.

Ja men det er vist mere et eks på hvordan du bruger pelkjaer function lige som min kommentar 07/01-2003 19:20:05


Du er nød til at medtager pelkjaer's function i koden. Du kan ligge den i bunden af din fil:

</html>
<% 'function her

Function RemoveHTML( strText )
    Dim RegEx
    Set RegEx = New RegExp
    RegEx.Pattern = "<[^>]*>"
    RegEx.Global = True
    strText = Replace(LCase(strText), "<br>", chr(10))
    RemoveHTML = RegEx.Replace(strText, "")
End Function

%>

;)

Ja det fandt jeg ud af :-)

Tak for hjælpen endnu en gang, det virker perfekt.