<%
' UltraApps Portal - FREE edition, Version 1.5
' (C) Copyright 2001 by UltraApps
' This program may be used and modified for your own use
' so long as this copyright notice and this comment remain intact.
' You are not permitted to sell or distribute modified version of this software
' View files/license.html for full Legal Information
'
'    Filename: Events.asp
'    Generated with CodeCharge 2.0.1


'-------------------------------
Dim sAction, sForm
'===============================
' Events CustomIncludes begin
%>

<!-- #INCLUDE FILE="Common.asp" -->
<!-- #INCLUDE FILE="Header.asp" -->
<!-- #INCLUDE FILE="Footer.asp" -->

<%
' Events CustomIncludes end
'-------------------------------

'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "Events.asp"
sTemplateFileName = "Events.html"
'===============================


'===============================
' Events PageSecurity begin
' Events PageSecurity end
'===============================

'===============================
' Events Open Event begin
' Events Open Event end
'===============================

'===============================
' Events OpenAnyPage Event begin
' Events OpenAnyPage Event end
'===============================

'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================

' Events Show begin

'===============================
' Display page
'-------------------------------
' Load HTML template for this page
'-------------------------------
LoadTemplate sAppPath & sTemplateFileName, "main"
'-------------------------------
' Load HTML template of Header and Footer
'-------------------------------
LoadTemplate sHeaderFileName, "Header"
LoadTemplate sFooterFileName, "Footer"
'-------------------------------
SetVar "FileName", sFileName


'-------------------------------
' Step through each form
'-------------------------------
Header_Show
Footer_Show
Search_Show
UpcomingEvents_Show
PastEvents_Show
'-------------------------------
' Process page templates
'-------------------------------
Parse "Header", False
Parse "Footer", False
Parse "main", False
'-------------------------------
' Output the page to the browser
'-------------------------------
Response.write PrintVar("main")

' Events Show end

'-------------------------------
' Destroy all object variables
'-------------------------------

' Events Close Event begin
' Events Close Event end

cn.Close
Set cn = Nothing
UnloadTemplate
'===============================

'===============================
' Display Search Form
'-------------------------------
Sub Search_Show()
  Dim sFormTitle: sFormTitle = "Search Events"
  Dim sActionFileName: sActionFileName = "Events.asp"
'-------------------------------
' Search Open Event begin
' Search Open Event end
'-------------------------------
  SetVar "FormTitle", sFormTitle
  SetVar "ActionPage", sActionFileName

'-------------------------------
' Set variables with search parameters
'-------------------------------
  flds_event_desc = GetParam("s_event_desc")

'-------------------------------
' Search Show begin
'-------------------------------


'-------------------------------
' Search Show Event begin
' Search Show Event end
'-------------------------------
      SetVar "s_event_desc", ToHTML(flds_event_desc)

'-------------------------------
' Search Show end
'-------------------------------

'-------------------------------
' Search Close Event begin
' Search Close Event end
'-------------------------------
  Parse "FormSearch", False
End Sub
'===============================


'===============================
' Display Grid Form
'-------------------------------
Sub UpcomingEvents_Show()
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim rs
  Dim sWhere : sWhere = ""
  Dim sOrder : sOrder = ""
  Dim sSQL : sSQL = ""
  Dim sFormTitle: sFormTitle = "Upcoming Events"
  Dim HasParam : HasParam = false
  Dim iSort : iSort = ""
  Dim iSorted : iSorted = ""
  Dim sDirection : sDirection = ""
  Dim sSortParams : sSortParams = ""
  Dim iRecordsPerPage : iRecordsPerPage = 20
  Dim iCounter : iCounter = 0
  Dim iPage : iPage = 0
  Dim bEof : bEof = False
  Dim sActionFileName : sActionFileName = "EventAdd.asp"

  SetVar "TransitParams", ""
  SetVar "FormParams", "s_event_desc=" & ToURL(GetParam("s_event_desc")) & "&"

'-------------------------------
' Build WHERE statement
'-------------------------------
  ps_event_desc = GetParam("s_event_desc")
  if not isEmpty(ps_event_desc) then
    HasParam = true
    sWhere = "e.[event_desc] like '%" & replace(ps_event_desc, "'", "''") & "%'" & " or " & "e.[event_name] like '%" & replace(ps_event_desc, "'", "''") & "%'"
  end if


  if HasParam then
    sWhere = " WHERE (event_date_start > now() and event_is_approved=1) AND (" & sWhere & ")"
  else
    sWhere = " WHERE event_date_start > now() and event_is_approved=1"
  end if
  
