<% Dim strSQL, rs strSQL = "SELECT n.*, nt.typename, nt.typecolor, bu.businessunit " & _ "FROM notifications n " & _ "LEFT JOIN notificationtypes nt ON n.notificationtypeid = nt.notificationtypeid " & _ "LEFT JOIN businessunits bu ON n.businessunitid = bu.businessunitid " & _ "ORDER BY n.notificationid DESC" Set rs = objconn.Execute(strSQL) If rs.EOF Then Response.Write("") Else Do While Not rs.EOF Dim statusText, statusClass, typeText, typeColor If CBool(rs("isactive")) = True Then statusText = "Active" statusClass = "success" Else statusText = "Inactive" statusClass = "secondary" End If ' Get notification type info If IsNull(rs("typename")) Or rs("typename") = "" Then typeText = "TBD" typeColor = "secondary" Else typeText = rs("typename") typeColor = rs("typecolor") End If ' Get business unit info Dim businessUnitText If IsNull(rs("businessunit")) Or rs("businessunit") = "" Then businessUnitText = "All" Else businessUnitText = Server.HTMLEncode(rs("businessunit")) End If Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") ' Shopfloor Dashboard column Dim shopfloorText, shopfloorIcon If CBool(rs("isshopfloor")) = True Then shopfloorText = "Yes" shopfloorIcon = "" Else shopfloorText = "No" shopfloorIcon = "" End If Response.Write("") Response.Write("") Response.Write("") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close %>

Message	Type	Business Unit	Ticket	Start Time	End Time	Status	Shopfloor	Actions
No notifications found.
" & Server.HTMLEncode(rs("notification") & "") & "	" & typeText & "	" & businessUnitText & "	" & Server.HTMLEncode(rs("ticketnumber") & "") & "	" & rs("starttime") & "	" & rs("endtime") & "	" & statusText & "	" & shopfloorIcon & "	") Response.Write(" ") If CBool(rs("isactive")) = True Then Response.Write("") Else Response.Write("") End If Response.Write("