<% urlprefix = "" IF (InStr(request.serverVariables("HTTP_HOST"), "www.transport.wa.gov.au") > 0) THEN urlprefix = "http://www.transport.wa.gov.au" ELSE urlprefix = "" END IF %> " selected>Quick Links ">---- <% CurrQL = "Alternative transport" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Aviation home" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "A-Z fastfinder" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Cycling Home" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Freight" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Driver and Vehicle Services" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Living Smart Household" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Marine information" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Rail Safety" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Subsidies and grants" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "Taxi and charter vehicles" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%> <% CurrQL = "TravelSmart" CurrQL = replace(CurrQL, " home", "") CurrQL = replace(CurrQL, " Home", "") CurrQL = replace(CurrQL, " HOME", "") IF (len(CurrQL) > 36) THEN CurrQL = left(CurrQL, 27) & ".." END IF %> <%=CurrQL%>