<%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 "

Har Zion is today a congregation of more than 1400 member-families. Our size is the source of our strength, demanding diversity and choice in every aspect of synagogue life. At the same time there is an atmosphere of intimacy which fosters personal contact and sharing of individual interests and concerns.

" Response.Write "

We encourage you to explore this site to discover the many resources Har Zion offers its members.

" end if %>