Announcements

<% 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_SelectAnnouncementsInactive" .CommandType = adCmdStoredProc .Execute set oRs = Server.CreateObject("ADODB.Recordset") with oRs .Open oCmd,,adOpenForwardOnly,adLockReadOnly while not .EOF Response.Write "

• " & .Fields("AnnouncementTitle").Value & " - " & .Fields("AnnouncementDate").Value & "

  " Response.Write "

  " & .Fields("ShortDescription").Value & "

" & vbCrLf .MoveNext wend end with oRs.close set oRs = nothing end with set oCmd = nothing oConn.Close set oConn = nothing %>