<%
dim ismusic
ismusic = "false"
if Request.QueryString("show") = "Music" then ismusic = "true" end if
if Request.QueryString("show") = "cat" and Request.QueryString("id") = "6" then ismusic = "true" end if
if Request.QueryString("show") = "eventdetails" then
%>
<%
Set ids = Server.CreateObject("ADODB.RecordSet")
conn.Open str
sql="select event_id, event_cat from events where event_id = " & Request.QueryString("id")
ids.open sql,conn
if ids.fields("event_cat") = "Music" then
ismusic = "true"
end if
end if
if Request.QueryString("show") = "news_details" then
%>
<%
Set ids = Server.CreateObject("ADODB.RecordSet")
conn.Open str
sql="select news_id, news_cat from news where news_id = " & Request.QueryString("id")
ids.open sql,conn
if ids.fields("news_cat") = "Music" then
ismusic = "true"
end if
end if
%>
<% if ismusic = "true" then
%>
<%
elseif Request.QueryString("show") = "sport" OR Request.QueryString("show") = "" then
%>
<%
'
%>
<%
else
%>
<%
'
'
'
%>
<%
'
'
'
%>
<% end if %>
<%
elseif Request.QueryString("show") = "sport" OR Request.QueryString("show") = "" then
%>
<%
'
%>
<%
else
%>
<%
'
'
'
%>
<%
'
'
'
%>
<% end if %>
- >Home
- >Events Listings
-
- Arts and Books
- Comedy <% '
- Charity %>
- Charity <% '
- Dance %>
- Dance <% '
- Eating Out %> <% '
- Film %> <% '
- Film %> <%'
- Film %> <% '
- Gay and Lesbian %>
- Gay and Lesbian <% '
- Music %> <%'
- Music %> <% '
- Motoring %>
- Motoring <% '
- Nightlife %> <% '
- Sport %>
- Sport
- Theatre
- View all listings
- >Music
- >Nightlife
- >Film
- >Restaurants
- >Hair & Beauty
- >Fashion <% '
- >Dating %> <% '
- >Shopping xx %>
- >News <% '
- >Features %>
- >Competitions <% '
- >Special Offers %> <% '
- >Forum %> <% '
- >Gallery %>
Download Magazine
'
%>
<%
Select Case Request.QueryString("show")
case "default"
Server.Execute("includes/default.asp")%><%
case "contact_us"
Server.Execute("includes/contactus.asp")%><%
case "thanks"
Server.Execute("includes/thanks.asp")%><%
case "subscribe"
Server.Execute("includes/subscribe.asp")%><%
case "about_us"
Server.Execute("includes/aboutus.asp")%><%
case "competitions"
Server.Execute("includes/competitions2.asp")%><%
case "competitions-winners"
Server.Execute("includes/competitions-winners.asp")%><%
case "competition-vm"
Server.Execute("includes/comp-vm.asp")%><%
case "competition-Aveda"
Server.Execute("includes/comp-aveda.asp")%><%
case "competition-bourne-to-die"
Server.Execute("includes/comp-bourne-to-die.asp")%><%
case "competition-platform-tavern"
Server.Execute("includes/comp-platform-tavern.asp")%><%
case "competition-west-side-story"
Server.Execute("includes/comp-west-side-story.asp")%><%
case "competition-new-years-eve-orange-rooms"
Server.Execute("includes/comp-new-years-eve-orange-rooms.asp")%><%
case "competition-katherine-jenkins"
Server.Execute("includes/comp-katheri?e-jenkins.asp")%><%
case "competition-sanrizz"
Server.Execute("includes/comp-sanrizz.asp")%><%
case "competition-robin-james"
Server.Execute("includes/comp-robin-james.asp")%><%
case "competition-ice-skating"
Server.Execute("includes/comp-ice-skating.asp")%><%
case "competition-levellers"
Server.Execute("includes/comp-levellers.asp")%><%
case "competition-lily-allen"
Server.Execute("includes/comp-lily-allen.asp")%><%
case "competition-evita-theatre-break"
Server.Execute("includes/comp-evita-theatre-break.asp")%><%
case "competition-seven-brides"
Server.Execute("includes/comp-seven-brides.asp")
case "competition-the-point"
Server.Execute("includes/comp-the-point.asp")
case "competition-the-village"
Server.Execute("includes/comp-the-village.asp")
case "competition-larmer-tree"
Server.Execute("includes/comp-larmer-tree.asp")
case "competition-theatre-trip"
Server.Execute("includes/comp-theatre-trip.asp")
case "competition-joseph"
Server.Execute("includes/comp-joseph.asp")
case "competition-maximo"
Server.Execute("includes/comp-maximo.asp")
case "competition-gym"
Server.Execute("includes/comp-gym.asp")
case "competition-ooops-team"
Server.Execute("includes/comp-ooops-team.asp")
case "competition-chelsea-flower-show"
Server.Execute("includes/comp-chelsea-flower-show.asp")
case "competition-bournemouth-sevens"
Server.Execute("includes/comp-bournemouth-sevens.asp")
case "competition-capture"
Server.Execute("includes/comp-capture.asp")
case "competition-saturdays"
Server.Execute("includes/comp-saturdays.asp")
case "competition-camp-bestival"
Server.Execute("includes/comp-camp-bestival.asp")
case "competition-trimwise"
Server.Execute("includes/comp-trimwise.asp")
case "News"
Server.Execute("includes/news.asp")%><%
case "news"
Server.Execute("includes/news.asp")%><%
case "default"
Server.Execute("includes/competitionsdetails.asp")%><%
case "events"
Server.Execute("includes/events.asp")%><%
case "eventdetails"
Server.Execute("includes/eventdetails.asp")%><%
case "eating"
Server.Execute("includes/eating.asp")%><%
case "eating_main"
Server.Execute("includes/eating_main.asp")%><%
case "eatingdetails"
if request("featured") = 1 then
Server.Execute("includes/eatingdetailsgold.asp")%><%
else
Server.Execute("includes/eatingdetails.asp")%><%
end if
case "Hair"
Server.Execute("includes/hair_main.asp")%><%
case "hair_l"
Server.Execute("includes/hair.asp")%><%
case "hairdetails"
if request("featured") = 1 then
Server.Execute("includes/hairdetailsgold.asp")%><%
else
Server.Execute("includes/hairdetails.asp")%><%
end if
case "sport"
Server.Execute("includes/sport_main.asp")%><%
case "sport_l"
Server.Execute("includes/sport.asp")%><%
case "sportdetails"
if request("featured") = 1 then
Server.Execute("includes/sportdetailsgold.asp")%><%
else
Server.Execute("includes/sportdetails.asp")%><%
end if
case "Fashion"
Server.Execute("includes/fashion_main.asp")%><%
case "fashion_l"
Server.Execute("includes/fashion.asp")%><%
case "fashiondetails"
if request("featured") = 1 then
Server.Execute("includes/fashiondetailsgold.asp")%><%
else
Server.Execute("includes/fashiondetails.asp")%><%
end if
case "Film"
Server.Execute("includes/film_main.asp")%><%
case "Music"
Server.Execute("includes/music_main.asp")%><%
case "Nightlife"
Server.Execute("includes/nightlife_main.asp")%><%
case "cat"
Server.Execute("includes/cat.asp")%><%
case "edetails"
Server.Execute("includes/edetails.asp")%><%
case "download"
Server.Execute("includes/download.asp")%><%
case "news_details"
Server.Execute("includes/news_details.asp")%><%
case "search"
Server.Execute("includes/search.asp")%><%
case ""
Server.Execute("includes/default.asp")%><%
case "test"
Server.Execute("includes/competitions2.asp")
case "competition"
Server.Execute("includes/competition.asp")
end select
%>
<% '
'
'
'
'
'
%>
<%
if request("show") = "" then
Server.Execute("includes/right_banners.inc")
else
Server.Execute("includes/right_banners_main.inc")
end if
%>
<% '
%>
<% '
%>
'
'
'
'
'
%>
<%
if request("show") = "" then
Server.Execute("includes/right_banners.inc")
else
Server.Execute("includes/right_banners_main.inc")
end if
%>
<% ' %>
<% ' %>