Set r = new RegExp
r.Pattern = "<META content=(.*?)[/s]*name=description>"
r.IgnoreCase=True
'r.Global = True
Set m = r.Execute(sContent)
'Response.Write(m.count)
if m.count>0 then
For each match in m
OldSubKey=Match.SubMatches(0)
next
OldKey=m(0).value
NewKey="<META name=description content="&OldSubKey&">"
sContent=replace(sContent,OldKey,"")
if instr(sContent,"</TITLE>")>0 then
sContent=replace(sContent,"</TITLE>","</TITLE>"&NewKey)
else
sContent=replace(sContent,"<BODY>","<BODY>"&NewKey)
end if
end if