If Wp.Domain '.net' STR_RIGHT 
   ' Wp - RegExp >Wp< Page_location then
 ...
Else
 ...
;  