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


sFileName = "BugRecord.asp"
sTemplateFileName = "BugRecord.html"


' BugRecord Open Event start
' BugRecord Open Event end


' BugRecord PageSecurity begin

CheckSecurity(1)

' BugRecord PageSecurity end

' BugRecord OpenAnyPage Event start
' BugRecord OpenAnyPage Event end


LoadTemplate sAppPath & sTemplateFileName, "main"

LoadTemplate sHeaderFileName, "Header"


SetVar "FileName", sFileName


sBugsErr = ""

sAction = GetParam("FormAction")
sForm = GetParam("FormName")
Select Case sForm
  Case "Bugs"
    BugsAction(sAction)
end select

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

' BugRecord Close Event start
' BugRecord Close Event end


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


Sub BugsAction(sAction)
  dim bExecSQL: bExecSQL = true
  
  ' Bugs Action begin
  sActionFileName = "Default.asp"
  
  
  if sAction = "cancel" then
' Bugs BeforeCancel Event start
' Bugs BeforeCancel Event end

    response.redirect sActionFileName
  end if

  sWhere = ""
  bErr = False  


  ' Create WHERE statement
  if sAction = "update" or sAction = "delete" then
    pPKbug_id = GetParam("PK_bug_id")
    if IsEmpty(pPKbug_id) then exit sub
    sWhere = "bug_id=" & ToSQL(pPKbug_id, "Number")
  end if


  ' Load all form fields into variables

  fldUserID = Session("UserID")
  fldbug_name = GetParam("bug_name")
  fldbug_desc = GetParam("bug_desc")
  fldproject_id = GetParam("project_id")
  fldpriority_id = GetParam("priority_id")
  fldassigned_to = GetParam("assigned_to")
  flddate_assigned = GetParam("date_assigned")
  fldstatus_id = GetParam("status_id")
  flddate_resolved = GetParam("date_resolved")
  fldresolution = GetParam("resolution")
  ' Validate fields
  if sAction = "insert" or sAction = "update" then
    if IsEmpty(fldbug_name) then
      sBugsErr = sBugsErr & "The value in field Bug Name is required.<br>"
    end if
    if IsEmpty(fldproject_id) then
      sBugsErr = sBugsErr & "The value in field Project is required.<br>"
    end if
    if IsEmpty(fldpriority_id) then
      sBugsErr = sBugsErr & "The value in field Priority is required.<br>"
    end if
    if IsEmpty(fldassigned_to) then
      sBugsErr = sBugsErr & "The value in field Assigned To is required.<br>"
    end if
    if IsEmpty(fldstatus_id) then
      sBugsErr = sBugsErr & "The value in field Status is required.<br>"
    end if
    if not isNumeric(fldproject_id) then
      sBugsErr = sBugsErr & "The value in field Project is incorrect.<br>"
    end if
    if not isNumeric(fldpriority_id) then
      sBugsErr = sBugsErr & "The value in field Priority is incorrect.<br>"
    end if
    if not isNumeric(fldassigned_to) then
      sBugsErr = sBugsErr & "The value in field Assigned To is incorrect.<br>"
    end if
    if not isNumeric(fldstatus_id) then
      sBugsErr = sBugsErr & "The value in field Status is incorrect.<br>"
    end if
' Bugs Check Event start
' Bugs Check Event end

    If len(sBugsErr) > 0 then
      exit sub
    end if
  end if


  sSQL = ""
  ' Create SQL statement

  select case sAction
    case "insert"
      
' Bugs Insert Event start
' Bugs Insert Event end

      sSQL = "insert into bugs (" & _
          "[assigned_by]," & _
          "[bug_name]," & _
          "[bug_desc]," & _
          "[project_id]," & _
          "[priority_id]," & _
          "[assigned_to]," & _
          "[date_assigned]," & _
          "[status_id]," & _
          "[date_resolved]," & _
          "[resolution])" & _
          " values (" & _
          ToSQL(fldUserID, "Number") & "," & _
          ToSQL(fldbug_name, "Text") & "," & _
          ToSQL(fldbug_desc, "Memo") & "," & _
          ToSQL(fldproject_id, "Number") & "," & _
          ToSQL(fldpriority_id, "Number") & "," & _
          ToSQL(fldassigned_to, "Number") & "," & _
          ToSQL(flddate_assigned, "Text") & "," & _
          ToSQL(fldstatus_id, "Number") & "," & _
          ToSQL(flddate_resolved, "Text") & "," & _
          ToSQL(fldresolution, "Memo") & _
          ")"
    case "update"
      
