<%@ Language=VBScript %>
<%
Option Explicit
%>
<%
'=============================================================================
' FILE: editapplication_v2.asp (TEST VERSION)
' PURPOSE: Update an existing application record
'=============================================================================
Call InitializeErrorHandling("editapplication_v2.asp")
' Get and validate inputs
Dim appid, appname, appdescription, supportteamid
Dim applicationnotes, installpath, documentationpath, image
Dim isinstallable, isactive, ishidden, isprinter, islicenced
appid = Trim(Request.Form("appid"))
appname = Trim(Request.Form("appname"))
appdescription = Trim(Request.Form("appdescription"))
supportteamid = Trim(Request.Form("supportteamid"))
applicationnotes = Trim(Request.Form("applicationnotes"))
installpath = Trim(Request.Form("installpath"))
documentationpath = Trim(Request.Form("documentationpath"))
image = Trim(Request.Form("image"))
' Checkboxes - ensure they are always integers 0 or 1
If Request.Form("isinstallable") = "1" Then
isinstallable = 1
Else
isinstallable = 0
End If
If Request.Form("isactive") = "1" Then
isactive = 1
Else
isactive = 0
End If
If Request.Form("ishidden") = "1" Then
ishidden = 1
Else
ishidden = 0
End If
If Request.Form("isprinter") = "1" Then
isprinter = 1
Else
isprinter = 0
End If
If Request.Form("islicenced") = "1" Then
islicenced = 1
Else
islicenced = 0
End If
' Validate appid
If Not ValidateID(appid) Then
Call HandleValidationError("displayapplications.asp", "INVALID_ID")
End If
' Validate appname (required, 1-50 chars)
If Len(appname) < 1 Or Len(appname) > 50 Then
Call HandleValidationError("displayapplication.asp?appid=" & appid, "INVALID_INPUT")
End If
' Validate supportteamid
If Not ValidateID(supportteamid) Then
Call HandleValidationError("displayapplication.asp?appid=" & appid, "INVALID_ID")
End If
' Validate field lengths
If Len(appdescription) > 255 Then Call HandleValidationError("displayapplication.asp?appid=" & appid, "INVALID_INPUT")
If Len(applicationnotes) > 512 Then Call HandleValidationError("displayapplication.asp?appid=" & appid, "INVALID_INPUT")
If Len(installpath) > 255 Then Call HandleValidationError("displayapplication.asp?appid=" & appid, "INVALID_INPUT")
If Len(documentationpath) > 512 Then Call HandleValidationError("displayapplication.asp?appid=" & appid, "INVALID_INPUT")
If Len(image) > 255 Then Call HandleValidationError("displayapplication.asp?appid=" & appid, "INVALID_INPUT")
' DATABASE UPDATE
Dim strSQL
strSQL = "UPDATE applications SET " & _
"appname = ?, " & _
"appdescription = ?, " & _
"supportteamid = ?, " & _
"applicationnotes = ?, " & _
"installpath = ?, " & _
"documentationpath = ?, " & _
"image = ?, " & _
"isinstallable = ?, " & _
"isactive = ?, " & _
"ishidden = ?, " & _
"isprinter = ?, " & _
"islicenced = ? " & _
"WHERE appid = ?"
Dim recordsAffected
recordsAffected = ExecuteParameterizedUpdate(objConn, strSQL, Array( _
appname, appdescription, supportteamid, applicationnotes, _
installpath, documentationpath, image, _
CInt(isinstallable), CInt(isactive), CInt(ishidden), CInt(isprinter), CInt(islicenced), appid _
))
Call CheckForErrors()
Call CleanupResources()
If recordsAffected > 0 Then
Response.Redirect("displayapplication.asp?appid=" & Server.URLEncode(appid))
Else
Response.Write("")
Response.Write("Error: No records were updated.
")
Response.Write("Go Back
")
Response.Write("")
End If
%>