<% Dim WebSitePath, WebSitePath = Request.ServerVariables("SERVER_NAME") WebSitePath = lCase(WebSitePath) if InStr(1, WebSitePath, "csiccportal.com", 1)> 0 then %><% else %><% end if%>