' Bugs Update Event start
' Bugs Update Event end

      sSQL = "update bugs set " & _
        "[bug_name]=" & ToSQL(fldbug_name, "Text") & _
        ",[bug_desc]=" & ToSQL(fldbug_desc, "Memo") & _
        ",[project_id]=" & ToSQL(fldproject_id, "Number") & _
        ",[priority_id]=" & ToSQL(fldpriority_id, "Number") & _
        ",[assigned_to]=" & ToSQL(fldassigned_to, "Number") & _
        ",[date_assigned]=" & ToSQL(flddate_assigned, "Text") & _
        ",[status_id]=" & ToSQL(fldstatus_id, "Number") & _
        ",[date_resolved]=" & ToSQL(flddate_resolved, "Text") & _
        ",[resolution]=" & ToSQL(fldresolution, "Memo")
      sSQL = sSQL & " where " & sWhere
    case "delete"
' Bugs Delete Event start
' Bugs Delete Event end

      sSQL = "delete from bugs where " & sWhere
  end select

  ' Execute SQL statement
  
' Bugs BeforeExecute Event start
' Bugs BeforeExecute Event end

  if len(sBugsErr) > 0 then Exit Sub
  on error resume next
  if bExecSQL then 
    cn.execute sSQL
  end if
  sBugsErr = ProceedError
  if len(sBugsErr) > 0 then Exit Sub
  on error goto 0
  response.redirect sActionFileName
  ' Bugs Action end
end sub

Sub Bugs_Show()

  ' Bugs Show begin
  Dim sWhere, bPK
  sWhere = ""
  
  bPK = True

  if sBugsErr = "" then
    ' Load primary key and form parameters
    fldbug_id = GetParam("bug_id")
    pbug_id = GetParam("bug_id")
    SetVar "BugsError", ""
  else
    ' Load primary key, form parameters and form fields
    fldbug_id = GetParam("bug_id")
    fldbug_name = GetParam("bug_name")
    fldbug_desc = GetParam("bug_desc")
    fldproject_id = GetParam("project_id")
    fldpriority_id = GetParam("priority_id")
    fldassigned_to = GetParam("assigned_to")
    flddate_assigned = GetParam("date_assigned")
    fldstatus_id = GetParam("status_id")
    flddate_resolved = GetParam("date_resolved")
    fldresolution = GetParam("resolution")
    pbug_id = GetParam("PK_bug_id")
    fldassigned_by = Session("UserID")
    SetVar "sBugsErr", sBugsErr
    Parse "BugsError", False
  end if

  
  if IsEmpty(pbug_id) then bPK = False
  
  sWhere = sWhere & "bug_id=" & ToSQL(pbug_id, "Number")
  SetVar "PK_bug_id", pbug_id
' Bugs Open Event start
' Bugs Open Event end


  sSQL = "select * from bugs where " & sWhere

  openrsex rs, sSQL, adOpenStatic, adLockReadOnly, adCmdText
	

  if bPK and not(sAction = "insert" and sForm = "Bugs") and not rs.eof then 
    
    fldassigned_by = GetValue(rs, "assigned_by")
    fldbug_id = GetValue(rs, "bug_id")
    if sBugsErr = "" then
      ' Load data from recordset when form displayed first time
      fldbug_name = GetValue(rs, "bug_name")
      fldbug_desc = GetValue(rs, "bug_desc")
      fldproject_id = GetValue(rs, "project_id")
      fldpriority_id = GetValue(rs, "priority_id")
      fldassigned_to = GetValue(rs, "assigned_to")
      flddate_assigned = GetValue(rs, "date_assigned")
      fldstatus_id = GetValue(rs, "status_id")
      flddate_resolved = GetValue(rs, "date_resolved")
      fldresolution = GetValue(rs, "resolution")
    end if
    SetVar "BugsInsert", ""
    Parse "BugsEdit", False
