<%@ Language=VBScript %> <% ' Set up your variables Dim sURL, sPath ' Get the domain name typed in the brows ' er. sURL = Request.ServerVariables("HTTP_HOST") ' Get the rest of the path after the dom ' ain name. sPath = Request.ServerVariables("PATH_INFO") ' Based on the domain name, redirect the ' user ' to the correct directory and attach th ' e rest ' of the path. Select Case sURL Case "www.tommasini.ch", "tommasini.ch" ' Ignore...this is the current site. Case "www.domain2.com", "domain2.com" ' redirect To the "domain2" directory Response.Redirect "tommasini.caprez-zueri5" & sPath Case "www.caprez-zueri5.ch", "caprez-zueri5.ch" ' redirect to the "domain2net" directory ' Response.Redirect "tommasini\index_tom.html" & sPath End Select %> <% Response.Redirect = ("http://tommasini.ch./newpage.htm) %>

ELEKTRO- u. VELO-FACHGESCHAEFT Luisenstr. 29 Tel. 044 271 66 66 8005 Zürich
ELEKTRO	VELO