Empire Entertainment Incorporated

<%OPTION EXPLICIT%> Empire Entertainment Incorporated <% Dim strTitles, strText, strImages, strCount ' get teasers and stuff em into a javascript array GetTeasers() Response.Write "" %>

About Empire Entertainment

Empire Entertainment is a dynamic, full-service, New York City and Tokyo-based event and entertainment production company that designs and produces entertainment-driven projects for corporations, associations, not-for-profits and private individuals.

We also offer our services on a subcontracting basis to a wide variety of communications, advertising & public relations firms as well as meeting & event producers.

Established in 1993, Empire has distinguished itself as among the industry's preeminent producers of creative productions & events and as the leading source of entertainment and speakers for events.

We welcome your interest in Empire Entertainment and look forward to working with you.

Empire Produces Webby Awards for Third Consecutive Year

Recent Projects and Events
<% DisplayRecentNews() %>

Welcome to Empire Entertainment!

<% Function DisplayRecentNews Dim tableStr tableStr = "" &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ "


#loc1# " &_ " #date1# " &_ "	#loc2# " &_ " #date2# " &_ "	#loc3# " &_ " #date3# " &_ "
	" &_ "
	" &_ "	... More News/Events

" ' Let's execute the query Dim oConn, oCmd, oRs, strSQL, iRecordCount Set oConn = Session("oConn") Dim i : i = 1 strSQL = "SELECT DISTINCT TOP 3 n.news_id, news_name, news_location, news_displaydate, news_leadin, news_thumb, news_sortdate " strSQL = strSQL & "FROM news n WHERE news_empire=1" strSQL = strSQL & " AND news_archive=0 AND news_status=1" strSQL = strSQL & " ORDER BY news_sortdate desc" Set oRs = Server.CreateObject("ADODB.Recordset") oRs.CursorLocation = adUseClient oRs.Open strSql, oConn, adOpenDynamic With oRs Do While Not .EOF With .Fields tableStr = Replace(tableStr, "#img" + CStr(i) + "#", .Item("news_thumb")) tableStr = Replace(tableStr, "#loc" + CStr(i) + "#", .Item("news_name")) tableStr = Replace(tableStr, "#date" + CStr(i) + "#", .Item("news_displaydate")) tableStr = Replace(tableStr, "#link" + CStr(i) + "#", "event_detail.asp?NewsID=" & .Item("news_id")) End With .MoveNext i = i + 1 Loop .Close End With Response.Write tableStr End Function Function GetTeasers() Dim oConn, oRs, strSQL Set oConn = Session("oConn") strTitles = "" strText = "" strImages = "" strCount = 0 strSQL = "SELECT teaser_title, teaser_text, teaser_img FROM teasers ORDER BY teaser_sortby" Set oRs = Server.CreateObject("ADODB.Recordset") oRs.CursorLocation = adUseClient oRs.Open strSql, oConn, adOpenDynamic With oRs Do While Not .EOF With .Fields strTitles = strTitles & "'" & .Item("teaser_title") & "'" 'strText = strText & "'" & .Item("teaser_text") & "'" strImages = strImages & "'" & .Item("teaser_img") & "'" End With .MoveNext If Not .EOF Then strTitles = strTitles & ", " 'strText = strText & ", " strImages = strImages & ", " End If strCount = strCount + 1 Loop .Close End With End Function %>