Bueno ya se que el tema es viejo, que si no se usa que si tal o cual, pero me parece interesante para alguien que desee reciclar codigo almacenado en bases de datos y asp clasico, y solo quiere cumplir con alguna de las normas de xhtml. Principalmente eliminar o modificar el uso de mayusculas en los tags html.
En combinacion de las anteriores se podrian eliminar los tags no deseados y ponerlos en minusculas.
la funcion se compone de dos partes:
Código:
'============ html a LCase ===================
Dim s,re
Function crf(m,p,s)
crf = LCase(m)
End Function
function minHTML(sHTML)
s=sHTML
Set re = New RegExp
With re
.Global = True
.Pattern = "<[^>]+>"
minHTML= .Replace(s,GetRef("crf"))
End With
end function
'============ html a LCase ===================
y se usa:
para mostrarlo:
Código:
Response.Write minHTML(cabecera)
para guardarlo en una variable etc ...
Código:
contenido=minHTML(cabecera)
En todo caso espero que ayude a alguien.