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


sFileName = "EmployeeList.asp"
sTemplateFileName = "EmployeeList.html"


' EmployeeList Open Event start
' EmployeeList Open Event end


' EmployeeList PageSecurity begin

CheckSecurity(3)

' EmployeeList PageSecurity end

' EmployeeList OpenAnyPage Event start
' EmployeeList OpenAnyPage Event end


LoadTemplate sAppPath & sTemplateFileName, "main"

LoadTemplate sHeaderFileName, "Header"


SetVar "FileName", sFileName


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

' EmployeeList Close Event start
' EmployeeList Close Event end


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



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

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

' Build WHERE statement

  ' Build ORDER statement
  sOrder = " order by e.employee_name Asc"
  iSort = GetParam("FormEmployees_Sorting")
  iSorted = GetParam("FormEmployees_Sorted")
  sDirection = ""
  if IsEmpty(iSort) then
    SetVar "Form_Sorting", ""
  else
    if iSort = iSorted then 
      SetVar "Form_Sorting", ""
      sDirection = " DESC"
      sSortParams = "FormEmployees_Sorting=" & iSort & "&FormEmployees_Sorted=" & iSort & "&"
    else
      SetVar "Form_Sorting", iSort
      sDirection = " ASC"
      sSortParams = "FormEmployees_Sorting=" & iSort & "&FormEmployees_Sorted=" & "&"
    end if
    
    if iSort = 1 then sOrder = " order by e.[employee_name]" & sDirection
    if iSort = 2 then sOrder = " order by e.[email]" & sDirection
  end if
  

  ' Build full SQL statement
  
  sSQL = "select [e].[email] as e_email, " & _
    "[e].[employee_id] as e_employee_id, " & _
    "[e].[employee_name] as e_employee_name " & _
    " from [employees] e "

' Employees Open Event start
' Employees Open Event end

  sSQL = sSQL & sWhere & sOrder

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

  ' Open recordset

  openrs rs, sSQL
	
  
  if rs.eof then
    ' Recordset is empty
    set rs = nothing
    SetVar "DListEmployees", ""
    Parse "EmployeesNoRecords", False
    SetVar "EmployeesNavigator", ""
    Parse "FormEmployees", False
    exit sub
  end if


  iRecordsPerPage = 20
  iCounter = 0
  ' Select current page
  iPage = GetParam("FormEmployees_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
    fldemail = GetValue(rs, "e_email")
    fldemployee_id = GetValue(rs, "e_employee_id")
    fldemployee_name_URLLink = "EmployeeMaint.asp"
    fldemployee_name_employee_id = GetValue(rs, "e_employee_id")
    fldemployee_name = GetValue(rs, "e_employee_name")
    ' Employees Show begin
    
' Employees Show Event start
' Employees Show Event end


      SetVar "employee_id", ToHTML(fldemployee_id)
      SetVar "employee_name", ToHTML(fldemployee_name)
      SetVar "employee_name_URLLink", "EmployeeMaint.asp"
      SetVar "Prmemployee_name_employee_id", ToURL(fldemployee_name_employee_id)
      SetVar "email", ToHTML(fldemail)
    Parse "DListEmployees", True
    ' Employees Show end
    
    rs.MoveNext

    iCounter = iCounter + 1
  wend

  ' Employees Navigation begin
  isEndOfRS = rs.EOF
  ' Parse Navigator
  if isEndOfRS and iPage = 1 then
    SetVar "EmployeesNavigator", ""
  else
    if isEndOfRS then
      SetVar "EmployeesNavigatorLastPage", "_"
    else
      SetVar "NextPage", (iPage + 1)
    end if
    if iPage = 1 then
      SetVar "EmployeesNavigatorFirstPage", "_"
    else
      SetVar "PrevPage", (iPage - 1)
    end if

    SetVar "EmployeesCurrentPage", iPage
    Parse "EmployeesNavigator", False
  end if
  ' Employees Navigation end
  set rs = nothing
  SetVar "EmployeesNoRecords", ""
  Parse "FormEmployees", False
  
' Employees Close Event start
' Employees Close Event end

End Sub

%>

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