|
|
Las
Vegas Convention Schedule
<%
Dim Conn, conSet, Name, StartDate, EndDate, Location, Description
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set conSet = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DSN=Vegas"
conSet.Open ("SELECT EventName, EventCasName, EventRoomName, EventStartDate, EventEndDate, EventDescription, EventStory FROM tblEvents WHERE EventCasName = 'Convention' ORDER BY EventStartDate, EventRoomName"), Conn
%>
<% If Not (conSet.BOF And conSet.EOF) Then 'There's something to list here %>
<%
Do Until conSet.EOF
If Not IsNull(conSet("EventStory")) Then 'Check if there's a story for this convention, like an official page or something
Name = ""
Name = Name & conSet("EventName") & ""
Else
Name = conSet("EventName")
End If
StartDate = conSet("EventStartDate")
EndDate = conSet("EventEndDate")
Location = conSet("EventRoomName")
Description = conSet("EventDescription")
%>
<%=Name%>
<%=StartDate%> - <%=EndDate%>
<%=Location%>
<% If Description <> "" Then %>
<%=Description%>
<% Else %>
<% End If %>
<%
conSet.MoveNext
Loop
%>
<% Else 'Nothing to list%>
Sorry, there are no conventions listed. Please check back later.
<% End If %>
<% 'Clean up our sets
Set conn = nothing
Set conSet = nothing
%>
|
|
