<%DIM COLORSCHEME : COLORSCHEME = "burgundy" %> <%DIM PAGETITLE : PAGETITLE = "title_har_zion_temple.gif"%> <% '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") if dDate = "" then dDate = null End if if iActive = "" Then iActive = 1 End if '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,,adOpenStatic,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,,adOpenStatic,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 "" ' Response.Write "

This page is your gateway to Har Zion Temple - a vibrant and welcoming congregation affiliated with the United Synagogue of Conservative Judaism. Click on the links above for information about our daily and Shabbat services, our schools, our clergy and our programs.

" ' Response.Write "

Har Zion's programs cover the full spectrum of Jewish life: cultural, educational, social, religious and spiritual. Har Zion is a place where learning for all ages is creative, dynamic and enriching.

" ' Response.Write "

If you are new to the community, we invite you to join us at Shabbat services, for a daily minyan or just to drop in to experience the everyday liveliness of our preschool, religious school, adult classes, youth activities, gift shop, and in summer, our day camp.

" ' Response.Write "

Our clergy, professional staff, lay leadership and congregants look forward to welcoming you. Our executive director, Karin Prince, would love to meet you, show you our building and answer any questions you have about Har Zion Temple. Stop in to see her anytime or make an appointment by calling 610-667-5000.

" 'end if %>






Har Zion Temple


This page is your gateway to Har Zion Temple - a vibrant and welcoming congregation affiliated with the United Synagogue of Conservative Judaism. Click on the links above for information about our daily and Shabbat services, our schools, our clergy and our programs.

Har Zion's programs cover the full spectrum of Jewish life: cultural, educational, social, religious and spiritual. Har Zion is a place where learning for all ages is creative, dynamic and enriching.

If you are new to the community, we invite you to join us at Shabbat services, for a daily minyan or just to drop in to experience the everyday liveliness of our preschool, religious school, adult classes, youth activities, gift shop, and in summer, our day camp.

Our clergy, professional staff, lay leadership and congregants look forward to welcoming you. Our executive director, Karin Prince, would love to meet you, show you our beautiful facility and answer any questions you have about Har Zion Temple. Stop in to see Karin anytime or make an appointment by calling 610-667-5000 or email kprince@harziontemple.org.