<%
'---------------------------------------------------------------
' Description: Lists all Press Releases
' Parameters: none
'
' Date Description of change
' 10/30/02 Paul - Created
'---------------------------------------------------------------
set rsPressReleases = server.createobject("ADODB.recordset")
sSQL = "SELECT nPrID, dDate, sTitle FROM tbPressReleases ORDER BY dDate DESC"
rsPressReleases.open sSQL,Application("Database"),0,1
while not rsPressReleases.eof
nPrID = rsPressReleases("nPrID")
dDate = rsPressReleases("dDate")
if IsDate(dDate) then
sDate = FormatDateTime(dDate,2)
else
sDate = dDate
end if
sTitle = fnFormatOutput(rsPressReleases("sTitle"))
%>
<%
rsPressReleases.movenext
Wend
rsPressReleases.close
set rsPressReleases = nothing
%>
Dates
Event
Location
Booth
Link
<%
'---------------------------------------------------------------
' Description: Lists all Events for showing
' Parameters: none
'
' Date Description of change
' 10/30/02 Paul - Created
' 01/23/03 Sylvan - Changed to sort by Sort value instead of start date
'---------------------------------------------------------------
set rsEvents = server.createobject("ADODB.recordset")
sSQL = "SELECT tbEvents.nEventID, tbEvents.dStart, tbEvents.dEnd, tbEvents.sTitle, tbEvents.sLocation, tbEvents.sBooth, tbEvents.sDescription, tbEvents.sStatus, tbEvents.sWebsite FROM tbEvents WHERE sStatus = 'Show' ORDER BY tbEvents.nSort;"
rsEvents.open sSQL,Application("Database"),0,1
sClass = "tableLight"
If rsEvents.EOF Then%>
There are no events currently listed.
<%
else
while not rsEvents.eof
if IsDate(rsEvents("dStart")) then
sStart = FormatDateTime(rsEvents("dStart"),2)
else
sStart = "Invalid Date"
end if
if IsDate(rsEvents("dEnd")) then
sEnd = FormatDateTime(rsEvents("dEnd"),2)
else
sEnd = "Invalid Date"
end if
sTitle = fnFormatOutput(rsEvents("sTitle"))
sDescription = fnFormatOutput(rsEvents("sDescription"))
sLocation = fnFormatOutput(rsEvents("sLocation"))
sBooth = fnFormatOutput(rsEvents("sBooth"))
sWebsite = fnFormatOutput(rsEvents("sWebsite"))
if sClass = "tableLight" then
sClass = "tableDark"
else
sClass = "tableLight"
end if
%>
<%=sStart%> - <%=sEnd%>
<%=sTitle%>
<%=sDescription%>
<%=sLocation%>
<%=sBooth%>
<% if sWebSite <> " " then%>
<% end if%>
<%
rsEvents.MoveNext
Wend
end if
rsEvents.close
set rsEvents = nothing
%>
