<%
'
'    Filename: Default.asp
'    Generated with CodeCharge 2.0.5
'    ASP 2.0 & Templates.ccp build 11/30/2001
'

'-------------------------------
' Default CustomIncludes begin
%>

<!-- #INCLUDE FILE="Common.asp" -->
<!-- #INCLUDE FILE="Styles.inc" -->
<!-- #INCLUDE FILE="Default.inc" -->
<!-- #INCLUDE FILE="Header.asp" -->
<!-- #INCLUDE FILE="Footer.asp" -->

<%
' Default CustomIncludes end
'-------------------------------

'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "Default.asp"
sTemplateFileName = "Default.html"
'===============================


'===============================
' Default PageSecurity begin
' Default PageSecurity end
'===============================

'===============================
' Default Open Event begin
' Default Open Event end
'===============================

'===============================
' Default OpenAnyPage Event begin
' Default OpenAnyPage Event end
'===============================

'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================

' Default 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

'-------------------------------
' Set page styles
'-------------------------------
SetVar "PageBODY", stylePageBODY
SetVar "FormTABLE", styleFormTABLE
SetVar "FormHeaderTD", styleFormHeaderTD
SetVar "FormHeaderFONT", styleFormHeaderFONT
SetVar "FieldCaptionTD", styleFieldCaptionTD
SetVar "FieldCaptionFONT", styleFieldCaptionFONT
SetVar "DataTD", styleDataTD
SetVar "RecordSeparatorTD", styleRecordSeparatorTD
SetVar "DataFONT", styleDataFONT
SetVar "ColumnFONT", styleColumnFONT
SetVar "ColumnTD", styleColumnTD
'-------------------------------
' Set the custom page styles
'-------------------------------
SetVar "ArticlesFormTABLE", styleArticlesFormTABLE
SetVar "ArticlesFormHeaderTD", styleArticlesFormHeaderTD
SetVar "ArticlesFormHeaderFONT", styleArticlesFormHeaderFONT
SetVar "ArticlesFieldCaptionTD", styleArticlesFieldCaptionTD
SetVar "ArticlesFieldCaptionFONT", styleArticlesFieldCaptionFONT
SetVar "ArticlesDataTD", styleArticlesDataTD
SetVar "ArticlesDataFONT", styleArticlesDataFONT
SetVar "ArticlesColumnTD", styleArticlesColumnTD
SetVar "ArticlesColumnFONT", styleArticlesColumnFONT
SetVar "ArticlesRecordSeparatorTD", styleArticlesRecordSeparatorTD
SetVar "NewsFormTABLE", styleNewsFormTABLE
SetVar "NewsFormHeaderTD", styleNewsFormHeaderTD
SetVar "NewsFormHeaderFONT", styleNewsFormHeaderFONT
SetVar "NewsFieldCaptionTD", styleNewsFieldCaptionTD
SetVar "NewsFieldCaptionFONT", styleNewsFieldCaptionFONT
SetVar "NewsDataTD", styleNewsDataTD
SetVar "NewsDataFONT", styleNewsDataFONT
SetVar "NewsColumnTD", styleNewsColumnTD
SetVar "NewsColumnFONT", styleNewsColumnFONT
SetVar "NewsRecordSeparatorTD", styleNewsRecordSeparatorTD

'-------------------------------
' Step through each form
'-------------------------------
Header_Show
Footer_Show
Cercar_Show
Links_Show
Events_Show
Articles_Show
News_Show
'-------------------------------
' Process page templates
'-------------------------------
Parse "Header", False
Parse "Footer", False
Parse "main", False
'-------------------------------
' Output the page to the browser
'-------------------------------
Response.write PrintVar("main")

' Default Show end

'-------------------------------
' Destroy all object variables
'-------------------------------

' Default Close Event begin
' Default Close Event end

cn.Close
Set cn = Nothing
UnloadTemplate
'===============================

