strContent = re.Replace(strContent, "<font face=$2>$3</font>")
re.Pattern = "[align=(center|left|right)](.*)[/align]"
strContent = re.Replace(strContent, "<div align=$1>$2</div>")
re.Pattern = "([QUOTE])(.*)([/QUOTE])"
strContent = re.Replace(strContent, "<table cellpadding=0 cellspacing=0 border=1 WIDTH=94% bordercolor=#000000 bgcolor=#F2F8FF align=center ><tr><td ><table width=100% cellpadding=5 cellspacing=1 border=0><TR><TD BGCOLOR='#F6F6F6'>$2</table></table><br>")
re.Pattern = "([move])(.*)([/move])"
strContent = re.Replace(strContent, "<MARQUEE scrollamount=3>$2</marquee>")
re.Pattern = "[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/GLOW]"
strContent = re.Replace(strContent, "<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
re.Pattern = "[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/SHADOW]"
strContent = re.Replace(strContent, "<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")
Set re = Nothing
strContent = Replace(strContent, "[InstallDir_ChannelDir]", InstallDir & "/" & ChannelDir)
strContent = Replace(strContent, "{", "{")
strContent = Replace(strContent, "}", "}")
strContent = Replace(strContent, "$", "$")
ReadContent = strContent
End Function
End Class
%>
