function AddSiteURL(ByVal Str)   If IsNull(Str) Then       AddSiteURL = ""       Exit Function    End If   Dim re   Set re=new RegExp   With re     .IgnoreCase =True     .Global=True     .Pattern="<img (.*?)src=""(?!(http|https)://)(.*?)"""     str = .replace(str,"<img $1src=""" & SiteURL & "$3""")     .Pattern="<a (.*?)href=""(?!(http|https|ftp|mms|rstp)://)(.*?)"""     str = .replace(str,"<a $1href=""" & SiteURL & "$3""")   End With   Set re=Nothing   AddSiteURL=Str End Function