<%@ Language=VBScript %> <%dim colorScheme : colorScheme = "lavendar" %> <%dim pageTitle : pageTitle = "title_announcements.gif" %>

<% if len(Request.Item("AnnouncementID")) = 0 then Response.Write "

Please hit your browser's Back button and select an announcement.

" else Dim oConn Dim oCmd Dim oRs 'Create the command object to return the reports set oConn = Server.CreateObject("ADODB.Connection") with oConn .ConnectionString = Application("ConnString") .Open end with set oCmd = server.CreateObject("ADODB.Command") with oCmd set .ActiveConnection = oConn .CommandText = "p_SelectAnnouncement" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@AnnouncementID", adInteger, adParamInput, 4, Request.Item("AnnouncementID")) .Execute set oRs = Server.CreateObject("ADODB.Recordset") with oRs .Open oCmd,,adOpenForwardOnly,adLockReadOnly while not .EOF if oRs.Fields("Priority") = 1 then Response.write "

" & oRs.Fields("AnnouncementTitle").Value 'Response.write " - " & .Fields("AnnouncementDate").Value Response.write "

" else Response.Write "

" & .Fields("AnnouncementTitle").Value 'Response.Write " - " & .Fields("AnnouncementDate").Value Response.Write "

" end if Response.Write "

" & .Fields("LongDescription").Value & "

" & vbCrLf .MoveNext wend end with oRs.close set oRs = nothing end with set oCmd = nothing oConn.Close set oConn = nothing end if 'if len(Request.Item("AnnouncementID")) = 0 %>