<%


'-------------------------------
' EventView CustomIncludes begin
%>

<!-- #INCLUDE FILE="Common.asp" -->
<!-- #INCLUDE FILE="Header.asp" -->
<!-- #INCLUDE FILE="Footer.asp" -->

<%
' EventView CustomIncludes end
'-------------------------------

'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "EventView.asp"
sTemplateFileName = "EventView.html"
'===============================


'===============================
' EventView PageSecurity begin
' EventView PageSecurity end
'===============================

'===============================
' EventView Open Event begin
' EventView Open Event end
'===============================

'===============================
' EventView OpenAnyPage Event begin
' EventView OpenAnyPage Event end
'===============================

'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================

' EventView Show begin
'===============================
' Perform the form's action
'-------------------------------
' Initialize error variables
'-------------------------------
sViewEventErr = ""
sRegisterErr = ""

'-------------------------------
' Select the FormAction
'-------------------------------
Select Case sForm
  Case "ViewEvent"
    ViewEventAction(sAction)
  Case "Register"
    RegisterAction(sAction)
end select
'===============================

'===============================
' 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
ViewEvent_Show
Register_Show
PayPal_Show
Registered_Show
'-------------------------------
' Process page templates
'-------------------------------
Parse "Header", False
Parse "Footer", False
Parse "main", False
'-------------------------------
' Output the page to the browser
'-------------------------------
Response.write PrintVar("main")

' EventView Show end

'-------------------------------
' Destroy all object variables
'-------------------------------

' EventView Close Event begin
' EventView Close Event end

cn.Close
Set cn = Nothing
UnloadTemplate
'===============================
'===============================
' Action of the Record Form
'-------------------------------
Sub ViewEventAction(sAction)
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim bExecSQL: bExecSQL = true
  Dim sActionFileName : sActionFileName = ""
  Dim sParams : sParams = "?"
  Dim sWhere : sWhere = "" 
  Dim bErr : bErr = False
  Dim pPKevent_id : pPKevent_id = ""
'-------------------------------

'-------------------------------
' ViewEvent Action begin
'-------------------------------
  sActionFileName = "Events.asp"
  sParams = sParams & "event_id=" & ToURL(GetParam("Trn_event_id"))

'-------------------------------
' Load all form fields into variables
'-------------------------------
'-------------------------------
' ViewEvent BeforeExecute Event begin
' ViewEvent BeforeExecute Event end
'-------------------------------

'-------------------------------
' Execute SQL statement
'-------------------------------
if len(sViewEventErr) > 0 then Exit Sub
  on error resume next
  if bExecSQL then 
    cn.execute sSQL
  end if
  sViewEventErr = ProcessError
  on error goto 0
  if len(sViewEventErr) > 0 then Exit Sub
  cn.Close
  Set cn = Nothing
  response.redirect sActionFileName & sParams
'-------------------------------
' ViewEvent Action end
'-------------------------------
end sub
'===============================

'===============================
' Display Record Form
'-------------------------------
Sub ViewEvent_Show()
'-------------------------------
' ViewEvent Show begin
'-------------------------------
  Dim sWhere : sWhere = ""
  Dim sFormTitle: sFormTitle = "L'EVENEMENT EN DETAIL A L'AUBERGE DU MOLLARD"
  Dim bPK : bPK = True

'-------------------------------
' Load primary key and form parameters
'-------------------------------
  if sViewEventErr = "" then
    fldevent_id = GetParam("event_id")
    SetVar "Trn_event_id", GetParam("event_id")
    pevent_id = GetParam("event_id")
    SetVar "ViewEventError", ""
  else
    fldevent_id = GetParam("event_id")
    SetVar "Trn_event_id", GetParam("Trn_event_id")
    pevent_id = GetParam("PK_event_id")
    SetVar "sViewEventErr", sViewEventErr
    SetVar "FormTitle", sFormTitle
    Parse "ViewEventError", False
  end if
