Regular expression - Grap alle <p>

Ps. Det er "kun"
                <p>
                  <!--- EN MASSE TEKST --->
                </p>
Jeg er intresseret i at fange !

Er der slet ingen ?

Hvordan bruger du det?  og hvad skal der ske hvis der er nested <p> tags?

Men måske dette kan hjælpe lidt, som kan finde nested [quote] [/quote] tags:


Function RegEXPMaker(strInput)
    dim tempStr
    Set regex = New RegExp
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "\[QUOTE=(.*?)\](.*?)\[/QUOTE\]"
    tempStr = regex.Replace(strInput,"<fieldset><LEGEND style=padding-bottom:5px>$1 skrev følgende:</LEGEND>$2</fieldset>" )
    if regex.test(tempStr) then tempStr = RegEXPMaker(tempStr)
    RegEXPMaker = tempStr
    Set regex = nothing
End Function

strTest = "[Quote=TheFatMan][quote=Navn her]test[/quote]test2[/Quote]adfad[Quote=Navn igen]hadfhdf dfadf adf[/quote]"

response.write "<strong>After String:</strong><br>" + RegEXPMaker(strTest )+ "<br>"

ååh hvad - Mon ikke den skal lukkes ?!
Eagleeye - drop et svar !

ok så kommer der et svar :-)