<%
' Initialize error handling
Call InitializeErrorHandling("savemodel.asp")
' Get and validate all inputs
Dim modelnumber, vendorid, notes, documentationpath
Dim newvendorname, isprinter, ispc, ismachine
Dim modelisprinter, modelispc, modelismachine
modelnumber = Trim(Request.Form("modelnumber"))
vendorid = Trim(Request.Form("vendorid"))
notes = Trim(Request.Form("notes"))
documentationpath = Trim(Request.Form("documentationpath"))
' New vendor fields
newvendorname = Trim(Request.Form("newvendorname"))
isprinter = Request.Form("isprinter")
ispc = Request.Form("ispc")
ismachine = Request.Form("ismachine")
' Model type checkboxes (NOTE: these are different from vendor checkboxes above)
modelisprinter = Request.Form("modelisprinter")
modelispc = Request.Form("modelispc")
modelismachine = Request.Form("modelismachine")
' Validate required fields
If modelnumber = "" Then
Call HandleValidationError("addmodel.asp", "INVALID_INPUT")
End If
' Validate field lengths
If Len(modelnumber) > 255 Then
Call HandleValidationError("addmodel.asp", "INVALID_INPUT")
End If
If Len(notes) > 255 Then
Call HandleValidationError("addmodel.asp", "INVALID_INPUT")
End If
If Len(documentationpath) > 255 Then
Call HandleValidationError("addmodel.asp", "INVALID_INPUT")
End If
' Check if we need to create a new vendor first
If vendorid = "new" Then
If newvendorname = "" Then
Response.Write("
Error: Manufacturer name is required when adding a new manufacturer.
")
Response.Write("
Go back")
Call CleanupResources()
Response.End
End If
If Len(newvendorname) > 50 Then
Call HandleValidationError("addmodel.asp", "INVALID_INPUT")
End If
' Check if vendor already exists
Dim checkSQL, rsCheck
checkSQL = "SELECT COUNT(*) as cnt FROM vendors WHERE LOWER(vendor) = LOWER(?)"
Set rsCheck = ExecuteParameterizedQuery(objConn, checkSQL, Array(newvendorname))
If Not rsCheck.EOF Then
If Not IsNull(rsCheck("cnt")) Then
If CLng(rsCheck("cnt")) > 0 Then
rsCheck.Close
Set rsCheck = Nothing
Response.Write("
Error: Manufacturer '" & Server.HTMLEncode(newvendorname) & "' already exists.
")
Response.Write("
Go back")
Call CleanupResources()
Response.End
End If
End If
End If
rsCheck.Close
Set rsCheck = Nothing
' Insert new vendor
Dim vendorSQL, isPrinterVal, isPcVal, isMachineVal
If isprinter = "1" Then isPrinterVal = 1 Else isPrinterVal = 0
If ispc = "1" Then isPcVal = 1 Else isPcVal = 0
If ismachine = "1" Then isMachineVal = 1 Else isMachineVal = 0
vendorSQL = "INSERT INTO vendors (vendor, isactive, isprinter, ispc, ismachine) VALUES (?, 1, ?, ?, ?)"
Dim vendorParams
vendorParams = Array(newvendorname, isPrinterVal, isPcVal, isMachineVal)
Call ExecuteParameterizedInsert(objConn, vendorSQL, vendorParams)
' Get the new vendor ID
Set rsCheck = objConn.Execute("SELECT LAST_INSERT_ID() as newid")
vendorid = 0
If Not rsCheck.EOF Then
If Not IsNull(rsCheck("newid")) Then
vendorid = CLng(rsCheck("newid"))
End If
End If
rsCheck.Close
Set rsCheck = Nothing
Else
' Validate existing vendor ID
If Not ValidateID(vendorid) Then
Call HandleValidationError("addmodel.asp", "INVALID_ID")
End If
End If
' Now we need to update the vendor's type flags based on model type selection
' If model is for printer, ensure vendor.isprinter = 1, etc.
If modelisprinter = "1" OR modelispc = "1" OR modelismachine = "1" Then
Dim updateVendorSQL
updateVendorSQL = "UPDATE vendors SET "
Dim updateParts()
ReDim updateParts(-1)
If modelisprinter = "1" Then
ReDim Preserve updateParts(UBound(updateParts) + 1)
updateParts(UBound(updateParts)) = "isprinter = 1"
End If
If modelispc = "1" Then
ReDim Preserve updateParts(UBound(updateParts) + 1)
updateParts(UBound(updateParts)) = "ispc = 1"
End If
If modelismachine = "1" Then
ReDim Preserve updateParts(UBound(updateParts) + 1)
updateParts(UBound(updateParts)) = "ismachine = 1"
End If
If UBound(updateParts) >= 0 Then
updateVendorSQL = updateVendorSQL & Join(updateParts, ", ") & " WHERE vendorid = ?"
Call ExecuteParameterizedUpdate(objConn, updateVendorSQL, Array(vendorid))
End If
End If
' Check if model already exists for this vendor
checkSQL = "SELECT COUNT(*) as cnt FROM models WHERE LOWER(modelnumber) = LOWER(?) AND vendorid = ?"
Set rsCheck = ExecuteParameterizedQuery(objConn, checkSQL, Array(modelnumber, vendorid))
If Not rsCheck.EOF Then
If Not IsNull(rsCheck("cnt")) Then
If CLng(rsCheck("cnt")) > 0 Then
rsCheck.Close
Set rsCheck = Nothing
Response.Write("
Error: Model '" & Server.HTMLEncode(modelnumber) & "' already exists for this manufacturer.
")
Response.Write("
Go back")
Call CleanupResources()
Response.End
End If
End If
End If
rsCheck.Close
Set rsCheck = Nothing
' Insert the new model
Dim modelSQL, modelParams
modelSQL = "INSERT INTO models (modelnumber, vendorid, notes, documentationpath, isactive) VALUES (?, ?, ?, ?, 1)"
modelParams = Array(modelnumber, vendorid, notes, documentationpath)
Dim recordsAffected
recordsAffected = ExecuteParameterizedInsert(objConn, modelSQL, modelParams)
' Get the new model ID
Dim newModelId
Set rsCheck = objConn.Execute("SELECT LAST_INSERT_ID() as newid")
newModelId = 0
If Not rsCheck.EOF Then
If Not IsNull(rsCheck("newid")) Then
newModelId = CLng(rsCheck("newid"))
End If
End If
rsCheck.Close
Set rsCheck = Nothing
' Cleanup resources
Call CleanupResources()
' Redirect back to where they came from or to a success page
If recordsAffected > 0 And newModelId > 0 Then
Response.Write("
Model added successfully!
")
Response.Write("
Model '" & Server.HTMLEncode(modelnumber) & "' has been added.
")
Response.Write("
Add Another Model ")
Response.Write("Add Printer ")
Response.Write("Add Machine
")
Else
Response.Write("
Error: Model was not added successfully.
")
Response.Write("
Go back")
End If
%>