---

Jeg bøvler lidt med følgende:
<DIV style="MARGIN: 0cm 0cm 0pt"> skal fjernes når recordset
vises.
Jeg bruger dette:
<%
Function replaceSpecialChars(ByVal strText)
Dim strTemp
strTemp = Replace(strText,"'","&#39;")
strTemp = Replace(strTemp,"<DIV>","")
strTemp = Replace(strTemp,"</DIV>","")
replaceSpecialChars = strTemp
End Function
%>
Hvordan skal strTemp se ud for at <DIV style="MARGIN: 0cm 0cm
0pt"> fjernes?

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

> Hvordan skal strTemp se ud for at <DIV style="MARGIN: 0cm 0cm
> 0pt"> fjernes?

Vel noget i denne dur:
strTemp = Replace(strTemp,"<DIV style=""MARGIN: 0cm 0cm 0pt"">","")
Altså dobbelt anførselstegn for de anførselstegn, der er i strengen. Jeg går
ud fra, at det er det, der volder dig problemer.

---

"Michael Tillgaard" <post@bogkassen.dk> wrote in message
news:470f74db$0$90267$14726298@news.sunsite.dk...
> Jeg bøvler lidt med følgende:
> <DIV style="MARGIN: 0cm 0cm 0pt"> skal fjernes når recordset
> vises.
> Jeg bruger dette:
> <%
> Function replaceSpecialChars(ByVal strText)
> Dim strTemp
> strTemp = Replace(strText,"'","&#39;")
> strTemp = Replace(strTemp,"<DIV>","")
> strTemp = Replace(strTemp,"</DIV>","")
> replaceSpecialChars = strTemp
> End Function
> %>
> Hvordan skal strTemp se ud for at <DIV style="MARGIN: 0cm 0cm
> 0pt"> fjernes?

Til at strippe HTML, benytter jeg denne funktion, måske du kan bruge den:

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

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\n)+?>"

'Replace all HTML tag matches with the empty string
strOutput = objRegExp.Replace(strHTML, "")

'Replace all < and > with &lt; and &gt;
strOutput = Replace(strOutput, "&nbsp;", "")
strOutput = Replace(strOutput, "<", "&lt;")
strOutput = Replace(strOutput, ">", "&gt;")

META_StripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function

--
Thrane

---

Thrane wrote in dk.edb.internet.webdesign.serverside.asp:
KLIP
> Til at strippe HTML, benytter jeg denne funktion, måske du kan bruge den:
>
> Function META_StripHTML(strHTML)
> 'Strips the HTML tags from strHTML
>
> Dim objRegExp, strOutput
> Set objRegExp = New Regexp
>
> objRegExp.IgnoreCase = True
> objRegExp.Global = True
> objRegExp.Pattern = "<(.\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, "<", "<")
> strOutput = Replace(strOutput, ">", ">")
>
> META_StripHTML = strOutput 'Return the value of strOutput
>
> Set objRegExp = Nothing
> End Function
>
> --
> Thrane
>
Tak for begge svar.

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials