b858d069c5
Share Toast Notifications: - Unified toast style across all pages (purple gradient, top-right position) - Updated displayapplication.asp, displaytopic.asp, displayudc.asp - Updated printerlinksgenerator.asp (replaced alert with toast) - Same text: "Link Copied!" / "This link will show the search term..." PC Scanning/Editing Fixes: - savedevicedirect.asp: Use machinetypeid=33 to detect PCs (not pctypeid) - savedevicedirect.asp: Use new Dell TBD model (ID 110) for new PCs - editpc.asp: Model dropdown includes current model even if vendor ispc=0 - editpc.asp: Fixed vendor query to use ispc=1 instead of ismachine=1 Database changes (manual): - Set ispc=1 for Dell, Dell Inc., DellInc., HP vendors - Created Dell TBD model (ID 110) as default PC model 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
90 lines
3.5 KiB
Plaintext
90 lines
3.5 KiB
Plaintext
<%
|
|
'=============================================================================
|
|
' FILE: savedevicedirect.asp
|
|
' PURPOSE: Create new PC with minimal required fields (PC-only scanner)
|
|
' SECURITY: Parameterized queries, HTML encoding, input validation
|
|
' UPDATED: 2025-12-09 - All PCs use machinetypeid 33, pctypeid determines type
|
|
'=============================================================================
|
|
%>
|
|
<!--#include file="./includes/sql.asp"-->
|
|
<!--#include file="./includes/response.asp"-->
|
|
<%
|
|
' Get the serial number from the form
|
|
Dim serialnumber
|
|
serialnumber = Trim(Request.Form("serialnumber"))
|
|
|
|
' Basic validation - serial number should not be empty and should be alphanumeric-ish
|
|
If serialnumber = "" Or Len(serialnumber) < 3 Or Len(serialnumber) > 100 Then
|
|
objConn.Close
|
|
ShowError "Invalid serial number. Must be 3-100 characters.", "adddevice.asp"
|
|
Response.End
|
|
End If
|
|
|
|
' Check if serial number already exists - PHASE 2: Use machines table
|
|
' Check ALL machines regardless of type to prevent duplicates
|
|
Dim checkSQL, rsCheck, cmdCheck, existingMachineID, existingMachineTypeID
|
|
checkSQL = "SELECT machineid, machinetypeid FROM machines WHERE serialnumber = ? AND isactive = 1"
|
|
Set cmdCheck = Server.CreateObject("ADODB.Command")
|
|
cmdCheck.ActiveConnection = objConn
|
|
cmdCheck.CommandText = checkSQL
|
|
cmdCheck.CommandType = 1
|
|
cmdCheck.Parameters.Append cmdCheck.CreateParameter("@serialnumber", 200, 1, 100, serialnumber)
|
|
|
|
Set rsCheck = cmdCheck.Execute
|
|
|
|
If Not rsCheck.EOF Then
|
|
' Serial number already exists - redirect to appropriate edit page
|
|
existingMachineID = rsCheck("machineid")
|
|
existingMachineTypeID = rsCheck("machinetypeid")
|
|
rsCheck.Close
|
|
Set rsCheck = Nothing
|
|
Set cmdCheck = Nothing
|
|
objConn.Close
|
|
|
|
' Redirect to PC edit page if it's a PC (machinetypeid 33), otherwise to machine edit page
|
|
If existingMachineTypeID = 33 Then
|
|
Response.Redirect("./editpc.asp?machineid=" & existingMachineID & "&scanned=1")
|
|
Else
|
|
Response.Redirect("./editmachine.asp?machineid=" & existingMachineID & "&scanned=1")
|
|
End If
|
|
Response.End
|
|
End If
|
|
|
|
rsCheck.Close
|
|
Set rsCheck = Nothing
|
|
Set cmdCheck = Nothing
|
|
|
|
' Insert new PC with minimal required fields - PHASE 2: Use machines table
|
|
' machinetypeid = 33 (PC), pctypeid = 1 (Standard)
|
|
' machinestatusid = 2 (Inventory)
|
|
' modelnumberid = 110 (Dell TBD - default PC model)
|
|
' maptop = 1519, mapleft = 1896 (default map location)
|
|
' hostname = serialnumber (default)
|
|
' isactive = 1
|
|
Dim insertSQL, cmdInsert
|
|
insertSQL = "INSERT INTO machines (serialnumber, hostname, machinetypeid, pctypeid, machinestatusid, modelnumberid, maptop, mapleft, isactive, lastupdated) " & _
|
|
"VALUES (?, ?, 33, 1, 2, 110, 1519, 1896, 1, NOW())"
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = insertSQL
|
|
cmdInsert.CommandType = 1
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@serialnumber", 200, 1, 100, serialnumber)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@hostname", 200, 1, 255, serialnumber)
|
|
|
|
On Error Resume Next
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number = 0 Then
|
|
Set cmdInsert = Nothing
|
|
objConn.Close
|
|
' Success - show success message
|
|
ShowSuccess "PC with serial '" & Server.HTMLEncode(serialnumber) & "' added successfully.", "adddevice.asp", "scanner"
|
|
Else
|
|
Dim insertErr
|
|
insertErr = Err.Description
|
|
Set cmdInsert = Nothing
|
|
objConn.Close
|
|
ShowError "Error adding PC: " & Server.HTMLEncode(insertErr), "adddevice.asp"
|
|
End If
|
|
%>
|