<% dim i, Arr1, NumOfRecords1, rowId, link_to_article, credit, article_date, file_name dim url, date_day, date_month, date_year, target, url_address dim selected_file_name_flag, selected_url_address_flag sql = "SELECT rowId, link_to_article, credit, article_date, file_name," &_ " date_day, date_month, date_year, url_address" &_ " FROM press_releases" &_ " WHERE show_on_site = " & true &_ " ORDER BY article_date DESC" rsAdmin.open sql if not rsAdmin.eof then rsAdmin.MoveFirst Arr1 = array() Arr1 = rsAdmin.GetRows ' הכנסת הפרטים אל מערך דו מימדי NumOfRecords1 = ubound(Arr1,2) end if rsAdmin.close %> Denx
 
 
<% ' אם קיימות רשומות if NumOfRecords1 <> "" then ' ריצה על כל הרשומות לצורך הצגת הקישורים for i = 0 to NumOfRecords1 rowId = Arr1(0,i) ' מספר הרשומה link_to_article = Replace(Arr1(1,i),vbcrlf,"
") ' הקישור אשר בלחיצה עליו נפתח המאמר credit = Replace(Arr1(2,i),vbcrlf,"
") ' מקור המאמר ' אם קיים ערך הדבר אומר שקיים קובץ שצריך להיפתח על ידי לחיצה על הקישור ואשר אינו ' html כך שעליו להיפתח באופן עצמאי ולא בדף המיועד להצגת מאמרי html קובץ file_name = Arr1(4,i) ' אם קיים ערך הדבר אומר שיש להציד קישור לאתר באינטרנט url_address = Arr1(8,i) date_day = Arr1(5,i) ' חלק היום של התאריך date_month = Arr1(6,i) ' חלק החודש של התאריך date_year = Arr1(7,i) ' חלק השנה של התאריך ' url או פותחת קובץ חיצוני או פותחת כתובת html הקוד הבא בודק אם הרשומה הנבחרת פותחת קוד selected_file_name_flag = false selected_url_address_flag = false if file_name = "" or typename(file_name) = "Null" then selected_file_name_flag = true if url_address = "" or typename(url_address) = "Null" then selected_url_address_flag = true article_date = "" ' בניית מחרוזת הצגת תאריך המאמר if date_day <> "" then article_date = article_date & date_day & "/" end if if date_month <> "" then article_date = article_date & date_month & "/" end if article_date = article_date & date_year if credit <> "" then credit = "
" & credit end if if selected_file_name_flag = true and selected_url_address_flag = true then url = "investor_pr/article.asp?id=" & rowId target = "" else if selected_file_name_flag = false then url = "investor_pr/" & file_name target = " target=top" else if Instr(url_address, "http") = 0 then url_address = "http://" & url_address url = url_address target = " target=top" end if end if %> <% next end if %>
Market Releases  
Click here to view Market releases <%=article_date%>


   Market Releases
  Events