|
|
<%
Set ODBCConnection=Server.CreateObject("ADODB.Connection")
ODBCConnection.Open "FinlaystoneAdmin"
CategoryID=2
'EventsItemsSQL="SELECT SYS_EVENTS_ITEMS.* FROM SYS_EVENTS_ITEMS RIGHT JOIN SYS_EVENTS_ITEMS_CATEGORYS ON SYS_EVENTS_ITEMS.EventsItemID = SYS_EVENTS_ITEMS_CATEGORYS.EventsItemID WHERE (((SYS_EVENTS_ITEMS_CATEGORYS.CategoryID)="&CategoryID&") AND ((SYS_EVENTS_ITEMS.StartDate)<=Now()) AND ((SYS_EVENTS_ITEMS.FinishDate)>=Now()) AND ((SYS_EVENTS_ITEMS.EventsItemID) Is Not Null)) ORDER BY StartDate, EventsItemTitle;"
EventsItemsSQL="SELECT SYS_EVENTS_ITEMS.* FROM SYS_EVENTS_ITEMS RIGHT JOIN SYS_EVENTS_ITEMS_CATEGORYS ON SYS_EVENTS_ITEMS.EventsItemID = SYS_EVENTS_ITEMS_CATEGORYS.EventsItemID WHERE (((SYS_EVENTS_ITEMS_CATEGORYS.CategoryID)="&CategoryID&") AND (((SYS_EVENTS_ITEMS.StartDate)<=Now() OR IsNull(SYS_EVENTS_ITEMS.StartDate))) AND (((SYS_EVENTS_ITEMS.FinishDate)>=Now() OR IsNull(SYS_EVENTS_ITEMS.FinishDate))) AND ((SYS_EVENTS_ITEMS.EventsItemID) Is Not Null)) ORDER BY EventDate;"
Set EventsItems=ODBCConnection.Execute(EventsItemsSQL)
If Not EventsItems.EOF Then
idincrement = 0
Response.Write "
"
While Not EventsItems.EOF
Response.Write "| "
StartDate=EventsItems("StartDate")
FinishDate=EventsItems("FinishDate")
If IsDate(StartDate) Then DateStartDate=day(StartDate)& " " & monthname(month(StartDate)) & " " & year(StartDate)
If IsDate(FinishDate) Then DateFinishDate=day(FinishDate)& " " & monthname(month(FinishDate)) & " " & year(FinishDate)
If IsDate(StartDate) Then TimeStartDate=hour(StartDate) & ":" & minute(StartDate)
If IsDate(FinishDate) Then TimeFinishDate=hour(FinishDate) & ":" & minute(FinishDate)
if 1 = 2 then
If IsDate(StartDate) Then
'Response.Write day(StartDate)& " " & monthname(month(StartDate)) & " " & year(StartDate)
If IsDate(FinishDate) or IsNull(FinishDate) Then
If DateStartDate=DateFinishDate Then
' Single Day Event
If TimeStartDate<>"0:0" Then
'Response.Write ", " & Hour(StartDate) & ":" & right("00" & Minute(StartDate),2)
If Trim(cstr("" & FinishDate))<>"" Then
Response.Write " - " & Hour(FinishDate) & ":" & right("00" & Minute(FinishDate),2)
End If
End If
Else
' Multiple Day Event
If Trim(cstr("" & FinishDate))<>"" Then
Response.Write " - " & day(FinishDate)& " " & monthname(month(FinishDate)) & " " & year(FinishDate)
End If
End If
End If
End If
end if
'Response.Write " | "
'Response.Write ""
DateEventDate = EventsItems("EventDate")
TimeEventDate = EventsItems("EventTime")
if isDate(DateEventDate) then DateEventDate = day(DateEventDate) & " " & monthname(month(DateEventDate)) & " " & year(DateEventDate)
'Response.Write EventsItems("EventDate")
response.write DateEventDate
Response.Write " | "
response.write "" & TimeEventDate & " | "
response.write " "
Response.Write "| "
Response.Write ""
response.write EventsItems("EventsItemTitle")
Response.Write " | "
Response.Write ""
response.write EventsItems("EventsItemBody")
Response.Write "
| "
'#If trim(cstr("" & EventsItems("EventsItemVenue")))<>"" Then Response.Write "
Location: " & trim(cstr("" & EventsItems("EventsItemVenue")))
'#if EventsItems("EventsItemURL")<>"" Then
'# response.write " "
'#else
'# response.write " "
'#end if
'#Response.Write "![]() "
'Response.Write "
"
idincrement = idincrement + 1
EventsItems.Movenext
Wend
Response.Write " "
Response.Write chr(13)
if idincrement>=maxitems and not EventsItems.eof then
Response.Write "More News items..."
end if
EventsItems.Close
set EventsItems = nothing
Response.Write " "
else
Response.Write "There are no forthcoming events, come back later for updates. "
End If
%>
|
|
<%
CategoryID=2
MaxItems=50
NewsItemsSQL="SELECT SYS_NEWS_ITEMS.* FROM SYS_NEWS_ITEMS RIGHT JOIN SYS_NEWS_ITEMS_CATEGORYS ON SYS_NEWS_ITEMS.NewsItemID = SYS_NEWS_ITEMS_CATEGORYS.NewsItemID WHERE (((SYS_NEWS_ITEMS_CATEGORYS.CategoryID)="&CategoryID&") AND ((SYS_NEWS_ITEMS.StartDate)<=Now() Or (SYS_NEWS_ITEMS.StartDate) Is Null) AND ((SYS_NEWS_ITEMS.FinishDate)>=Now() Or (SYS_NEWS_ITEMS.FinishDate) Is Null) AND ((SYS_NEWS_ITEMS.NewsItemID) Is Not Null)) ORDER BY StartDate, NewsItemTitle;"
Set NewsItems=ODBCConnection.Execute(NewsItemsSQL)
If Not NewsItems.EOF Then
Response.Write ""
idincrement = 0
Response.Write "
"
While idincrement| "
if isdate(newsitems("StartDate")) Then Response.Write "" & day(newsitems("StartDate"))& " " & monthname(month(newsitems("StartDate")),True) & " " & year(newsitems("StartDate"))&""
Response.Write " | "
Response.Write "| "
Response.Write ""
response.write NewsItems("NewsItemTitle")
Response.Write ""
Response.Write " | "
Response.Write ""
response.write NewsItems("NewsItemDescription")
if NewsItems("NewsItemURL")<>"" Then
response.write " {"
else
response.write " {"
end if
Response.Write "More}
"
Response.Write " | "
idincrement = idincrement + 1
NewsItems.Movenext
Wend
Response.Write " "
Response.Write chr(13)
NewsItems.Close
set newsitems = nothing
Response.Write ""
End If
ODBCConnection.Close
Set ODBCConnection=Nothing
%>
|
