New Page 1
Enter your search phrase below:
Las Vegas Hotel Search:

Arrival Date:

Nights:
 		Adults:
 		Children:
 		Beds:

Casinos
 Las Vegas Strip
Downtown & Fremont
Off The Strip

Inside Tips
 Casino Inside Tips
Coupons
Hot Spots
Editor's Picks

Vegas Hotel Guide

Dining Guide
 Comprehensive Guide
 Buffets

Entertainment
Production Shows
Vegas Headliners
Comedy Clubs
Adult Entertainment

Attractions
 Guided Tours
Shopping
Recreation
Wedding Chapels

<% Randomize num = rnd %>

· Inside Tips
· Quick Facts
· Entertainment
· Overview
· Restaurants
· Hotel Information
· The Rat Pack
· Desert Inn Spa
· Golf at Desert Inn

<% Randomize num = rnd %>

· Monthly Feature
· Book a Flight
· Hotel Reservations
· Travel Information
· Guided Tours
· Discount Coupons
· Rent a Car
· Shopping
· Contact Us
· Advertise


<% Randomize num = rnd %>

 

The Desert Inn
 
Casinos > Entertainment
 

Welcome to the casino event schedule. If an event's title appears as a hyperlink and has a "More" icon next to it, you can click on that link to get to its feature story, if available, or its description.

<% Dim EventConn, EventSet, CasinoName, tmpCasinoName, RoomName, StoryPage, DetailsPage, Conn, FeatureSet, WebSite, Casino %> <% Set EventConn = Server.CreateObject("ADODB.Connection") Set EventSet = Server.CreateObject("ADODB.RecordSet") EventConn.Open "DSN=vegas" %> <% CasinoName = "Desert Inn" 'WebSite = "EventFeatureAcNights" %> <% EventSet.Open ("SELECT * FROM tblEvents WHERE EventCasName = '" & CasinoName & "' AND EventHeadliner = Yes ORDER BY EventRoomName ASC, EventStartDate ASC"), EventConn tmpCasinoName = Replace(CasinoName,"`","'") If EventSet.BOF and EventSet.EOF Then %>

There are currently no headliner listings for <%=tmpCasinoName%>. Please check back later. 

<% Else If IsNUll(EventSet("EventRoomName")) Then RoomName = "Unspecified Show Room" Else RoomName = EventSet("EventRoomName") End If %>

Appearing In <%=RoomName%>

<% Storypage = Null Do Until EventSet.EOF If EventSet("EventRoomName") <> RoomName Then 'Check to see if we've moved to a new room or not. RoomName = EventSet("EventRoomName") Response.Write("
Event Name Start Date End Date
") Response.Write("

Appearing In "& RoomName &"

") Response.Write("
") Response.Write("") End If 'End check for new room. If Not IsNull(EventSet("EventStory")) Then StoryPage = EventSet("EventStory") Else If Not IsNull(EventSet("EventDescription")) Then Storypage = "lv-details.asp?e=" & Server.URLEncode(EventSet("EventName")) & "&d=" & Server.URLEncode(EventSet("EventStartDate")) End If End IF %> <% EventSet.MoveNext StoryPage = Null Loop %>
Event NameStart DateEnd Date
<% If Not IsNull(StoryPage) Then %> <%=EventSet("EventName")%> <% Else %> <%=EventSet("EventName")%> <% End If %> <%=EventSet("EventStartDate")%> <%=EventSet("EventEndDate")%>
<% End If 'End Main Loop to check for empty set EventSet.Close 'EventConn.Close %> <% EventSet.Open ("SELECT * FROM tblEvents WHERE EventCasName = '" & CasinoName & "' AND EventHeadliner = No ORDER BY EventRoomName ASC, EventStartDate ASC"), EventConn StoryPage = Null %>

Casino Revue Shows

<% If Not (EventSet.BOF and EventSet.EOF) Then %> <% Do Until EventSet.EOF StoryPage = EventSet("EventStory") %>
<%If IsNull(StoryPage) Then%> <%=EventSet("EventName")%>
<%Else%> <%=EventSet("EventName")%>
<%End If%> <% If Not IsNull(EventSet("EventRoomName")) Then %> Playing In: <%=EventSet("EventRoomName")%>
<% End If %> <% If Not IsNull(EventSet("EventStartDate")) Then %> Running: <%=EventSet("EventStartdate")%> - <%=EventSet("EventEndDate")%>

<% End If %>

<%If Not IsNull(EventSet("EventPicture")) Then%> " align="left"> <%End If%>

<%=EventSet("EventDescription")%>

<%EventSet.MoveNext Loop %> <% Else 'Empty set, no revue shows %>

Sorry, there are no revue shows for this casino.
<% End If %>

 
 
 
 
  <% Randomize num = rnd %>

 
las vegas hotels casinos city travel guide