'-------------------------------

'-------------------------------
' Load all form fields

'-------------------------------

'-------------------------------
' Build WHERE statement

  if IsEmpty(pevent_id) then bPK = False
  
  sWhere = sWhere & "event_id=" & ToSQL(pevent_id, "Number")
  SetVar "PK_event_id", pevent_id
'-------------------------------
'-------------------------------
' ViewEvent Open Event begin
' ViewEvent Open Event end
'-------------------------------

  SetVar "FormTitle", sFormTitle

'-------------------------------
' Build SQL statement and open recordset
'-------------------------------
  sSQL = "select * from events where " & sWhere
  openrs rs, sSQL
  bIsUpdateMode = (bPK and not(sAction = "insert" and sForm = "ViewEvent") and not rs.eof)
'-------------------------------

'-------------------------------
' Load all fields into variables from recordset or input parameters
'-------------------------------
  if bIsUpdateMode then
    fldevent_date_start = GetValue(rs, "event_date_start")
    fldevent_desc = GetValue(rs, "event_desc")
    fldevent_fee = GetValue(rs, "event_fee")
    fldevent_id = GetValue(rs, "event_id")
    fldevent_location = GetValue(rs, "event_location")
    fldevent_location_url_URLLink = GetValue(rs, "event_location_url")
    fldevent_location_url = GetValue(rs, "event_location_url")
    fldevent_name = GetValue(rs, "event_name")
    SetVar "ViewEventDelete", ""
    SetVar "ViewEventUpdate", ""
    SetVar "ViewEventInsert", ""
'-------------------------------
' ViewEvent ShowEdit Event begin
' ViewEvent ShowEdit Event end
'-------------------------------
  else
    if sViewEventErr = "" then
      fldevent_id = ToHTML(GetParam("event_id"))
    end if
    SetVar "ViewEventEdit", ""
    SetVar "ViewEventInsert", ""
'-------------------------------
' ViewEvent ShowInsert Event begin
' ViewEvent ShowInsert Event end
'-------------------------------
  end if
  SetVar "ViewEventCancel", ""
  if sViewEventErr = "" then
'-------------------------------
' ViewEvent Show Event begin
fldevent_location = replace(fldevent_location,vbCRLF,"<br>")
fldevent_desc = replace(fldevent_desc,vbCRLF,"<br>")
fldevent_fee = replace(fldevent_fee,vbCRLF,"<br>")
' ViewEvent Show Event end
'-------------------------------
  end if

'-------------------------------
' Show form field
'-------------------------------
      SetVar "event_id", ToHTML(fldevent_id)
      SetVar "event_date_start", ToHTML(fldevent_date_start)
      SetVar "event_name", fldevent_name
      SetVar "event_desc", fldevent_desc
      SetVar "event_location", fldevent_location
      SetVar "event_fee", fldevent_fee
      SetVar "event_location_url", fldevent_location_url
      SetVar "event_location_url_URLLink", fldevent_location_url_URLLink
  Parse "FormViewEvent", False

'-------------------------------
' ViewEvent Close Event begin
' ViewEvent Close Event end
'-------------------------------

Set rs = Nothing

'-------------------------------
' ViewEvent Show end
'-------------------------------
End Sub
'===============================
'===============================
' Action of the Record Form
'-------------------------------
Sub RegisterAction(sAction)
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim bExecSQL: bExecSQL = true
  Dim sActionFileName : sActionFileName = ""
  Dim sParams : sParams = "?"
  Dim sWhere : sWhere = "" 
  Dim bErr : bErr = False
  Dim pPKreg_id : pPKreg_id = ""
  Dim fldreg_first_name : fldreg_first_name = ""
  Dim fldreg_last_name : fldreg_last_name = ""
  Dim fldreg_comments : fldreg_comments = ""
  Dim fldevent_id : fldevent_id = ""
  Dim fldmember_id : fldmember_id = ""
