<%@ Language=VBScript codepage=1255 %> <% ' ********************** Demos Query Set demosRs = Server.CreateObject("ADODB.Recordset") demosRs.CursorLocation = 3 demosRs.CursorType = 3 demosRs.ActiveConnection = Conn demosSql = "SELECT * FROM Demos ORDER BY demos_location" demosRs.Open demosSql demosPath="data/demos/" i=0 '********************** Profile Query profileSql = "SELECT * FROM profile" set profileRs = Conn.Execute(profileSql) '********************** surveys Query surveysSql = "SELECT * FROM surveys" set surveysRs = Conn.Execute(surveysSql) '********************** flash Query flashSql = "SELECT * FROM flash" set flashRs = Conn.Execute(flashSql) flashFile = "data/flash/"&flashRs("flash_id")&"/"&flashRs("flash_file") '********************** shchavot Query shchavotSql = "SELECT * FROM shchavot ORDER BY shchavot_displayOrder" set shchavotRs = Conn.Execute(shchavotSql) '********************** yedaGroups Query yedaGroupsSql = "SELECT * FROM yedaGroups" set yedaGroupsRs = Conn.Execute(yedaGroupsSql) '********************** galeries Query galeriesSql = "SELECT * FROM galeries" set galeriesRs = Conn.Execute(galeriesSql) '********************** formGroups Query formGroupsSql = "SELECT * FROM formGroups" set formGroupsRs = Conn.Execute(formGroupsSql) '********************** forums Query forumsSql = "SELECT * FROM forums" set forumsRs = Conn.Execute(forumsSql) '********************** about Query aboutSql = "SELECT * FROM about" set aboutRs = Conn.Execute(aboutSql) %> האתר הרשמי של צופי ים תל אביב
<% do until demosRs.EOF i=i+1 currImg = "images/"&demosRs("demos_picture") currRef = demosPath&demosRs("demos_id")&"/"&demosRs("demos_file") %> <% if i=1 then %> <% end if %> <% if i=1 then %> <% end if %> <% demosRs.MoveNext loop %>
  צופי ים ת"א      רחוב אוסישקין 5, טלפון 5443157  03         מזכירות ארצית     
English הצטרפות בוגרים/הורים מרכז ידע טפסים גלריות פורומים שכבות אודות
<%=demosRs("demos_title")%>
<%=left(demosRs("demos_desc"),159)%> 		  
<% i=0 do until aboutRs.EOF i=i+1 currName = aboutRs("about_title") currRef = aboutRs("about_file") %> <% aboutRs.MoveNext loop %>
<%=currName%>
<% i=0 do until shchavotRs.EOF i=i+1 currName = shchavotRs("shchavot_name") currRef = "asp/shchavot/shichva.asp?shichvaId="&shchavotRs("shchavot_id") %> <% shchavotRs.MoveNext loop %>
    <%=currName%>    
<% i=0 do until forumsRs.EOF i=i+1 currName = forumsRs("forums_title") currRef = forumsRs("forums_file") %> <% forumsRs.MoveNext loop %>
    <%=currName%>    
<% i=0 do until galeriesRs.EOF i=i+1 currName = galeriesRs("galeries_title") currRef = galeriesRs("galeries_file") %> <% galeriesRs.MoveNext loop %>
    <%=currName%>    
    עוד גלריות...    
<% i=0 do until formGroupsRs.EOF i=i+1 currName = formGroupsRs("formGroups_group") currRef = "asp/forms/formLines.asp?formId="&formGroupsRs("formGroups_id") %> <% formGroupsRs.MoveNext loop %>
    <%=currName%>    
<% i=0 do until yedaGroupsRs.EOF i=i+1 currName = yedaGroupsRs("yedaGroups_group") currRef = "asp/yeda/yeda.asp?yedaGroupsId="&yedaGroupsRs("yedaGroups_id") %> <% yedaGroupsRs.MoveNext loop %>
    <%=currName%>    

patio aluminum furniture