prioritylist.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: PriorityList.asp
'   Generated with CodeCharge 1.2.0
'   ASPTemplates.ccp build 5/9/2001
'


sFileName = "PriorityList.asp"
sTemplateFileName = "PriorityList.html"


' PriorityList Open Event start
' PriorityList Open Event end


' PriorityList PageSecurity begin

CheckSecurity(3)

' PriorityList PageSecurity end

' PriorityList OpenAnyPage Event start
' PriorityList OpenAnyPage Event end


LoadTemplate sAppPath & sTemplateFileName, "main"

LoadTemplate sHeaderFileName, "Header"


SetVar "FileName", sFileName


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

' PriorityList Close Event start
' PriorityList Close Event end


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



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

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

' Build WHERE statement

  ' Build ORDER statement
  sOrder = " order by p.priority_desc Asc"

  ' Build full SQL statement
  
  sSQL = "select [p].[priority_desc] as p_priority_desc, " & _
    "[p].[priority_id] as p_priority_id " & _
    " from [priorities] p "

' PrioritiesList Open Event start
' PrioritiesList Open Event end

  sSQL = sSQL & sWhere & sOrder

  
  SetVar "FormAction", "PriorityMaint.asp"

  ' Open recordset

  openrs rs, sSQL
	
  
  if rs.eof then
    ' Recordset is empty
    set rs = nothing
    SetVar "DListPrioritiesList", ""
    Parse "PrioritiesListNoRecords", False
    Parse "FormPrioritiesList", False
    exit sub
  end if


  iRecordsPerPage = 20
  iCounter = 0

  ' Show main table based on recordset
  while not rs.EOF  and iCounter < iRecordsPerPage
    fldpriority_desc_URLLink = "PriorityMaint.asp"
    fldpriority_desc_priority_id = GetValue(rs, "p_priority_id")
    fldpriority_desc = GetValue(rs, "p_priority_desc")
    fldpriority_id = GetValue(rs, "p_priority_id")
    ' PrioritiesList Show begin
    
' PrioritiesList Show Event start
' PrioritiesList Show Event end


      SetVar "priority_id", ToHTML(fldpriority_id)
      SetVar "priority_desc", ToHTML(fldpriority_desc)
      SetVar "priority_desc_URLLink", "PriorityMaint.asp"
      SetVar "Prmpriority_desc_priority_id", ToURL(fldpriority_desc_priority_id)
    Parse "DListPrioritiesList", True
    ' PrioritiesList Show end
    
    rs.MoveNext

    iCounter = iCounter + 1
  wend

  set rs = nothing
  SetVar "PrioritiesListNoRecords", ""
  Parse "FormPrioritiesList", False
  
' PrioritiesList Close Event start
' PrioritiesList Close Event end

End Sub

%>

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