'===============================
' Display Grid Form
'-------------------------------
Sub Articles_Show()
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim rs
  Dim sWhere : sWhere = ""
  Dim sOrder : sOrder = ""
  Dim sSQL : sSQL = ""
  Dim sFormTitle: sFormTitle = "NOTÍCIES CORNELLÀ"
  Dim HasParam : HasParam = false
  Dim iSort : iSort = ""
  Dim iSorted : iSorted = ""
  Dim sDirection : sDirection = ""
  Dim sSortParams : sSortParams = ""
  Dim iRecordsPerPage : iRecordsPerPage = 10
  Dim iCounter : iCounter = 0

  SetVar "TransitParams", ""
  SetVar "FormParams", ""


  
'-------------------------------
' Build ORDER BY statement
'-------------------------------
  iSort = GetParam("FormArticles_Sorting")
  iSorted = GetParam("FormArticles_Sorted")
  sDirection = ""
  if IsEmpty(iSort) then
    SetVar "Form_Sorting", ""
  else
    if iSort = iSorted then 
      SetVar "Form_Sorting", ""
      sDirection = " DESC"
      sSortParams = "FormArticles_Sorting=" & iSort & "&FormArticles_Sorted=" & iSort & "&"
    else
      SetVar "Form_Sorting", iSort
      sDirection = " ASC"
      sSortParams = "FormArticles_Sorting=" & iSort & "&FormArticles_Sorted=" & "&"
    end if
    if iSort = 1 then sOrder = " order by a.[article_title]" & sDirection
  end if

'-------------------------------
' Build base SQL statement
'-------------------------------
  sSQL = "select [a].[article_desc] as a_article_desc, " & _
    "[a].[article_id] as a_article_id, " & _
    "[a].[article_title] as a_article_title, " & _
    "[a].[category_id] as a_category_id " & _
    " from [articles] a "
'-------------------------------

'-------------------------------
' Articles Open Event begin
' Articles 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
'-------------------------------
  openStaticRS rs, sSQL
'-------------------------------

'-------------------------------
' Process empty recordset
'-------------------------------
  if rs.eof then
    set rs = nothing
    SetVar "DListArticles", ""
    Parse "ArticlesNoRecords", False
    Parse "FormArticles", False
    exit sub
  end if
'-------------------------------

'-------------------------------
' Initialize page counter and records per page
'-------------------------------
  iRecordsPerPage = 10
  iCounter = 0
'-------------------------------

'-------------------------------
' Display grid based on recordset
'-------------------------------
  while not rs.EOF  and iCounter < iRecordsPerPage
'-------------------------------
' Create field variables based on database fields
'-------------------------------
    fldarticle_desc = GetValue(rs, "a_article_desc")
    fldarticle_id = GetValue(rs, "a_article_id")
    fldarticle_title = GetValue(rs, "a_article_title")
    fldcategory_id = GetValue(rs, "a_category_id")
'-------------------------------
' Articles Show begin
'-------------------------------

'-------------------------------
' Articles Show Event begin
fldarticle_title = "<table cellspacing=""0"" cellpadding=""0"" width=""100%""><tr bgcolor=""#2F2F4F""><td><font class=""ArticlesColumnFONT"" color=""#FFFFFF"">" & fldarticle_title & "</font></td></tr></table>"
' Articles Show Event end
'-------------------------------

'-------------------------------
' Replace Template fields with database values
'-------------------------------
    
      SetVar "article_id", ToHTML(fldarticle_id)
      SetVar "article_title", fldarticle_title
      SetVar "article_desc", fldarticle_desc
      SetVar "category_id", ToHTML(fldcategory_id)
'-------------------------------
' Process the record separator
'-------------------------------
    if rs.EOF or iCounter = iRecordsPerPage-1 then
       SetVar "ArticlesRecordSeparator", ""
    else
      Parse "ArticlesRecordSeparator", false
    end if
'-------------------------------
    Parse "DListArticles", True

'-------------------------------
' Articles Show end
'-------------------------------

'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
    rs.MoveNext
    iCounter = iCounter + 1
  wend
'-------------------------------


'-------------------------------
' Finish form processing
'-------------------------------
  set rs = nothing
  SetVar "ArticlesNoRecords", ""
  Parse "FormArticles", False

'-------------------------------
' Articles Close Event begin
' Articles Close Event end
'-------------------------------
End Sub
'===============================


