<%DIM COLORSCHEME : COLORSCHEME = "burgundy" %> <%DIM PAGETITLE : PAGETITLE = "title_har_zion_temple.gif"%> <% 'Kevin, should we do these as Arrays instead? For now I'll hard code them to 3 DIM highlightsPic1 : highlightsPic1 = "picture_11.jpg" DIM highlightsPic2 : highlightsPic2 = "picture_10.jpg" DIM highlightsPic3 : highlightsPic3 = "picture_09.jpg" DIM highlightsCaption1 : highlightsCaption1 = "Stained Glass Window" DIM highlightsCaption2 : highlightsCaption2 = "Stained Glass Window" DIM highlightsCaption3 : highlightsCaption3 = "Stained Glass Window" DIM highlightsLink1: highlightsLink1 = null DIM highlightsLink2: highlightsLink2 = null DIM highlightsLink3: highlightsLink3 = null %> <% Dim oConn Dim oCmd Dim oRs Dim bSpecialHeader: bSpecialHeader = false Dim bHighlightsHeader: bHighlightsHeader = false Dim sAnnouncementText: sAnnouncementText = "" DIM dDate : dDate = Request.QueryString("Date") DIM iActive : iActive = Request.QueryString("Active") '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_SelectHomePageAnnouncements" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@dDate", adVarchar, adParamInput, 20, dDate) .Parameters.Append .CreateParameter("@Active", adInteger, adParamInput, 4, iActive) .Execute set oRs = Server.CreateObject("ADODB.Recordset") with oRs .Open oCmd,,adOpenForwardOnly,adLockReadOnly while not .EOF if trim(oRs.Fields("Category")) = "SPECIAL" then if not bSpecialHeader then %> <% end if%>
  <% Response.Write vbcrlf & "" bSpecialHeader = true end if if trim(oRs.Fields("Priority")) = 1 then sAnnouncementText = vbcrlf & "

" if trim(oRs.Fields("AnnouncementType")) = "CONTENT" then if (len(.Fields("LongDescription").Value) > 0) then sAnnouncementText = sAnnouncementText & "" end if else sAnnouncementText = sAnnouncementText & " "SAME" then sAnnouncementText = sAnnouncementText & " target=""_new""" end if sAnnouncementText = sAnnouncementText & """>" End if sAnnouncementText = sAnnouncementText & oRs.Fields("AnnouncementTitle").Value if (len(.Fields("LongDescription").Value) > 0) then sAnnouncementText = sAnnouncementText & "" end if sAnnouncementText = sAnnouncementText & "

" if (len(.Fields("ShortDescription").Value) > 0) then sAnnouncementText = sAnnouncementText & vbcrlf & "

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

" end if else sAnnouncementText = vbcrlf & "

" if trim(oRs.Fields("AnnouncementType")) = "CONTENT" then if (len(.Fields("LongDescription").Value) > 0) then sAnnouncementText = sAnnouncementText & "" end if 'sAnnouncementText = sAnnouncementText & "" else sAnnouncementText = sAnnouncementText & " "SAME" then sAnnouncementText = sAnnouncementText & " target=""_new""" end if sAnnouncementText = sAnnouncementText & """>" end if sAnnouncementText = sAnnouncementText & oRs.Fields("AnnouncementTitle").Value if (len(.Fields("LongDescription").Value) > 0) then sAnnouncementText = sAnnouncementText & "" end if sAnnouncementText = sAnnouncementText & "

" if (len(.Fields("ShortDescription").Value) > 0) then sAnnouncementText = sAnnouncementText & vbcrlf & "

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

" end if end if else 'if trim(oRs.Fields("Category")) = "SPECIAL" then if not bHighlightsHeader then if bSpecialHeader then%>
 
<% Dim oCmd2 Dim oRs2 dim iAnnouncementPhotos: iAnnouncementPhotos = 0 'Query Again for pictures set oCmd2 = server.CreateObject("ADODB.Command") with oCmd2 set .ActiveConnection = oConn .CommandText = "p_SelectHomePagePictures" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@dDate", adVarchar, adParamInput, 20, dDate) .Parameters.Append .CreateParameter("@Active", adInteger, adParamInput, 4, iActive) .Execute set oRs2 = Server.CreateObject("ADODB.Recordset") with oRs2 .Open oCmd2,,adOpenForwardOnly,adLockReadOnly while not .EOF ' Make Link for Image if trim(oRs2.Fields("AnnouncementType")) = "CONTENT" then sAnnouncementText = sAnnouncementText & "" else sAnnouncementText = sAnnouncementText & " "SAME" then sAnnouncementText = sAnnouncementText & " target=""_new""" end if sAnnouncementText = sAnnouncementText & """>" end if Response.write sAnnouncementText iAnnouncementPhotos = iAnnouncementPhotos + 1 Response.Write "" Response.Write "" Response.Write "
" ' Make Link for Caption if trim(oRs2.Fields("AnnouncementType")) = "CONTENT" then sAnnouncementText = sAnnouncementText & "" else sAnnouncementText = sAnnouncementText & " "SAME" then sAnnouncementText = sAnnouncementText & " target=""_new""" end if sAnnouncementText = sAnnouncementText & """>" end if Response.write sAnnouncementText Response.Write trim(oRs2.Fields("ImageCaption")) Response.Write "" Response.Write "
" .MoveNext wend End With oRs2.close set oRs2 = nothing End With while (3 - iAnnouncementPhotos) > 0 iAnnouncementPhotos = iAnnouncementPhotos + 1 Response.Write "" Response.Write "

" wend %>

<% Response.Write vbcrlf & "" bHighlightsHeader = true end if sAnnouncementText = vbcrlf & "

" if trim(oRs.Fields("AnnouncementType")) = "CONTENT" then sAnnouncementText = sAnnouncementText & "" else sAnnouncementText = sAnnouncementText & " "SAME" then sAnnouncementText = sAnnouncementText & " target=""_new""" end if sAnnouncementText = sAnnouncementText & """>" end if sAnnouncementText = sAnnouncementText & .Fields("AnnouncementTitle").Value sAnnouncementText = sAnnouncementText & "

" sAnnouncementText = sAnnouncementText & vbcrlf & "

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

" end if Response.write sAnnouncementText sAnnouncementText = "" .MoveNext wend end with oRs.close set oRs = nothing end with set oCmd = nothing oConn.Close set oConn = nothing if (not bSpecialHeader) and (not bHighlightsHeader) then Response.Write "

Har Zion welcomes you to our website.


" Response.Write "" end if %>