| <% 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 %> | ||||
<%
Response.Write 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 " " ' 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 " " wend %> |
|
|
|
A warm welcome to the Har Zion Temple web site. Har Zion Temple, consistent with its history and traditions, is affiliated with the United Synagogue of Conservative Judaism. We are a welcoming place that is warm, friendly, inclusive and innovative. Har Zion’s environment embraces programming which covers the full spectrum of Jewish life: cultural, educational, social, religious, and spiritual. Har Zion is a place where learning for all ages is creative, and dynamic. Our most valuable asset is our congregants themselves. Involvement in the life of the congregation and services to the community is encouraged and made accessible by clergy, professional staff and volunteer leaders. We invite you to explore this site and learn more about Har Zion Temple and we encourage you to visit us in person. For more information or to make an appointment, kindly call Barbara Schwartz, our membership coordinator, at (610) 667-5000. <% Response.Write 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 %> |
- a vibrant and welcoming congregation affiliated with the United Synagogue of Conservative Judaism.
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 would love to meet you, show you our beautiful facility and answer any questions you have about Har Zion Temple. Please stop in or call 610-667-5000 to make an appointment.