'===============================
' Display Search Form
'-------------------------------
Sub Cercar_Show()
  Dim sFormTitle: sFormTitle = "Cerca a Cornella ;-) Net"
  Dim sActionFileName: sActionFileName = "Articles.asp"
  Dim scategory_idDisplayValue: scategory_idDisplayValue = "All"

'-------------------------------
' Cercar Open Event begin
' Cercar Open Event end
'-------------------------------
      SetVar "FormTitle", sFormTitle
      SetVar "ActionPage", sActionFileName

'-------------------------------
' Set variables with search parameters
'-------------------------------
      fldsearch = GetParam("search")
      fldcategory_id = GetParam("category_id")

'-------------------------------
' Cercar Show begin
'-------------------------------


'-------------------------------
' Cercar Show Event begin
' Cercar Show Event end
'-------------------------------
      SetVar "search", ToHTML(fldsearch)
      SetVar "CercarLBcategory_id", ""
      SetVar "Selected", ""
      SetVar "ID", ""
      SetVar "Value", scategory_idDisplayValue
      Parse "CercarLBcategory_id", True
      openrs rscategory_id, "select category_id, category_desc from categories order by 2"
      while not rscategory_id.EOF
        SetVar "ID", GetValue(rscategory_id, 0) : SetVar "Value", GetValue(rscategory_id, 1)
        if cstr(GetValue(rscategory_id, 0)) = cstr(fldcategory_id) then SetVar "Selected", "SELECTED" else SetVar "Selected", ""
        Parse "CercarLBcategory_id", True
        rscategory_id.MoveNext
      wend
      set rscategory_id = nothing
    

'-------------------------------
' Cercar Show end
'-------------------------------

'-------------------------------
' Cercar Close Event begin
' Cercar Close Event end
'-------------------------------
      Parse "FormCercar", False
End Sub
'===============================


'===============================
' Display Grid Form
'-------------------------------
Sub Links_Show()
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim rs
  Dim sWhere : sWhere = ""
  Dim sOrder : sOrder = ""
  Dim sSQL : sSQL = ""
  Dim sFormTitle: sFormTitle = "Links"
  Dim HasParam : HasParam = false
  Dim iSort : iSort = ""
  Dim iSorted : iSorted = ""
  Dim sDirection : sDirection = ""
  Dim sSortParams : sSortParams = ""
  Dim iRecordsPerPage : iRecordsPerPage = 10
  Dim iCounter : iCounter = 0
  Dim iPage : iPage = 0
  Dim bEof : bEof = False

  SetVar "TransitParams", ""
  SetVar "FormParams", ""


  sWhere = " WHERE approved=1"
  
'-------------------------------
' Build ORDER BY statement
'-------------------------------
  iSort = GetParam("FormLinks_Sorting")
  iSorted = GetParam("FormLinks_Sorted")
  sDirection = ""
  if IsEmpty(iSort) then
    SetVar "Form_Sorting", ""
  else
    if iSort = iSorted then 
      SetVar "Form_Sorting", ""
      sDirection = " DESC"
      sSortParams = "FormLinks_Sorting=" & iSort & "&FormLinks_Sorted=" & iSort & "&"
    else
      SetVar "Form_Sorting", iSort
      sDirection = " ASC"
      sSortParams = "FormLinks_Sorting=" & iSort & "&FormLinks_Sorted=" & "&"
    end if
    if iSort = 1 then sOrder = " order by l.[link_name]" & sDirection
  end if

'-------------------------------
' Build base SQL statement
'-------------------------------
  sSQL = "select [l].[link_name] as l_link_name, " & _
    "[l].[link_url] as l_link_url " & _
    " from [links] l "
'-------------------------------

'-------------------------------
' Links Open Event begin
' Links 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 "DListLinks", ""
    Parse "LinksNoRecords", False
    SetVar "LinksNavigator", ""
    Parse "FormLinks", False
    exit sub
  end if
'-------------------------------

'-------------------------------
' Initialize page counter and records per page
'-------------------------------
  iRecordsPerPage = 10
  iCounter = 0
