%
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
%>
<%
' אם קיימות רשומות
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
%>