statuslist.asp

BugTrack is a basic, yet fully functional web based Bug Tracking system that you may use as a framew

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

<%
'
'   Filename: StatusList.asp
'   Generated with CodeCharge 1.2.0
'   ASPTemplates.ccp build 5/9/2001
'


sFileName = "StatusList.asp"
sTemplateFileName = "StatusList.html"


' StatusList Open Event start
' StatusList Open Event end


' StatusList PageSecurity begin

CheckSecurity(3)

' StatusList PageSecurity end

' StatusList OpenAnyPage Event start
' StatusList OpenAnyPage Event end


LoadTemplate sAppPath & sTemplateFileName, "main"

LoadTemplate sHeaderFileName, "Header"


SetVar "FileName", sFileName


Menu_Show
StatusList_Show
Parse "Header", False
Parse "main", False
Response.write PrintVar("main")

' StatusList Close Event start
' StatusList Close Event end


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



Sub StatusList_Show()
  
  Dim sWhere, sOrder, sSQL, HasParam
  sWhere = ""
  sOrder = ""
  sSQL = ""
  HasParam = false

  SetVar "TransitParams", ""
  SetVar "FormParams", ""

' Build WHERE statement

  ' Build ORDER statement
  sOrder = " order by s.status_id Asc"
  iSort = GetParam("FormStatusList_Sorting")
  iSorted = GetParam("FormStatusList_Sorted")
  sDirection = ""
  if IsEmpty(iSort) then
    SetVar "Form_Sorting", ""
  else
    if iSort = iSorted then 
      SetVar "Form_Sorting", ""
      sDirection = " DESC"
      sSortParams = "FormStatusList_Sorting=" & iSort & "&FormStatusList_Sorted=" & iSort & "&"
    else
      SetVar "Form_Sorting", iSort
      sDirection = " ASC"
      sSortParams = "FormStatusList_Sorting=" & iSort & "&FormStatusList_Sorted=" & "&"
    end if
    
    if iSort = 1 then sOrder = " order by s.[status]" & sDirection
  end if
  

  ' Build full SQL statement
  
  sSQL = "select [s].[status] as s_status, " & _
    "[s].[status_id] as s_status_id " & _
    " from [statuses] s "

' StatusList Open Event start
' StatusList Open Event end

  sSQL = sSQL & sWhere & sOrder

  
  SetVar "FormAction", "StatusMaint.asp"
  SetVar "SortParams", sSortParams
  

  ' Open recordset

  openrs rs, sSQL
	
  
  if rs.eof then
    ' Recordset is empty
    set rs = nothing
    SetVar "DListStatusList", ""
    Parse "StatusListNoRecords", False
    SetVar "StatusListNavigator", ""
    Parse "FormStatusList", False
    exit sub
  end if


  iRecordsPerPage = 20
  iCounter = 0
  ' Select current page
  iPage = GetParam("FormStatusList_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
  

  ' Show main table based on recordset
  while not rs.EOF  and iCounter < iRecordsPerPage
    fldstatus_URLLink = "StatusMaint.asp"
    fldstatus_status_id = GetValue(rs, "s_status_id")
    fldstatus = GetValue(rs, "s_status")
    fldstatus_id = GetValue(rs, "s_status_id")
    ' StatusList Show begin
    
' StatusList Show Event start
' StatusList Show Event end


      SetVar "status_id", ToHTML(fldstatus_id)
      SetVar "status", ToHTML(fldstatus)
      SetVar "status_URLLink", "StatusMaint.asp"
      SetVar "Prmstatus_status_id", ToURL(fldstatus_status_id)
    Parse "DListStatusList", True
    ' StatusList Show end
    
    rs.MoveNext

    iCounter = iCounter + 1
  wend

  ' StatusList Navigation begin
  isEndOfRS = rs.EOF
  ' Parse Navigator
  if isEndOfRS and iPage = 1 then
    SetVar "StatusListNavigator", ""
  else
    if isEndOfRS then
      SetVar "StatusListNavigatorLastPage", "_"
    else
      SetVar "NextPage", (iPage + 1)
    end if
    if iPage = 1 then
      SetVar "StatusListNavigatorFirstPage", "_"
    else
      SetVar "PrevPage", (iPage - 1)
    end if

    SetVar "StatusListCurrentPage", iPage
    Parse "StatusListNavigator", False
  end if
  ' StatusList Navigation end
  set rs = nothing
  SetVar "StatusListNoRecords", ""
  Parse "FormStatusList", False
  
' StatusList Close Event start
' StatusList Close Event end

End Sub

%>

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