'-------------------------------

'-------------------------------
' Register Action begin
'-------------------------------
  sActionFileName = "Events.asp"
  sParams = sParams & "event_id=" & ToURL(GetParam("Trn_event_id"))

'-------------------------------
' Load all form fields into variables
'-------------------------------
  fldreg_first_name = GetParam("reg_first_name")
  fldreg_last_name = GetParam("reg_last_name")
  fldreg_comments = GetParam("reg_comments")
  fldevent_id = GetParam("event_id")
  fldmember_id = GetParam("member_id")

'-------------------------------
' Validate fields
'-------------------------------
  if sAction = "insert" or sAction = "update" then
    if IsEmpty(fldreg_first_name) then
      sRegisterErr = sRegisterErr & "Vous n'etes pas inscrit au club 1???<br>"
    end if
    if IsEmpty(fldreg_last_name) then
      sRegisterErr = sRegisterErr & "Vous n'etes pas inscrit au club 2???<br>"
    end if
    if not isNumeric(fldmember_id) then
      sRegisterErr = sRegisterErr & "Vous n'etes pas inscrit au club 3???.<br>"
    end if
'-------------------------------
' Register Check Event begin
' Register Check Event end
'-------------------------------
    If len(sRegisterErr) > 0 then
      exit sub
    end if
  end if
'-------------------------------


'-------------------------------
' Create SQL statement
'-------------------------------
  select case sAction
    case "insert"
'-------------------------------
' Register Insert Event begin
' Register Insert Event end
'-------------------------------
      sSQL = "insert into event_registrations (" & _
          "[reg_first_name]," & _
          "[reg_last_name]," & _
          "[reg_comments]," & _
          "[event_id]," & _
          "[member_id])" & _
          " values (" & _
          ToSQL(fldreg_first_name, "Text") & "," & _
          ToSQL(fldreg_last_name, "Text") & "," & _
          ToSQL(fldreg_comments, "Text") & "," & _
          ToSQL(fldevent_id, "Text") & "," & _
          ToSQL(fldmember_id, "Number") & _
          ")"
  end select
'-------------------------------
'-------------------------------
' Register BeforeExecute Event begin
' Register BeforeExecute Event end
'-------------------------------

'-------------------------------
' Execute SQL statement
'-------------------------------
if len(sRegisterErr) > 0 then Exit Sub
  on error resume next
  if bExecSQL then 
    cn.execute sSQL
  end if
  sRegisterErr = ProcessError
  on error goto 0
  if len(sRegisterErr) > 0 then Exit Sub
  cn.Close
  Set cn = Nothing
  response.redirect sActionFileName & sParams
'-------------------------------
' Register Action end
'-------------------------------
end sub
'===============================

'===============================
' Display Record Form
'-------------------------------
Sub Register_Show()
'-------------------------------
' Register Show begin
'-------------------------------
  Dim sWhere : sWhere = ""
  Dim sFormTitle: sFormTitle = "BULLETIN D'INSCRIPTION A L'EVENEMENT<BR>"
  Dim bPK : bPK = True

'-------------------------------
' Load primary key and form parameters
'-------------------------------
  if sRegisterErr = "" then
    fldevent_id = GetParam("event_id")
    SetVar "Trn_event_id", GetParam("event_id")
    preg_id = GetParam("reg_id")
    SetVar "RegisterError", ""
  else
    fldreg_id = GetParam("reg_id")
    fldreg_first_name = GetParam("reg_first_name")
    fldreg_last_name = GetParam("reg_last_name")
    fldreg_comments = GetParam("reg_comments")
    fldevent_id = GetParam("event_id")
    fldmember_id = GetParam("member_id")
    SetVar "Trn_event_id", GetParam("Trn_event_id")
    preg_id = GetParam("PK_reg_id")
    SetVar "sRegisterErr", sRegisterErr
    SetVar "FormTitle", sFormTitle
    Parse "RegisterError", False
  end if
