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


sFileName = "StatusMaint.asp"
sTemplateFileName = "StatusMaint.html"


' StatusMaint Open Event start
' StatusMaint Open Event end


' StatusMaint PageSecurity begin

CheckSecurity(3)

' StatusMaint PageSecurity end

' StatusMaint OpenAnyPage Event start
' StatusMaint OpenAnyPage Event end


LoadTemplate sAppPath & sTemplateFileName, "main"

LoadTemplate sHeaderFileName, "Header"


SetVar "FileName", sFileName


sStatusMaintErr = ""

sAction = GetParam("FormAction")
sForm = GetParam("FormName")
Select Case sForm
  Case "StatusMaint"
    StatusMaintAction(sAction)
end select

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

' StatusMaint Close Event start
' StatusMaint Close Event end


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


Sub StatusMaintAction(sAction)
  dim bExecSQL: bExecSQL = true
  
  ' StatusMaint Action begin
  sActionFileName = "StatusList.asp"
  
  

  sWhere = ""
  bErr = False  


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


  ' Load all form fields into variables

  fldstatus = GetParam("status")
  ' Validate fields
  if sAction = "insert" or sAction = "update" then
    if IsEmpty(fldstatus) then
      sStatusMaintErr = sStatusMaintErr & "The value in field Status is required.<br>"
    end if
' StatusMaint Check Event start
' StatusMaint Check Event end

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


  sSQL = ""
  ' Create SQL statement

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

      sSQL = "insert into statuses (" & _
          "[status])" & _
          " values (" & _
          ToSQL(fldstatus, "Text") & _
          ")"
    case "update"
      
' StatusMaint Update Event start
' StatusMaint Update Event end

      sSQL = "update statuses set " & _
        "[status]=" & ToSQL(fldstatus, "Text")
      sSQL = sSQL & " where " & sWhere
    case "delete"
' StatusMaint Delete Event start
' StatusMaint Delete Event end

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

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

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

Sub StatusMaint_Show()

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

  if sStatusMaintErr = "" then
    ' Load primary key and form parameters
    pstatus_id = GetParam("status_id")
    SetVar "StatusMaintError", ""
  else
    ' Load primary key, form parameters and form fields
    fldstatus_id = GetParam("status_id")
    fldstatus = GetParam("status")
    pstatus_id = GetParam("PK_status_id")
    SetVar "sStatusMaintErr", sStatusMaintErr
    Parse "StatusMaintError", False
  end if

  
  if IsEmpty(pstatus_id) then bPK = False
  
  sWhere = sWhere & "status_id=" & ToSQL(pstatus_id, "Number")
  SetVar "PK_status_id", pstatus_id
' StatusMaint Open Event start
' StatusMaint Open Event end


  sSQL = "select * from statuses where " & sWhere

  openrs rs, sSQL
	

  if bPK and not(sAction = "insert" and sForm = "StatusMaint") and not rs.eof then 
    
    fldstatus_id = GetValue(rs, "status_id")
    if sStatusMaintErr = "" then
      ' Load data from recordset when form displayed first time
      fldstatus = GetValue(rs, "status")
    end if
    SetVar "StatusMaintInsert", ""
    Parse "StatusMaintEdit", False
' StatusMaint ShowEdit Event start
' StatusMaint ShowEdit Event end

  else
    SetVar "StatusMaintEdit", ""
    Parse "StatusMaintInsert", False
' StatusMaint ShowInsert Event start
' StatusMaint ShowInsert Event end

  end if
  SetVar "StatusMaintCancel", ""
' StatusMaint Show Event start
' StatusMaint Show Event end

  ' Show form field
  
      SetVar "status_id", ToHTML(fldstatus_id)
      SetVar "status", ToHTML(fldstatus)
  Parse "FormStatusMaint", False
  
' StatusMaint Close Event start
' StatusMaint Close Event end

  ' StatusMaint Show end
  
End Sub

%>

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