'-------------------------------
' Build ORDER BY statement
'-------------------------------
  sOrder = " order by e.event_date_start Desc"
  iSort = GetParam("FormUpcomingEvents_Sorting")
  iSorted = GetParam("FormUpcomingEvents_Sorted")
  sDirection = ""
  if IsEmpty(iSort) then
    SetVar "Form_Sorting", ""
  else
    if iSort = iSorted then 
      SetVar "Form_Sorting", ""
      sDirection = " DESC"
      sSortParams = "FormUpcomingEvents_Sorting=" & iSort & "&FormUpcomingEvents_Sorted=" & iSort & "&"
    else
      SetVar "Form_Sorting", iSort
      sDirection = " ASC"
      sSortParams = "FormUpcomingEvents_Sorting=" & iSort & "&FormUpcomingEvents_Sorted=" & "&"
    end if
    if iSort = 1 then sOrder = " order by e.[event_date_start]" & sDirection
    if iSort = 2 then sOrder = " order by e.[event_name]" & sDirection
    if iSort = 3 then sOrder = " order by e.[event_location]" & sDirection
  end if

'-------------------------------
' Build base SQL statement
'-------------------------------
  sSQL = "select [e].[event_date_start] as e_event_date_start, " & _
    "[e].[event_desc] as e_event_desc, " & _
    "[e].[event_fee] as e_event_fee, " & _
    "[e].[event_id] as e_event_id, " & _
    "[e].[event_location] as e_event_location, " & _
    "[e].[event_name] as e_event_name " & _
    " from [events] e "
'-------------------------------

'-------------------------------
' UpcomingEvents Open Event begin
' UpcomingEvents Open Event end
'-------------------------------

'-------------------------------
' Assemble full SQL statement
'-------------------------------
  sSQL = sSQL & sWhere & sOrder
'-------------------------------

SetVar "FormTitle", sFormTitle

'-------------------------------
' Process the link to the record page
'-------------------------------
  SetVar "FormAction", sActionFileName
'-------------------------------

'-------------------------------
' Process the parameters for sorting
'-------------------------------
  SetVar "SortParams", sSortParams
'-------------------------------

'-------------------------------
' Open the recordset
'-------------------------------
  openrs rs, sSQL
'-------------------------------

'-------------------------------
' Process empty recordset
'-------------------------------
  if rs.eof then
    set rs = nothing
    SetVar "DListUpcomingEvents", ""
    Parse "UpcomingEventsNoRecords", False
    SetVar "UpcomingEventsNavigator", ""
    Parse "FormUpcomingEvents", False
    exit sub
  end if
'-------------------------------

'-------------------------------
' Initialize page counter and records per page
'-------------------------------
  iRecordsPerPage = 20
  iCounter = 0
'-------------------------------

'-------------------------------
' Process page scroller
'-------------------------------
  iPage = GetParam("FormUpcomingEvents_Page")
  if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage)
  while not rs.eof and iCounter < (iPage-1)*iRecordsPerPage
    rs.movenext
    iCounter = iCounter + 1
  wend
  iCounter = 0
'-------------------------------

'-------------------------------
' Display grid based on recordset
'-------------------------------
  while not rs.EOF  and iCounter < iRecordsPerPage
'-------------------------------
' Create field variables based on database fields
'-------------------------------
    fldevent_date_start = GetValue(rs, "e_event_date_start")
    fldevent_fee = GetValue(rs, "e_event_fee")
    fldevent_id = GetValue(rs, "e_event_id")
    fldevent_location = GetValue(rs, "e_event_location")
    fldevent_name = GetValue(rs, "e_event_name")
'-------------------------------
' UpcomingEvents Show begin
'-------------------------------

