ASP read pictures or flash width

ASP read picture or flash height wide,

Function Getflashandpic (url,height,width)
Dim sextname,extname,strtemp
sextname = Split (URL, ".")
Extname = Sextname (UBound (sextname))
If LCase (extname) = "swf" Then
strtemp = "<embed src=" "" & URL & "" Width= "& Width &" height= "& Height &" > "
Else
strtemp = " "
End If
Getflashandpic = strtemp
End Function
Function Html2ubb (str)//converts HTML code to UBB code
If str<> "" And not IsNull (STR) Then
Dim Re,tmpstr
Set re=new REGEXP
Re. IgnoreCase =true
Re. Global=true
Re. Pattern = "(<STRONG>)": Str = Re. Replace (STR, "<b>")
Re. Pattern = "(<\/STRONG>)": Str = Re. Replace (STR, "</b>")
Re. Pattern = "(<TBODY>)": Str = Re. Replace (Str, "")
Re. Pattern = "(<\/TBODY>)": Str = Re. Replace (Str, "")
Re. Pattern = "(<table)": Str = Re. Replace (STR, "<table")
Re. Pattern = "(table>)": Str = Re. Replace (STR, "table>")
Re. Pattern = "(&LT;TR)": Str = Re. Replace (STR, "<tr")
Re. Pattern = "(tr>)": Str = Re. Replace (STR, "tr>")
Re. Pattern = "(&LT;TD)": Str = Re. Replace (STR, "&LT;TD")
Re. Pattern = "(td>)": Str = Re. Replace (STR, "td>")
Re. Pattern = "(<div)": Str = Re. Replace (STR, "<div")
Re. Pattern = "(div>)": Str = Re. Replace (STR, "div>")
Re. Pattern = "(Re. Pattern = "(<br)": Str = Re. Replace (STR, "<br")
Re. Pattern = "(<a)": Str = Re. Replace (STR, "<a")
Re. Pattern = "(<\/A>)": Str = Re. Replace (STR, "</a>")
Re. Pattern = "(<font)": Str = Re. Replace (STR, "<font")
Re. Pattern = "(<\/FONT>)": Str = Re. Replace (STR, "</font>")
Re. Pattern = "(<s+cript (. +?) <\/s+cript>) ": Str = Re. Replace (Str, "")
Re. Pattern = "(\{)": Str = Re. Replace (Str, "& #123;")
Re. Pattern = "(})": Str = Re. Replace (Str, "& #125;")
Re. Pattern = "(\$)": Str = Re. Replace (Str, "& #36;")
' Re. Pattern = "(<div>|<div (. +?) >) ": str = re.replace (str," <div> ")
' Re. Pattern = "(<span>|<span (. +?) >) ": str = re.replace (str," <span> ")
Set re=nothing
Html2ubb = Str
Else
Html2ubb = ""
End If
End Function