%@LANGUAGE="VBSCRIPT"%>
<%
' ================================
' AIS Debug variables
' ================================
Dim AISdebugSet
AISdebugSet = "N"
' =====================================
' Make sure to catch any database error
' =====================================
On Error Resume Next
' ================================
' AISNews Recordset and variables
' ================================
Dim AISNews
Dim AISNewsError
Dim AISNewsIndex
Set AISNews = Server.CreateObject("ADODB.Recordset")
AISNews.ActiveConnection = MM_Foundation_STRING
AISNews.Source = "select M.msg_id,M.title,M.abstract,M.author,M.details,M.urgency,M.msg_date,M.expiry_date,M.app_name,A.name from navigator.app_messages M, navigator.sys_applications A where M.app_name = A.code and trunc(sysdate) between M.msg_date and M.expiry_date-1 order by msg_date desc"
AISNews.CursorType = 0
AISNews.CursorLocation = 2
AISNews.LockType = 1
AISNews.Open()
' Check that DB connection and SQL run went fine
If Err.Number <> 0 Then
AISNewsError= Err.Description
Else
AISNewsError= "None"
End If
AISNewsIndex = 0
' ================================
' AISFocus Recordset and variables
' ================================
Dim AISFocus
Dim AISFocusError
Dim AISFocusIndex
Dim AISFocusShownAlways
Dim AISFocusToBeShown
Dim AISFocusRequestedId
Dim AISFocusContent
Dim AISUpperLeftImage
Dim AISUpperRightImage
Dim AISNextFocusId
Dim AISPreviousFocusId
Set AISFocus = Server.CreateObject("ADODB.Recordset")
AISFocus.ActiveConnection = MM_AISweb_STRING
AISFocus.Source = "SELECT id, title, text, upper_right_image, upper_left_image, date_from, date_to, always_shown FROM articles WHERE (articles.date_from<=Date() Or IsNull(articles.date_from)) And (articles.date_to>=Date() Or IsNull(articles.date_to)) ORDER BY articles.always_shown,articles.id;"
AISFocus.CursorType = 0
AISFocus.CursorLocation = 2
AISFocus.LockType = 1
AISFocus.Open()
' Check that DB connection and SQL run went fine
If Err.Number <> 0 Then
AISFocusError= Err.Description
Response.Write(""&AISFocusError&"")
Else
AISFocusError= "None"
End If
AISFocusRequestedId = Request.QueryString("focusid")
' ================================
' AIS Procedures used in page
' ================================
sub getFocus()
' ===========================================
' GET FOCUS
' This procedure build the focus and store it
' in the AISFocusContent variable
' ===========================================
If (AISFocus.EOF OR AISFocusError<> "None") Then
Call AISdebug("Focus query returned NO records - maybe database connection error or no focus active")
' No focus found, maybe an error connecting the database or none is active...
' Display a default hardcoded focus item
AISFocusContent= ""
AISFocusContent = AISFocusContent & "
CERN home > IT Department > AIS Home | Internal | |
AIS Administrative Information Services |
|
|
e-RTList of know bugs and enhancement requests from CERN users[back to e-Recruitment application home page] Please send any bug, enhancement requests, comments to Richard Kovacs and François Briard but make sure there are not already registered in the table below. Explanation on severity levels:
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Last update:
Tuesday, 18-Mar-2008 11:36
|