<%'Include Data Connection%>
<%'Include ADO constants include file for VBScript%>
<%
'open data connection
OpenConn()
%>
<%
dim intYear
dim intPostingType
dim strPostingPath
dim intPostingId
dim rsPosting
'get the PostingId session variable into the intPostingId variable
intPostingId = Session("PostingId")
'set the strPostingPath with client path
strPostingPath = strCurrentURL
'get the PostingYear session variable into the intYear variable
intYear = Session("PostingYear")
'if the intYear variable is of numeric data type and is different than an empty string then...
If IsNumeric(intYear) And intYear <> "" Then
'cast intYear as an integer
intYear = CInt(intYear)
Else
'get the current year into the intYear variable
intYear = Year(Date())
End If
'if the intPostingId is different than an empty string then...
If intPostingId <> "" Then
'get year for posting
intYear = GetYearForPosting(CInt(intPostingId))
End If
'set the intPostingType variable with the PostingTypeId session variable
intPostingType = Session("PostingTypeId")
'write the page number menu system
'Response.Write GetYearMenu(1, intYear, strPostingPath)
'add a spacer
'Response.Write "
![]()
"
'if the intPostingId variable is of numeric data type and is different than an empty string then...
If IsNumeric(intPostingId) And intPostingId <> "" Then
'cast intPostingId as an integer
intPostingId = CInt(intPostingId)
'display the selected posting...
'get the related Posting information
Set rsPosting = GetSelectedPosting(CInt(intPostingId))
Response.Write "![]()
" & vbCRLF
Response.Write "" & SimpleDate(rsPosting("POSTING_DATE")) & "
" & vbCRLF
Response.Write "" & rsPosting("POSTING_TITLE_ENG") & "
" & vbCRLF
Response.Write "" & rsPosting("POSTING_BODY_ENG") & "
" & vbCRLF
'release the recordset from memory
rsPosting.Close
Set rsPosting = Nothing
'if the intPostingId variable is not of numeric data type or is not different than an empty string then...
Else
'display the posting index...
'set bolAdminView to false since this display is for Client purposes
bolAdminView = False
'set the strPostingPath with client path
strPostingPath = strCurrentURL & "?id="
'if the selected year is valid then...
If SelectedYearIsValid(intPostingType, intYear) Then
'write list of postings for the selected year
Response.Write ManagePostings(intPostingType, intYear, strPostingPath, bolAdminView)
Else
'write list of most recent (year) postings
Response.Write ManageRecentPostings(intPostingType, strPostingPath, bolAdminView)
End If
End If
'close data connection
Call CloseConn()
%>