'-------------------------------

'-------------------------------
' Load all form fields

'-------------------------------

'-------------------------------
' Build WHERE statement

  if IsEmpty(preg_id) then bPK = False
  
  sWhere = sWhere & "reg_id=" & ToSQL(preg_id, "Number")
  SetVar "PK_reg_id", preg_id
'-------------------------------
'-------------------------------
' Register Open Event begin
if dlookup("events","event_date_start","event_id=" & getParam("event_id"))<now() or dlookup("events","event_allow_registrations","event_id=" & getParam("event_id"))<>"1" then
  setvar "FormRegister",""
  exit sub
end if
' Register Open Event end
'-------------------------------

  SetVar "FormTitle", sFormTitle

'-------------------------------
' Build SQL statement and open recordset
'-------------------------------
  sSQL = "select * from event_registrations where " & sWhere
  openrs rs, sSQL
  bIsUpdateMode = (bPK and not(sAction = "insert" and sForm = "Register") and not rs.eof)
'-------------------------------

'-------------------------------
' Load all fields into variables from recordset or input parameters
'-------------------------------
  if bIsUpdateMode then
    fldevent_id = GetValue(rs, "event_id")
    fldmember_id = GetValue(rs, "member_id")
    fldreg_id = GetValue(rs, "reg_id")

'-------------------------------
' Load data from recordset when form displayed first time
'-------------------------------
    if sRegisterErr = "" then
      fldreg_first_name = GetValue(rs, "reg_first_name")
      fldreg_last_name = GetValue(rs, "reg_last_name")
      fldreg_comments = GetValue(rs, "reg_comments")
    end if
    SetVar "RegisterDelete", ""
    SetVar "RegisterUpdate", ""
    SetVar "RegisterInsert", ""
'-------------------------------
' Register ShowEdit Event begin
' Register ShowEdit Event end
'-------------------------------
  else
    if sRegisterErr = "" then
      fldevent_id = ToHTML(GetParam("event_id"))
      fldmember_id = ToHTML(Session("UserID"))
    end if
    SetVar "RegisterEdit", ""
    Parse "RegisterInsert", False
'-------------------------------
' Register ShowInsert Event begin
fldid=fldevent_id
if Session("UserID")<>"" then
  fldreg_first_name=dlookup("members","member_first_name","member_id=" & fldmember_id)
  fldreg_last_name=dlookup("members","member_last_name","member_id=" & fldmember_id)
end if
' Register ShowInsert Event end
'-------------------------------
  end if
  SetVar "RegisterCancel", ""
'-------------------------------
' Register Show Event begin
' Register Show Event end
'-------------------------------

'-------------------------------
' Show form field
'-------------------------------
      SetVar "reg_id", ToHTML(fldreg_id)
      SetVar "reg_first_name", ToHTML(fldreg_first_name)
      SetVar "reg_last_name", ToHTML(fldreg_last_name)
      SetVar "reg_comments", ToHTML(fldreg_comments)
      SetVar "event_id", ToHTML(fldevent_id)
      SetVar "member_id", ToHTML(fldmember_id)
  Parse "FormRegister", False

'-------------------------------
' Register Close Event begin
' Register Close Event end
'-------------------------------

Set rs = Nothing

'-------------------------------
' Register Show end
'-------------------------------
End Sub
'===============================

'===============================
' Display Menu Form
'-------------------------------
Sub PayPal_Show()
  Dim sFormTitle: sFormTitle = "Pay For This Event"

'-------------------------------
' PayPal Open Event begin
if dlookup("events","event_date_start","event_id=" & getParam("event_id"))<now() or dlookup("events","event_paypal_enabled","event_id=" & getParam("event_id"))<>"1" then
  setvar "FormPayPal",""
  exit sub
end if
' PayPal Open Event end
'-------------------------------

'-------------------------------
' Set URLs
'-------------------------------
  fldpaypalform = ""
