<%@ Page language="vb" AutoEventWireup="false" Explicit="True" %> <% 'If (Request.QueryString("language") <> "") Then ' If (UrlExists(Request.QueryString("language"))) Then ' redirecturl(Request.QueryString("language")) ' Else ' If (InStr(1, Request.QueryString("language"), "japanese", vbTextCompare) > 0) then ' redirected("/japanese/") ' Else ' redirected("/") ' End If ' End If 'End If Dim aliases aliases = Request.QueryString("alias") If (aliases <> "") then redirected("/japanese/") End If Dim tabvar tabvar = Request.QueryString("tabid") Select Case tabvar Case "1" redirected("/") Case "56" redirected("/great-barrier-reef-info.html") Case "52" redirected("/great-barrier-reef-info.html") Case "25" redirected("/tours/green-island.html") Case "33" redirected("/tours/great-barrier-reef.html") Case "26" redirected("/tours/green-island-eco.html") Case "107" redirected("/tours/green-island-great-deals.html") Case "34" redirected("/tours/green-island-day.html") Case "35" redirected("/tours/green-island-great-deals.html") Case "36" redirected("/tours/green-island-great-barrier-reef.html") Case "45" redirected("/booking.html") Case "46" redirected("/enquiry.html") Case "28" redirected("/activities.html") Case "44" redirected("/activities.html") 'japanese redirects Case "72" redirected("/japanese/") Case "85" redirected("/japanese/tours/green-island.html") Case "86" redirected("/japanese/tours/great-barrier-reef.html") Case "87" redirected("/japanese/tours/green-island-eco.html") Case "109" redirected("/japanese/tours/green-island-great-deals.html") Case "88" redirected("/japanese/tours/green-island-day.html") Case "89" redirected("/japanese/tours/great-barrier-reef-adventure.html") Case "90" redirected("/japanese/tours/green-island-great-barrier-reef.html") Case "91" redirected("/japanese/charters-events.html") Case "100" redirected("/japanese/activities.html") Case "101" redirected("/japanese/activities.html") Case "102" redirected("/japanese/what-to-bring.html") Case "111" redirected("/japanese/process.html") Case "110" redirected("/japanese/faq.html") End Select If (Request.QueryString("tabid") = "") then redirected("/") End If %>