Bulk Update Notification Types

Back to Calendar List View

<% ' Check for success/error messages Dim updated, errors updated = Request.QueryString("updated") errors = Request.QueryString("errors") If updated <> "" Then %>

Success! Updated <%=updated%> notification(s). <% If errors <> "" And errors <> "0" Then %>
Warning: <%=errors%> notification(s) failed to update. <% End If %>

<% End If %>

Instructions: Select the appropriate notification type for each notification below, then click "Save All Changes" at the bottom.

Notification Type Legend:

TBD - Type to be determined (gray on calendar)
Awareness - General awareness notification (green on calendar)
Change - Scheduled change or maintenance (yellow on calendar)
Incident - Active incident or outage (red on calendar)

<% ' Fetch all active notifications Dim strSQL, rs strSQL = "SELECT n.notificationid, n.notification, n.starttime, n.endtime, n.ticketnumber, " & _ "n.notificationtypeid, nt.typename " & _ "FROM notifications n " & _ "LEFT JOIN notificationtypes nt ON n.notificationtypeid = nt.notificationtypeid " & _ "WHERE n.isactive = 1 " & _ "ORDER BY n.starttime DESC" Set rs = objconn.Execute(strSQL) Dim count count = 0 If Not rs.EOF Then Do While Not rs.EOF count = count + 1 Dim currentType, currentTypeName If IsNull(rs("notificationtypeid")) Then currentType = 1 currentTypeName = "TBD" Else currentType = rs("notificationtypeid") currentTypeName = rs("typename") End If %>

<%=rs("notification")%>

Date: <%=FormatDateTime(rs("starttime"), 2)%> <% If Not IsNull(rs("endtime")) And rs("endtime") <> "" Then %> to <%=FormatDateTime(rs("endtime"), 2)%> <% Else %> ONGOING <% End If %> <% If Not IsNull(rs("ticketnumber")) And rs("ticketnumber") <> "" Then %> | Ticket: <%=rs("ticketnumber")%> <% End If %>

Current Type: <%=currentTypeName%>

New Type:

<% rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close %> <% If count > 0 Then %>

<% Else %>

No active notifications found.

<% End If %>