' Bugs ShowEdit Event start
' Bugs ShowEdit Event end

  else
    if sBugsErr = "" then
      fldbug_id = ToHTML(GetParam("bug_id"))
      fldassigned_by = ToHTML(Session("UserID"))
      fldpriority_id= "3"
      fldstatus_id= "1"
    end if
    SetVar "BugsEdit", ""
    Parse "BugsInsert", False
' Bugs ShowInsert Event start
flddate_assigned=Date()
' Bugs ShowInsert Event end

  end if
  Parse "BugsCancel", false
  ' Set lookup fields
  fldassigned_by = DLookUp("employees", "employee_name", "employee_id=" & ToSQL(fldassigned_by, "Number"))
' Bugs Show Event start
' Bugs Show Event end

  ' Show form field
  
      SetVar "bug_id", ToHTML(fldbug_id)
      SetVar "bug_name", ToHTML(fldbug_name)
      SetVar "bug_desc", ToHTML(fldbug_desc)
      SetVar "LBproject_id", ""
      openrs rsproject_id, "select project_id, project_name from projects order by 2"
      while not rsproject_id.EOF
        SetVar "ID", GetValue(rsproject_id, 0) : SetVar "Value", GetValue(rsproject_id, 1)
        if cstr(GetValue(rsproject_id, 0)) = cstr(fldproject_id) then SetVar "Selected", "SELECTED" else SetVar "Selected", ""
        Parse "LBproject_id", True
        rsproject_id.MoveNext
      wend
      set rsproject_id = nothing
    
      SetVar "LBpriority_id", ""
      openrs rspriority_id, "select priority_id, priority_desc from priorities order by 2"
      while not rspriority_id.EOF
        SetVar "ID", GetValue(rspriority_id, 0) : SetVar "Value", GetValue(rspriority_id, 1)
        if cstr(GetValue(rspriority_id, 0)) = cstr(fldpriority_id) then SetVar "Selected", "SELECTED" else SetVar "Selected", ""
        Parse "LBpriority_id", True
        rspriority_id.MoveNext
      wend
      set rspriority_id = nothing
    
      SetVar "assigned_by", ToHTML(fldassigned_by)
      SetVar "LBassigned_to", ""
      openrs rsassigned_to, "select employee_id, employee_name from employees order by 2"
      while not rsassigned_to.EOF
        SetVar "ID", GetValue(rsassigned_to, 0) : SetVar "Value", GetValue(rsassigned_to, 1)
        if cstr(GetValue(rsassigned_to, 0)) = cstr(fldassigned_to) then SetVar "Selected", "SELECTED" else SetVar "Selected", ""
        Parse "LBassigned_to", True
        rsassigned_to.MoveNext
      wend
      set rsassigned_to = nothing
    
      SetVar "date_assigned", ToHTML(flddate_assigned)
      SetVar "LBstatus_id", ""
      openrs rsstatus_id, "select status_id, status from statuses order by 2"
      while not rsstatus_id.EOF
        SetVar "ID", GetValue(rsstatus_id, 0) : SetVar "Value", GetValue(rsstatus_id, 1)
        if cstr(GetValue(rsstatus_id, 0)) = cstr(fldstatus_id) then SetVar "Selected", "SELECTED" else SetVar "Selected", ""
        Parse "LBstatus_id", True
        rsstatus_id.MoveNext
      wend
      set rsstatus_id = nothing
    
      SetVar "date_resolved", ToHTML(flddate_resolved)
      SetVar "resolution", ToHTML(fldresolution)
  Parse "FormBugs", False
  
' Bugs Close Event start
' Bugs Close Event end

  ' Bugs Show end
  
End Sub

%>

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