<% sql = "SELECT Calendars.*, CalendarDates.ID, CalendarDates.NewsDate, CalendarType.CDescription FROM (CalendarDates INNER JOIN Calendars ON CalendarDates.NewsID = Calendars.NewsID) INNER JOIN CalendarType ON Calendars.type = CalendarType.CTypeID " sql = sql & "WHERE CalendarDates.ID=" & cint(Request("ID")) Set rs = Server.CreateObject("ADODB.Recordset") 'Create recordset object rs.Open sql, conn, 3, 3 'Open recordset %>

<% 'If the headline is set to visible then write the date and the headline otherwise only write the date If rs("headline_visible") = 0 then response.write FormatDateTime(rs("NewsDate"),1) Else response.write FormatDateTime(rs("NewsDate"),1) & " - " & ucase(rs("Headline")) End If %>

<% 'Establish Primary Image and its alignment location on the page If trim(rs("ImageSide")) ="center" and rs("Image1") <>"" then %>

" border="0" align="" alt="<%=rs("Text1")%>" hspace="5" vspace="5">
<%=rs("Text1")%>
<% Else If rs("Image1") <>"" then %> ">

" border="0" align="" alt="<%=rs("Text1")%>" hspace="5" vspace="5">
<%=rs("Text1")%>

<% End If End If 'Establish subheader if appropriate If rs("Subhead") <> "" then %> <%=rs("Subhead")%>

<% End If 'Establish the text for the Body of the detail page if appropriate If Instr(rs("Body"),"

")<1 then NewString = Replace(rs("Body"), vbCrLf, "
", 1) NewString = Replace(NewString, vbLf, "
", 1) NewString = Replace(NewString, vbCr, "
", 1) else NewString = rs("Body") End If response.write NewString %>

<% 'Establish Related Links if appropriate RLinks=0 For i=1 to 5 If rs("Link" & i & "Text") <> "" Then RLinks=1 End If Next If RLinks<>0 then %> RELATED LINKS
<% 'Cycle through and poopulate related links For i=1 to 5 If rs("Link" & i & "Text") <> "" Then If rs("Link" & i & "Loc") <> 1 Then %> "><%=rs("Link" & i & "Text")%>
<% Else %> "><%=rs("Link" & i & "Text")%>
<% End If End If Next %>

<% 'Establish Additional Images if Appropriate End If For i=2 to 15 If rs("Image" & i) <> "" Then image_list= image_list & "," & rs("Image" & i) text_list= text_list & "}" & rs("text" & i) End If Next image_array= split(image_list,",") text_array= split(text_list,"}") 'If there are additional images create the title for the section If isarray(image_array) and ubound(image_array) > 0 then If rs("addit_images") then %> ADDITIONAL IMAGES
<%End If%>

<% 'Populate the table with the additional images for i = 1 to ubound(image_array) if i = ubound(image_array) then %> <% Else %> <% i = i + 1%> <% End If Next %>

<%= text_array(i) %>
<%= text_array(i) %>	<%= text_array(i) %>

<% End If Erase image_array Erase text_array %>

« back

<% rs.close 'Close recordset set rs=nothing %>