Search - Go
Vimeo
Twitter
Facebook
Trade  |  Media
Scotland - Welcome to our life.
VisitScotland
In The Know
In Your Hands
<% selectSQL = "select top 1 * from homeleftnav2010" if scriptname = "/index.asp" then if canadian = 1 then selectSQL = selectSQL & " where hl_CA = 1" elseif australia = 1 or newzealand = 1 then selectSQL = selectSQL & " where hl_AU = 1" else selectSQL = selectSQL & " where hl_US = 1" end if if testmode = 0 then selectSQL = selectSQL & " and hl_enabled = 1" end if selectSQL = selectSQL & " order by newID()" else selectSQL = selectSQL & " where hl_id in (select ps_homeleftnav2010 from partnerskin where ps_subfolder = '" & scriptnameParts(1) & "')" end if rs.Open selectSQL if not rs.EOF then %> <% end if rs.Close %>
<% selectSQL = "select * from newsticker where nt_start <= '" & thisDate & "'" selectSQL = selectSQL & " and nt_end >= '" & thisDate & "'" if canadian = 1 then selectSQL = selectSQL & " and nt_CA = 1" elseif australia = 1 or newzealand = 1 then selectSQL = selectSQL & " and nt_AU = 1" else selectSQL = selectSQL & " and nt_US = 1" end if if testmode = 0 then selectSQL = selectSQL & " and nt_enabled = 1" end if selectSQL = selectSQL & " order by newID()" ntNum = 0 rs.Open selectSQL do while not rs.EOF %>
<%= rs("nt_title") %> ... " target="_blank">Read more
<% ntNum = ntNum + 1 rs.movenext loop rs.Close %>
<% selectSQL = "select top 1 * from homebanner2010" if scriptname = "/index.asp" then if canadian = 1 then selectSQL = selectSQL & " where hb_CA = 1" elseif australia = 1 or newzealand = 1 then selectSQL = selectSQL & " where hb_AU = 1" else selectSQL = selectSQL & " where hb_US = 1" end if if testmode = 0 then selectSQL = selectSQL & " and hb_enabled = 1" end if selectSQL = selectSQL & " order by newID()" else selectSQL = selectSQL & " where hb_id in (select ps_homebanner2010 from partnerskin where ps_subfolder = '" & scriptnameParts(1) & "')" end if rs.Open selectSQL if not rs.EOF then %>
; background-image: url(/images/homebanner2010/<%= rs("hb_id") %>_<%= rs("hb_image") %>);">
','_blank')" title="<%= rs("hb_title") %>">
<% if rs("hb_title1") <> "" then %> <% if rs("hb_title2") <> "" then %> <% end if if rs("hb_title3") <> "" then %> <% else %>
','_blank')" title="<%= rs("hb_title") %>">  
<% end if %>
<% end if rs.Close %>
Travel Deals - Find special travel offers


Go
Multimedia Gallery
I Am A Scot
What's On - Search Events & Festivals


Go
On The Map
Accommodation
<% selectSQL = "select * from focuson2010" if canadian = 1 then selectSQL = selectSQL & " where fo_CA = 1" elseif australia = 1 or newzealand = 1 then selectSQL = selectSQL & " where fo_AU = 1" else selectSQL = selectSQL & " where fo_US = 1" end if if testmode = 0 then selectSQL = selectSQL & " and fo_enabled = 1" end if selectSQL = selectSQL & " order by fo_sortnum, NewID()" ntNum = 0 rs.Open selectSQL do while not rs.EOF if rs("fo_linktype") = 0 then if Left(rs("fo_website"),1) = "/" then viewLink = rs("fo_website") else viewLink = rs("fo_website") & """ target=""_blank" end if else viewLink = "/focus-on/?item=" & rs("fo_id") end if %>
<%= rs("fo_title") %>
_<%= rs("fo_image") %>" width="324" height="166" align="left" alt="<%= rs("fo_title") %>" title="<%= rs("fo_title") %>"> <%= rs("fo_summary") %>

View
<% rs.movenext loop rs.Close %>
<% selectSQL = "select * from savethedate2010" if canadian = 1 then selectSQL = selectSQL & " where sd_CA = 1" elseif australia = 1 or newzealand = 1 then selectSQL = selectSQL & " where sd_AU = 1" else selectSQL = selectSQL & " where sd_US = 1" end if if testmode = 0 then selectSQL = selectSQL & " and sd_enabled = 1" end if selectSQL = selectSQL & " order by sd_sortnum, NewID()" ntNum = 0 rs.Open selectSQL do while not rs.EOF if rs("sd_linktype") = 0 then if Left(rs("sd_website"),1) = "/" then viewLink = rs("sd_website") else viewLink = rs("sd_website") & """ target=""_blank" end if else viewLink = "/save-the-date/?item=" & rs("sd_id") end if %>
<%= rs("sd_title") %>
_<%= rs("sd_image") %>" width="225" height="106" alt="<%= rs("sd_title") %>" title="<%= rs("sd_title") %>">
<%= rs("sd_summary") %>
Read More...
<% rs.movenext loop rs.Close %>
<% if scriptname = "/plan-your-trip/free-scotland-brochure/index.asp" then ' rightColumn = "

Homecoming Scotland
Event Guide
" else end if if rightColumn <> "" then %>
<%= rightColumn %>
<% else %>
<% end if %>

Site Map


HOME

About Scotland

Where To Go
     ·Overview
     ·What To Do
     ·Where To Stay
     ·Multimedia Gallery
     ·Overview
     ·What To Do
     ·Where To Stay
     ·Multimedia Gallery
     ·Overview
     ·What To Do
     ·Where To Stay
     ·Multimedia Gallery
     ·Overview
     ·What To Do
     ·Where To Stay
     ·Multimedia Gallery
     ·Overview
     ·What To Do
     ·Where To Stay
     ·Multimedia Gallery
     ·Overview
     ·What To Do
     ·Where To Stay
     ·Multimedia Gallery
     ·Overview
     ·What To Do
     ·Where To Stay
     ·Multimedia Gallery
     ·Overview
     ·What To Do
     ·Where To Stay
     ·Multimedia Gallery

What To Do
     ·Overview
     ·Multimedia Gallery
     ·View Itinerary ideas
     ·Course Articles
     ·About Edinburgh
     ·About Glasgow
     ·Edinburgh
     ·Glasgow

Multimedia Gallery

Plan Your Trip

Travel Deals

Top Tips

Interests & Activities
  Golf
  Hiking
<% if scriptname = "/hamper-survey/index.asp" then %> i am a scot <% elseif scriptname = "/highland-homecoming-us/index.asp" then %> highland homecoming package <% elseif scriptname = "/highland-homecoming-ca/index.asp" then %> highland homecoming package <% else selectSQL = "select top 1 * from rightbannerrotate" if canadian = 1 then selectSQL = selectSQL & " where rb_slot = 2" elseif australia = 1 then selectSQL = selectSQL & " where rb_slot = 3" elseif newzealand = 1 then selectSQL = selectSQL & " where rb_slot = 4" else selectSQL = selectSQL & " where rb_slot = 1" end if selectSQL = selectSQL & " order by NewID()" rs.Open selectSQL if not rs.EOF then %> ,<%= scriptname %>"><%= rs(" border="0" src="/images/rightbanner/<%= rs("rb_image") %>" /> <% end if rs.Close end if %>