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


sFileName = "PriorityMaint.asp"
sTemplateFileName = "PriorityMaint.html"


' PriorityMaint Open Event start
' PriorityMaint Open Event end


' PriorityMaint PageSecurity begin

CheckSecurity(3)

' PriorityMaint PageSecurity end

' PriorityMaint OpenAnyPage Event start
' PriorityMaint OpenAnyPage Event end


LoadTemplate sAppPath & sTemplateFileName, "main"

LoadTemplate sHeaderFileName, "Header"


SetVar "FileName", sFileName


sPriorityMaintErr = ""

sAction = GetParam("FormAction")
sForm = GetParam("FormName")
Select Case sForm
  Case "PriorityMaint"
    PriorityMaintAction(sAction)
end select

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

' PriorityMaint Close Event start
' PriorityMaint Close Event end


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


Sub PriorityMaintAction(sAction)
  dim bExecSQL: bExecSQL = true
  
  ' PriorityMaint Action begin
  sActionFileName = "PriorityList.asp"
  
  

  sWhere = ""
  bErr = False  


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


  ' Load all form fields into variables

  fldpriority_desc = GetParam("priority_desc")
  ' Validate fields
  if sAction = "insert" or sAction = "update" then
    if IsEmpty(fldpriority_desc) then
      sPriorityMaintErr = sPriorityMaintErr & "The value in field Priority is required.<br>"
    end if
' PriorityMaint Check Event start
' PriorityMaint Check Event end

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


  sSQL = ""
  ' Create SQL statement

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

      sSQL = "insert into priorities (" & _
          "[priority_desc])" & _
          " values (" & _
          ToSQL(fldpriority_desc, "Text") & _
          ")"
    case "update"
      
' PriorityMaint Update Event start
' PriorityMaint Update Event end

      sSQL = "update priorities set " & _
        "[priority_desc]=" & ToSQL(fldpriority_desc, "Text")
      sSQL = sSQL & " where " & sWhere
    case "delete"
' PriorityMaint Delete Event start
' PriorityMaint Delete Event end

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

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

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

Sub PriorityMaint_Show()

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

  if sPriorityMaintErr = "" then
    ' Load primary key and form parameters
    fldpriority_id = GetParam("priority_id")
    ppriority_id = GetParam("priority_id")
    SetVar "PriorityMaintError", ""
  else
    ' Load primary key, form parameters and form fields
    fldpriority_id = GetParam("priority_id")
    fldpriority_desc = GetParam("priority_desc")
    ppriority_id = GetParam("PK_priority_id")
    SetVar "sPriorityMaintErr", sPriorityMaintErr
    Parse "PriorityMaintError", False
  end if

  
  if IsEmpty(ppriority_id) then bPK = False
  
  sWhere = sWhere & "priority_id=" & ToSQL(ppriority_id, "Number")
  SetVar "PK_priority_id", ppriority_id
' PriorityMaint Open Event start
' PriorityMaint Open Event end


  sSQL = "select * from priorities where " & sWhere

  openrs rs, sSQL
	

  if bPK and not(sAction = "insert" and sForm = "PriorityMaint") and not rs.eof then 
    
    fldpriority_id = GetValue(rs, "priority_id")
    if sPriorityMaintErr = "" then
      ' Load data from recordset when form displayed first time
      fldpriority_desc = GetValue(rs, "priority_desc")
    end if
    SetVar "PriorityMaintInsert", ""
    Parse "PriorityMaintEdit", False
' PriorityMaint ShowEdit Event start
' PriorityMaint ShowEdit Event end

  else
    if sPriorityMaintErr = "" then
      fldpriority_id = ToHTML(GetParam("priority_id"))
    end if
    SetVar "PriorityMaintEdit", ""
    Parse "PriorityMaintInsert", False
' PriorityMaint ShowInsert Event start
' PriorityMaint ShowInsert Event end

  end if
  SetVar "PriorityMaintCancel", ""
' PriorityMaint Show Event start
' PriorityMaint Show Event end

  ' Show form field
  
      SetVar "priority_id", ToHTML(fldpriority_id)
      SetVar "priority_desc", ToHTML(fldpriority_desc)
  Parse "FormPriorityMaint", False
  
' PriorityMaint Close Event start
' PriorityMaint Close Event end

  ' PriorityMaint Show end
  
End Sub

%>

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