Las Vegas Nightlife - Bars and Pubs

○○ Las Vegas Coupons

" ' ##### Error message that will be displayed if not items etc ErrorMessage = "Error has occured while trying to process " &URLToRSS & "
Please contact web-master" ' ================================================ Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0") xmlHttp.Open "Get", URLToRSS, false xmlHttp.Send() RSSXML = xmlHttp.ResponseText Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0") xmlDOM.async = False xmlDOM.validateOnParse = False xmlDom.resolveExternals = False If not xmlDOM.LoadXml(RSSXML) Then ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage End If Set xmlHttp = Nothing ' clear HTTP object Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS RSSItemsCount = RSSItems.Length-1 ' if not .. entries, then try to get .. if RSSItemsCount = -1 Then Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS RSSItemsCount = RSSItems.Length-1 End If Set xmlDOM = Nothing ' clear XML ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If j = -1 For i = 0 To RSSItemsCount Set RSSItem = RSSItems.Item(i) for each child in RSSItem.childNodes Select case lcase(child.nodeName) case "title" RSStitle = child.text case "link" If RSSLink = "" Then If child.Attributes.length>0 Then RSSLink = child.GetAttribute("href") if (RSSLink <> "") Then if child.GetAttribute("rel") <> "alternate" Then RSSLink = "" End If End If End If ' if has attributes If RSSLink = "" Then RSSlink = child.text End If End If case "description" RSSdescription = child.text case "content" ' atom format RSSdescription = child.text case "published"' atom format RSSDate = child.text case "pubdate" RSSDate = child.text case "comments" RSSCommentsLink = child.text case "category" Set CategoryItems = RSSItem.getElementsByTagName("category") RSSCategory = "" for each categoryitem in CategoryItems if RSSCategory <> "" Then RSSCategory = RSSCategory & ", " End If RSSCategory = RSSCategory & categoryitem.text Next End Select next ' now check filter If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then j = J+1 if J 0 then Response.Write MainTemplateFooter else Response.Write ErrorMessage End If ' Response.End ' uncomment this for use in on-the-fly output %>

<% Response.Expires = -1 ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005-2007 (c) www.Bytescout.com ' version 1.23, 14 June 2007 ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://coupons.wedoitallvegas.com/CouponsRSS10Newest.aspx" ' ##### max number of displayed items ##### MaxNumberOfItems = 10 ' ##### Main template constants MainTemplateHeader = "" MainTemplateFooter = "

" ' ##### ' ###################################### Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this 2nd keyword too ' ################################# ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ' ##### {DATE} will be replaced with item date and time ' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog) ' ##### {CATEGORY} will be replaced with item category ItemTemplate = "

○ {TITLE}

{DESCRIPTION}

Read More

○○ V Bar - Las Vegas, Nevada ○○

Your are here >> Las Vegas Nightlife >> Bars & Pubs >> V Bar

V Bar

Location:
Venetian Hotel and Casino
3355 S. Las Vegas Blvd.
Las Vegas, NV 89109
USA

Contact:
702-414-3200
laura.a@arkvegas.com

> LV Hotels > LV Events

Hours of Operation:

Sun	Mon	Tue	Wed	Thur	Fri	Sat
05:00 p.m. 03:00 a.m.	05:00 p.m. 03:00 a.m.	05:00 p.m. 03:00 a.m.	05:00 p.m. 03:00 a.m.	05:00 p.m. 04:00 a.m.	05:00 p.m. 04:00 a.m.	05:00 p.m. 04:00 a.m.

V Bar Description:

This beautiful lounge bar is a great place to discuss tales of success in the casinos or muse over your losses. In fact, this stylish bar is positively designed for conversation, with low key house music or acid jazz gently playing in the background and large 1960s-style booths to encourage small groups to combine into larger ones. To help the conversation along, V has a selection of exotic drinks, which would turn any other bar owner green with envy. V's own bartenders add to this list every week, so don't forget to check out their latest concoction.

>> Special Events:

Monday (Tuesday morning): Zen, the Afterhours, with DJs Scott Stubbs and Ariel Moses, 2 a.m.
Tuesday: "Hint," featuring music by DJ Mike White and drink specials from Siku Vodka, 9 p.m.
Wednesday: "Reinvented Wednesdays"

>> Music:

Wednesday: 9pm to 3am. Midnight Snack. Resident DJ's Douglas Gibbs & Jason Lema & guest DJs. Deep house and down-tempo. Music, art, fashion, food.
Thursday: 10pm to 2am. The Reprise. DJ Soulrane and DJ AlphaQ. Hip hop, soul, reggae.
Friday: 11pm to 3am. Resident DJ Alpyne. Hip hop, R&B, old school.
Saturday: 11pm to 3am. DJ Alpyne. Hip hop, R&B, old school.
Sunday: 10pm to 2am. Groove Society. DJ Alpyne. Neo-soul, R&B, old school.

>> Attire:

Casual

>> Admission:

Free - no cover charge
Average drink price: $10

Bookmark this Page: del.icio.us it Furl Reddit Yahoo! this! StumbleUpon Google Bookmarks Live Favorites Technorati

Back | Top