|
|
 
<%
id = Request.QueryString("id")
id = id*1
IF id = 0 THEN%>
Архив ежемесячной рассылки
<% k = 0
for i = 1 to 2
for j = 11 to 11
Select Case i
Case 1
yyyy = "2006"
Case 2
yyyy = "2007"
Case 3
yyyy = "2008"
Case 4
yyyy = "2009"
Case 5
yyyy = "2010"
End Select
Select Case j
Case 1
month_news = "Январь"
mm = "01"
Case 2
month_news = "Февраль"
mm = "02"
Case 3
month_news = "Март"
mm = "03"
Case 4
month_news = "Апрель"
mm = "04"
Case 5
month_news = "Май"
mm = "05"
Case 6
month_news = "Июнь"
mm = "06"
Case 7
month_news = "Июль"
mm = "07"
Case 8
month_news = "Август"
mm = "08"
Case 9
month_news = "Сентябрь"
mm = "09"
Case 10
month_news = "Октябрь"
mm = "10"
Case 11
month_news = "Ноябрь"
mm = "11"
Case 12
month_news = "Декабрь"
mm = "12"
End Select
mm_yyyy = "__." & "__" & "." & yyyy
' k = k + 1
month_news = "2006-2007"%>
- Выпуски №1-6<%'=k%>. <%=month_news%> г.
<%
' формируем список пресс-релизов в выпуске, сортируемых по порядковому номеру
i = 0
SQLZapros = "SELECT id_news_release,name_news_release,date_news_release,pub_news_release FROM hrdb_news_release WHERE pub_news_release = 1 ORDER BY id_news_release"
Set rs = Baza.Execute (SQLZapros)
if not rs.eof then
do until rs.eof
id_news_release = rs("id_news_release")
date_news_release = rs("date_news_release")
name_news_release = rs("name_news_release")%>
- <%=name_news_release%>
<% i = i + 1
rs.MoveNext
loop
end if%>
<% next
next
if i = 0 then%>
- нет информации
<%
end if%>
|
|