'-------------------------------
' PayPal Show begin
'-------------------------------

  SetVar "FormTitle", sFormTitle

'-------------------------------
' PayPal BeforeShow Event begin
id=getParam("event_id")
if id="" then id=getParam("Trn_event_id")
openrs rs,"SELECT event_paypal_enabled,event_paypal_email,event_paypal_amount FROM events WHERE event_id=" & id
if rs("event_paypal_enabled")=1 then
  fldpaypalform="<!-- Begin PayPal Logo --><FORM ACTION=""https://secure.paypal.com/cgi-bin/webscr"" METHOD=""POST"" TARGET=""_BLANK""><INPUT TYPE=""hidden"" NAME=""cmd"" VALUE=""_xclick""><INPUT TYPE=""hidden"" NAME=""business"" VALUE=""" & rs("event_paypal_email") & """><INPUT TYPE=""hidden"" NAME=""return"" VALUE=""" & getConfig("portal_url") & """><INPUT TYPE=""hidden"" NAME=""undefined_quantity"" VALUE=""1""><INPUT TYPE=""hidden"" NAME=""amount"" VALUE=""" & rs("event_paypal_amount") & """><INPUT TYPE=""hidden"" NAME=""item_name"" VALUE=""Event Fee""><INPUT TYPE=""image"" SRC=""http://images.paypal.com/images/x-click-but3.gif"" NAME=""submit"" ALT=""Make payments with PayPal - it's fast, free and secure!""></FORM><!-- End PayPal Logo -->"
else
  SetVar "FormPayPal",""
  exit sub
end if
' PayPal BeforeShow Event end
'-------------------------------

'-------------------------------
' Show fields
'-------------------------------
  SetVar "paypalform", fldpaypalform
  Parse "FormPayPal", False

'-------------------------------
' PayPal Show end
'-------------------------------
End Sub
'===============================


'===============================
' Display Grid Form
'-------------------------------
Sub Registered_Show()
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim rs
  Dim sWhere : sWhere = ""
  Dim sOrder : sOrder = ""
  Dim sSQL : sSQL = ""
  Dim sFormTitle: sFormTitle = "Liste des joueurs/joueuses deja inscrit(e)s"
  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

  SetVar "TransitParams", ""
  SetVar "FormParams", "event_id=" & ToURL(GetParam("event_id")) & "&"

'-------------------------------
' Build WHERE statement
'-------------------------------
  pevent_id = GetParam("event_id")
  if IsNumeric(pevent_id) and not isEmpty(pevent_id) then pevent_id = ToSQL(pevent_id, "Number") else pevent_id = Empty
  if not isEmpty(pevent_id) then
    HasParam = true
    sWhere = sWhere & "e.[event_id]=" & pevent_id
  end if


  if HasParam then
    sWhere = " WHERE (" & sWhere & ")"
  end if
  
'-------------------------------
' Build ORDER BY statement
'-------------------------------
  iSort = GetParam("FormRegistered_Sorting")
  iSorted = GetParam("FormRegistered_Sorted")
  sDirection = ""
  if IsEmpty(iSort) then
    SetVar "Form_Sorting", ""
  else
    if iSort = iSorted then 
      SetVar "Form_Sorting", ""
      sDirection = " DESC"
      sSortParams = "FormRegistered_Sorting=" & iSort & "&FormRegistered_Sorted=" & iSort & "&"
    else
      SetVar "Form_Sorting", iSort
      sDirection = " ASC"
      sSortParams = "FormRegistered_Sorting=" & iSort & "&FormRegistered_Sorted=" & "&"
    end if
    if iSort = 1 then sOrder = " order by e.[reg_first_name]" & sDirection
    if iSort = 2 then sOrder = " order by e.[reg_last_name]" & sDirection
    if iSort = 3 then sOrder = " order by e.[reg_comments]" & sDirection
  end if

'-------------------------------
' Build base SQL statement
'-------------------------------
  sSQL = "select [e].[event_id] as e_event_id, " & _
    "[e].[member_id] as e_member_id, " & _
    "[e].[reg_comments] as e_reg_comments, " & _
    "[e].[reg_first_name] as e_reg_first_name, " & _
    "[e].[reg_last_name] as e_reg_last_name " & _
    " from [event_registrations] e "
'-------------------------------

'-------------------------------
' Registered Open Event begin
if dlookup("events","event_date_start","event_id=" & getParam("event_id"))<now() or dlookup("events","event_allow_registrations","event_id=" & getParam("event_id"))<>"1" then
  setvar "FormRegistered",""
  exit sub
end if


submitted_by = dlookup("events","event_added_by","event_id=" & getParam("event_id"))
if submitted_by = "" then submitted_by =0

if (Session("UserID")<>"" and cint(Session("UserID"))=cint(submitted_by)) OR Session("UserRights")>1 then
  else
setvar "FormRegistered",""
   exit sub
end if
' Registered Open Event end
'-------------------------------

'-------------------------------
' Assemble full SQL statement
'-------------------------------
  sSQL = sSQL & sWhere & sOrder
'-------------------------------

SetVar "FormTitle", sFormTitle

'-------------------------------
' 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 "DListRegistered", ""
    Parse "RegisteredNoRecords", False
    SetVar "RegisteredNavigator", ""
    Parse "FormRegistered", False
    exit sub
  end if
'-------------------------------

'-------------------------------
' Initialize page counter and records per page
'-------------------------------
  iRecordsPerPage = 20
  iCounter = 0
'-------------------------------

'-------------------------------
' Process page scroller
'-------------------------------
  iPage = GetParam("FormRegistered_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_id = GetValue(rs, "e_event_id")
    fldmember_id = GetValue(rs, "e_member_id")
    fldreg_comments = GetValue(rs, "e_reg_comments")
    fldreg_first_name = GetValue(rs, "e_reg_first_name")
    fldreg_last_name = GetValue(rs, "e_reg_last_name")
'-------------------------------
' Registered Show begin
'-------------------------------

'-------------------------------
' Registered Show Event begin
' Registered Show Event end
'-------------------------------

'-------------------------------
' Replace Template fields with database values
'-------------------------------
    
      SetVar "event_id", ToHTML(fldevent_id)
      SetVar "member_id", ToHTML(fldmember_id)
      SetVar "reg_first_name", ToHTML(fldreg_first_name)
      SetVar "reg_last_name", ToHTML(fldreg_last_name)
      SetVar "reg_comments", ToHTML(fldreg_comments)
    Parse "DListRegistered", True

'-------------------------------
' Registered Show end
'-------------------------------

'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
    rs.MoveNext
    iCounter = iCounter + 1
  wend
'-------------------------------


'-------------------------------
' Registered Navigation begin
'-------------------------------
  bEof = rs.eof
  if rs.eof and iPage = 1 then
	SetVar "RegisteredNavigator", ""
  else
    if bEof then
      SetVar "RegisteredNavigatorLastPage", "_"
    else
      SetVar "NextPage", (iPage + 1)
    end if
    if iPage = 1 then
      SetVar "RegisteredNavigatorFirstPage", "_"
    else
      SetVar "PrevPage", (iPage - 1)
    end if
    SetVar "RegisteredCurrentPage", iPage
    Parse "RegisteredNavigator", False
  end if
'-------------------------------
' Registered Navigation end
'-------------------------------

'-------------------------------
' Finish form processing
'-------------------------------
  set rs = nothing
  SetVar "RegisteredNoRecords", ""
  Parse "FormRegistered", False

'-------------------------------
' Registered Close Event begin
' Registered Close Event end
'-------------------------------
End Sub
'===============================

%>
<meta name="generator" content="Namo WebEditor v5.0(Trial)">
<p>&nbsp;</p>