Pues si lo que está con asteriscos es cualquier cosa, lo que puse ya te vale:
Código:
If InStr(Request.ServerVariables("HTTP_REFERER"), "xxxxxx.com") > 0 Then
La función InStr lo que hace es comparar 2 cadenas. Si la cadena nº 1 (xxxxxx.com) existe dentro de la cadena nº 2 (Request.ServerVariables("HTTP_REFERER"), es decir, lo que hay escrito en la barra de direcciones), entonces te devuelve la posición en la que se encuentra esa primera cadena, dentro de la segunda. Si te devuelve alguna posición, entonces será siempre mayor que cero (>0).
Ej: Instr("forosdelweb", "del") devolvería como resultado 6, ya que es en esa posición donde la palabra "del" se encuentra dentro de "forosdelweb".
Si da igual lo que escriban después de la barra
www.xxxxx.com/zzzzzz , entonces te vale ese ejemplo, ya que lo que determina, es que el dominio esté escrito en la barra de direcciones, con independencia de la carpeta o página a la que esté accediendo el usuario.