<%@ Language=VBScript %>
<%
' Set up your variables
Dim sURL, sPath
' Get the domain name typed in the browser.
sURL = Request.ServerVariables("HTTP_HOST")
' Get the rest of the path after the domain name.
sPath = Request.ServerVariables("PATH_INFO")
' Based on the domain name, redirect the user to the correct directory and attach the restof the path.
response.write sURL
Select Case sURL
Case "www.potatisfestivalen.se"
Response.Redirect "http://www.potatisfestivalen.se/turism/sidor/potatisfestivalen/sidor/Startsida.htm"
End Select
%>