'-------------------------------
' UpcomingEvents Show Event begin
fldevent_date_start = "<b>" & fldevent_date_start & "</b>"
fldevent_location = replace(fldevent_location,vbCRLF,"<br>")
fldevent_name = "<b>" & fldevent_name & "</b>"
if fldevent_fee <> "" then fldevent_name = fldevent_name & "<br>" & fldevent_fee
fldevent_name = fldevent_name & "<br><a href=""EventView.asp?event_id=" & fldevent_id & """>More...</a>"
' UpcomingEvents Show Event end
'-------------------------------

'-------------------------------
' Replace Template fields with database values
'-------------------------------
    
      SetVar "event_date_start", fldevent_date_start
      SetVar "event_name", fldevent_name
      SetVar "event_location", fldevent_location
      SetVar "event_fee", ToHTML(fldevent_fee)
      SetVar "event_id", ToHTML(fldevent_id)
'-------------------------------
' Process the record separator
'-------------------------------
    if rs.EOF or iCounter = iRecordsPerPage-1 then
       SetVar "UpcomingEventsRecordSeparator", ""
    else
      Parse "UpcomingEventsRecordSeparator", false
    end if
'-------------------------------
    Parse "DListUpcomingEvents", True

'-------------------------------
' UpcomingEvents Show end
'-------------------------------

'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
    rs.MoveNext
    iCounter = iCounter + 1
  wend
'-------------------------------


'-------------------------------
' UpcomingEvents Navigation begin
'-------------------------------
  bEof = rs.eof
  if rs.eof and iPage = 1 then
	SetVar "UpcomingEventsNavigator", ""
  else
    if bEof then
      SetVar "UpcomingEventsNavigatorLastPage", "_"
    else
      SetVar "NextPage", (iPage + 1)
    end if
    if iPage = 1 then
      SetVar "UpcomingEventsNavigatorFirstPage", "_"
    else
      SetVar "PrevPage", (iPage - 1)
    end if
    SetVar "UpcomingEventsCurrentPage", iPage
    Parse "UpcomingEventsNavigator", False
  end if
'-------------------------------
' UpcomingEvents Navigation end
'-------------------------------

'-------------------------------
' Finish form processing
'-------------------------------
  set rs = nothing
  SetVar "UpcomingEventsNoRecords", ""
  Parse "FormUpcomingEvents", False

'-------------------------------
' UpcomingEvents Close Event begin
' UpcomingEvents Close Event end
'-------------------------------
End Sub
'===============================
      

'===============================
' Display Grid Form
'-------------------------------
Sub PastEvents_Show()
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim rs
  Dim sWhere : sWhere = ""
  Dim sOrder : sOrder = ""
  Dim sSQL : sSQL = ""
  Dim sFormTitle: sFormTitle = "Past Events"
  Dim HasParam : HasParam = false
  Dim iSort : iSort = ""
  Dim iSorted : iSorted = ""
  Dim sDirection : sDirection = ""
  Dim sSortParams : sSortParams = ""
  Dim iRecordsPerPage : iRecordsPerPage = 20
  Dim iCounter : iCounter = 0
  Dim iPage : iPage = 0
  Dim bEof : bEof = False
  Dim sActionFileName : sActionFileName = "EventAdd.asp"

  SetVar "TransitParams", ""
  SetVar "FormParams", "s_event_desc=" & ToURL(GetParam("s_event_desc")) & "&"

'-------------------------------
' Build WHERE statement
'-------------------------------
  ps_event_desc = GetParam("s_event_desc")
  if not isEmpty(ps_event_desc) then
    HasParam = true
    sWhere = "e.[event_desc] like '%" & replace(ps_event_desc, "'", "''") & "%'" & " or " & "e.[event_name] like '%" & replace(ps_event_desc, "'", "''") & "%'"
  end if


  if HasParam then
    sWhere = " WHERE (event_date_start <= now() and event_is_approved=1) AND (" & sWhere & ")"
  else
    sWhere = " WHERE event_date_start <= now() and event_is_approved=1"
  end if
  
'-------------------------------
' Build ORDER BY statement
'-------------------------------
  sOrder = " order by e.event_date_start Desc"
  iSort = GetParam("FormPastEvents_Sorting")
  iSorted = GetParam("FormPastEvents_Sorted")
  sDirection = ""
  if IsEmpty(iSort) then
    SetVar "Form_Sorting", ""
  else
    if iSort = iSorted then 
      SetVar "Form_Sorting", ""
      sDirection = " DESC"
      sSortParams = "FormPastEvents_Sorting=" & iSort & "&FormPastEvents_Sorted=" & iSort & "&"
    else
      SetVar "Form_Sorting", iSort
      sDirection = " ASC"
      sSortParams = "FormPastEvents_Sorting=" & iSort & "&FormPastEvents_Sorted=" & "&"
    end if
    if iSort = 1 then sOrder = " order by e.[event_date_start]" & sDirection
    if iSort = 2 then sOrder = " order by e.[event_name]" & sDirection
    if iSort = 3 then sOrder = " order by e.[event_location]" & sDirection
    if iSort = 4 then sOrder = " order by e.[event_location_url]" & sDirection
  end if

'-------------------------------
' Build base SQL statement
'-------------------------------
  sSQL = "select [e].[event_date_start] as e_event_date_start, " & _
    "[e].[event_desc] as e_event_desc, " & _
    "[e].[event_fee] as e_event_fee, " & _
    "[e].[event_id] as e_event_id, " & _
    "[e].[event_location] as e_event_location, " & _
    "[e].[event_location_url] as e_event_location_url, " & _
    "[e].[event_name] as e_event_name " & _
    " from [events] e "
'-------------------------------

'-------------------------------
' PastEvents Open Event begin
' PastEvents Open Event end
'-------------------------------

'-------------------------------
' Assemble full SQL statement
'-------------------------------
  sSQL = sSQL & sWhere & sOrder
'-------------------------------

SetVar "FormTitle", sFormTitle

'-------------------------------
' Process the link to the record page
'-------------------------------
  SetVar "FormAction", sActionFileName
'-------------------------------

'-------------------------------
' Process the parameters for sorting
'-------------------------------
  SetVar "SortParams", sSortParams
'-------------------------------

'-------------------------------
' Open the recordset
'-------------------------------
  openrs rs, sSQL
'-------------------------------

'-------------------------------
' Process empty recordset
'-------------------------------
  if rs.eof then
    set rs = nothing
    SetVar "DListPastEvents", ""
    Parse "PastEventsNoRecords", False
    SetVar "PastEventsNavigator", ""
    Parse "FormPastEvents", False
    exit sub
  end if
'-------------------------------

'-------------------------------
' Initialize page counter and records per page
'-------------------------------
  iRecordsPerPage = 20
  iCounter = 0
'-------------------------------

'-------------------------------
' Process page scroller
'-------------------------------
  iPage = GetParam("FormPastEvents_Page")
  if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage)
  while not rs.eof and iCounter < (iPage-1)*iRecordsPerPage
    rs.movenext
    iCounter = iCounter + 1
  wend
  iCounter = 0
'-------------------------------

'-------------------------------
' Display grid based on recordset
'-------------------------------
  while not rs.EOF  and iCounter < iRecordsPerPage
'-------------------------------
' Create field variables based on database fields
'-------------------------------
    fldevent_date_start = GetValue(rs, "e_event_date_start")
    fldevent_desc = GetValue(rs, "e_event_desc")
    fldevent_fee = GetValue(rs, "e_event_fee")
    fldevent_id = GetValue(rs, "e_event_id")
    fldevent_location = GetValue(rs, "e_event_location")
    fldevent_location_url_URLLink = GetValue(rs, "e_event_location_url")
    fldevent_location_url = GetValue(rs, "e_event_location_url")
    fldevent_name = GetValue(rs, "e_event_name")
'-------------------------------
' PastEvents Show begin
'-------------------------------

'-------------------------------
' PastEvents Show Event begin
fldevent_date_start = "<b>" & fldevent_date_start & "</b>"
fldevent_location = replace(fldevent_location,vbCRLF,"<br>")
fldevent_name = "<b>" & fldevent_name & "</b>"
if fldevent_fee <> "" then fldevent_name = fldevent_name & "<br>" & fldevent_fee
fldevent_name = fldevent_name & "<br><a href=""EventView.asp?event_id=" & fldevent_id & """>More...</a>"
' PastEvents Show Event end
'-------------------------------

