% theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF Dim pcid, isScanned pcid = Request.QueryString("pcid") isScanned = Request.QueryString("scanned") ' Validate pcid If Not IsNumeric(pcid) Or CLng(pcid) < 1 Then Response.Write("Invalid device ID") Response.End End If ' Get PC data using parameterized query Dim strSQL, rs strSQL = "SELECT pc.*, pcstatus.pcstatus, pctype.typename " & _ "FROM pc " & _ "LEFT JOIN pcstatus ON pc.pcstatusid = pcstatus.pcstatusid " & _ "LEFT JOIN pctype ON pc.pctypeid = pctype.pctypeid " & _ "WHERE pc.pcid = ?" Set rs = ExecuteParameterizedQuery(objconn, strSQL, Array(CLng(pcid))) If rs.EOF Then Response.Write("Device not found") Response.End End If %>