'-------------------------------

'-------------------------------
' Process page scroller
'-------------------------------
  iPage = GetParam("FormLinks_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
'-------------------------------
    fldlink_name_URLLink = GetValue(rs, "l_link_url")
    fldlink_name = GetValue(rs, "l_link_name")
'-------------------------------
' Links Show begin
'-------------------------------

'-------------------------------
' Links Show Event begin
' Links Show Event end
'-------------------------------

'-------------------------------
' Replace Template fields with database values
'-------------------------------
    
      SetVar "link_name", ToHTML(fldlink_name)
      SetVar "link_name_URLLink", fldlink_name_URLLink
    Parse "DListLinks", True

'-------------------------------
' Links Show end
'-------------------------------

'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
    rs.MoveNext
    iCounter = iCounter + 1
  wend
'-------------------------------


'-------------------------------
' Links Navigation begin
'-------------------------------
  bEof = rs.eof
  if rs.eof and iPage = 1 then
	SetVar "LinksNavigator", ""
  else
    if bEof then
      SetVar "LinksNavigatorLastPage", "_"
    else
      SetVar "NextPage", (iPage + 1)
    end if
    if iPage = 1 then
      SetVar "LinksNavigatorFirstPage", "_"
    else
      SetVar "PrevPage", (iPage - 1)
    end if
    SetVar "LinksCurrentPage", iPage
    Parse "LinksNavigator", False
  end if
'-------------------------------
' Links Navigation end
'-------------------------------

'-------------------------------
' Finish form processing
'-------------------------------
  set rs = nothing
  SetVar "LinksNoRecords", ""
  Parse "FormLinks", False

'-------------------------------
' Links Close Event begin
' Links Close Event end
'-------------------------------
End Sub
'===============================


'===============================
' Display Grid Form
'-------------------------------
Sub Events_Show()
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim rs
  Dim sWhere : sWhere = ""
  Dim sOrder : sOrder = ""
  Dim sSQL : sSQL = ""
  Dim sFormTitle: sFormTitle = "ESDEVENIMENTS"
  Dim HasParam : HasParam = false
  Dim iRecordsPerPage : iRecordsPerPage = 10
  Dim iCounter : iCounter = 0
  Dim iPage : iPage = 0
  Dim bEof : bEof = False

  SetVar "TransitParams", ""
  SetVar "FormParams", ""



'-------------------------------
' Build base SQL statement
'-------------------------------
  sSQL = "select [e].[event_id] as e_event_id, " & _
    "[e].[event_name] as e_event_name " & _
    " from [events] e "
'-------------------------------

'-------------------------------
' Events Open Event begin
' Events Open Event end
'-------------------------------

'-------------------------------
' Assemble full SQL statement
'-------------------------------
  sSQL = sSQL & sWhere & sOrder
'-------------------------------

SetVar "FormTitle", sFormTitle

'-------------------------------
' Open the recordset
'-------------------------------
  openStaticRS rs, sSQL
'-------------------------------

'-------------------------------
' Process empty recordset
'-------------------------------
  if rs.eof then
    set rs = nothing
    SetVar "DListEvents", ""
    Parse "EventsNoRecords", False
    SetVar "EventsNavigator", ""
    Parse "FormEvents", False
    exit sub
  end if
'-------------------------------

'-------------------------------
' Initialize page counter and records per page
'-------------------------------
  iRecordsPerPage = 10
  iCounter = 0
'-------------------------------

'-------------------------------
' Process page scroller
'-------------------------------
  iPage = GetParam("FormEvents_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_name_URLLink = "Event.asp"
    fldevent_name_event_id = GetValue(rs, "e_event_id")
    fldevent_name = GetValue(rs, "e_event_name")
'-------------------------------
' Events Show begin
'-------------------------------

'-------------------------------
' Events Show Event begin
' Events Show Event end
'-------------------------------

'-------------------------------
' Replace Template fields with database values
'-------------------------------
    
      SetVar "event_name", ToHTML(fldevent_name)
      SetVar "event_name_URLLink", fldevent_name_URLLink
      SetVar "Prmevent_name_event_id", ToURL(fldevent_name_event_id)
    Parse "DListEvents", True

'-------------------------------
' Events Show end
'-------------------------------

'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
    rs.MoveNext
    iCounter = iCounter + 1
  wend
'-------------------------------


'-------------------------------
' Events Navigation begin
'-------------------------------
  bEof = rs.eof
  if rs.eof and iPage = 1 then
	SetVar "EventsNavigator", ""
  else
    if bEof then
      SetVar "EventsNavigatorLastPage", "_"
    else
      SetVar "NextPage", (iPage + 1)
    end if
    if iPage = 1 then
      SetVar "EventsNavigatorFirstPage", "_"
    else
      SetVar "PrevPage", (iPage - 1)
    end if
    SetVar "EventsCurrentPage", iPage
    Parse "EventsNavigator", False
  end if
'-------------------------------
' Events Navigation end
'-------------------------------

'-------------------------------
' Finish form processing
'-------------------------------
  set rs = nothing
  SetVar "EventsNoRecords", ""
  Parse "FormEvents", False

'-------------------------------
' Events Close Event begin
' Events Close Event end
'-------------------------------
End Sub
'===============================


'===============================
' Display Grid Form
'-------------------------------
Sub News_Show()
'-------------------------------
' Initialize variables  
'-------------------------------
  Dim rs
  Dim sWhere : sWhere = ""
  Dim sOrder : sOrder = ""
  Dim sSQL : sSQL = ""
  Dim sFormTitle: sFormTitle = "ÚLTIMES NOVETATS"
  Dim HasParam : HasParam = false
  Dim iRecordsPerPage : iRecordsPerPage = 20
  Dim iCounter : iCounter = 0

  SetVar "TransitParams", ""
  SetVar "FormParams", ""


  sWhere = " WHERE news_id=1"

'-------------------------------
' Build base SQL statement
'-------------------------------
  sSQL = "select [n].[news_html] as n_news_html " & _
    " from [news] n "
'-------------------------------

'-------------------------------
' News Open Event begin
' News Open Event end
'-------------------------------

'-------------------------------
' Assemble full SQL statement
'-------------------------------
  sSQL = sSQL & sWhere & sOrder
'-------------------------------

SetVar "FormTitle", sFormTitle

'-------------------------------
' Open the recordset
'-------------------------------
  openStaticRS rs, sSQL
'-------------------------------

'-------------------------------
' Process empty recordset
'-------------------------------
  if rs.eof then
    set rs = nothing
    SetVar "DListNews", ""
    Parse "NewsNoRecords", False
    Parse "FormNews", False
    exit sub
  end if
'-------------------------------

'-------------------------------
' Initialize page counter and records per page
'-------------------------------
  iRecordsPerPage = 20
  iCounter = 0
'-------------------------------

'-------------------------------
' Display grid based on recordset
'-------------------------------
  while not rs.EOF  and iCounter < iRecordsPerPage
'-------------------------------
' Create field variables based on database fields
'-------------------------------
    fldnews_html = GetValue(rs, "n_news_html")
'-------------------------------
' News Show begin
'-------------------------------

'-------------------------------
' News Show Event begin
' News Show Event end
'-------------------------------

'-------------------------------
' Replace Template fields with database values
'-------------------------------
    
      SetVar "news_html", fldnews_html
'-------------------------------
' Process the record separator
'-------------------------------
    if rs.EOF or iCounter = iRecordsPerPage-1 then
       SetVar "NewsRecordSeparator", ""
    else
      Parse "NewsRecordSeparator", false
    end if
'-------------------------------
    Parse "DListNews", True

'-------------------------------
' News Show end
'-------------------------------

'-------------------------------
' Move to the next record and increase record counter
'-------------------------------
    rs.MoveNext
    iCounter = iCounter + 1
  wend
'-------------------------------


'-------------------------------
' Finish form processing
'-------------------------------
  set rs = nothing
  SetVar "NewsNoRecords", ""
  Parse "FormNews", False

'-------------------------------
' News Close Event begin
' News Close Event end
'-------------------------------
End Sub
'===============================

%>