'-------------------------------
' Replace Template fields with database values
'-------------------------------
    
      SetVar "event_date_start", fldevent_date_start
      SetVar "event_name", fldevent_name
      SetVar "event_location", fldevent_location
      SetVar "event_location_url", fldevent_location_url
      SetVar "event_location_url_URLLink", fldevent_location_url_URLLink
      SetVar "event_desc", ToHTML(fldevent_desc)
      SetVar "event_id", ToHTML(fldevent_id)
      SetVar "event_fee", ToHTML(fldevent_fee)
'-------------------------------
' Process the record separator
'-------------------------------
    if rs.EOF or iCounter = iRecordsPerPage-1 then
       SetVar "PastEventsRecordSeparator", ""
    else
      Parse "PastEventsRecordSeparator", false
    end if
'-------------------------------
    Parse "DListPastEvents", True

'-------------------------------
' PastEvents Show end
'-------------------------------

'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
    rs.MoveNext
    iCounter = iCounter + 1
  wend
'-------------------------------


'-------------------------------
' PastEvents Navigation begin
'-------------------------------
  bEof = rs.eof
  if rs.eof and iPage = 1 then
	SetVar "PastEventsNavigator", ""
  else
    if bEof then
      SetVar "PastEventsNavigatorLastPage", "_"
    else
      SetVar "NextPage", (iPage + 1)
    end if
    if iPage = 1 then
      SetVar "PastEventsNavigatorFirstPage", "_"
    else
      SetVar "PrevPage", (iPage - 1)
    end if
    SetVar "PastEventsCurrentPage", iPage
    Parse "PastEventsNavigator", False
  end if
'-------------------------------
' PastEvents Navigation end
'-------------------------------

'-------------------------------
' Finish form processing
'-------------------------------
  set rs = nothing
  SetVar "PastEventsNoRecords", ""
  Parse "FormPastEvents", False

'-------------------------------
' PastEvents Close Event begin
' PastEvents Close Event end
'-------------------------------
End Sub
'===============================
      
%>