Function DRexPage(Str) 
Dim RegEx 
If IsNull(Str) Or Str="" Then Exit Function 
Set RegEx=New RegExp 
RegEx.IgnoreCase=True 
RegEx.pattern="(/&)?page=(/d)+" 
DRexPage=regEx.replace(Str,"") '(Str,"$1") 
Set RegEx=Nothing 
End Function