<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim sURL sURL = Request.ServerVariables("URL") sURL = Right(sURL, Len(sURL) - 1) Dim sDomain sDomain = Request.ServerVariables("HTTP_HOST") If Lcase(Left(sDomain, 4)) = "www." Then sDomain = Right(sDomain, Len(sDomain) - 4) End If %> Pro Pest Link Resources Page