<%@ 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 If Request.Form("isinstallable") = "1" Then isinstallable = 1 Else isinstallable = 0 If Request.Form("isactive") = "1" Then isactive = 1 Else isactive = 0 If Request.Form("ishidden") = "1" Then ishidden = 1 Else ishidden = 0 If Request.Form("isprinter") = "1" Then isprinter = 1 Else isprinter = 0 If Request.Form("islicenced") = "1" Then islicenced = 1 Else islicenced = 0 ' 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, _ isinstallable, isactive, ishidden, isprinter, 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 %>