О ЖУРНАЛЕ
Наши новости
СВЕЖИЙ НОМЕР
Оглавление
 
АРХИВ НОМЕРОВ
Обзоры
НОВОЕ В АНАЛИТИКЕ
 Статьи
Независимый институт социальной политики
English
СОФИСТ
English

SPERO. Социальная политика: экспертиза, рекомендации, обзоры Социальная политика: экспертиза, рекомендации, обзоры


<%Language="VBScript" Response.Write "" %> Версия для печати Версия для печати

Новое в аналитике

<% Const DBPath = "File Name=C:\Inetpub\public.UDL" dim cnn, rst, osn set cnn = Server.CreateObject("ADODB.Connection") set rst = Server.CreateObject("ADODB.Recordset") set rst2 = Server.CreateObject("ADODB.Recordset") set rs_y = Server.CreateObject("ADODB.Recordset") cnn.Open DBPath cnn.BeginTrans() Dim Alt 'определяем количество журналов zap = "SELECT DISTINCT PD.Jornal, PD.Tip FROM PD WHERE (((PD.Tip)=2)) ORDER BY PD.Jornal;" rst.Open zap , cnn, 3 , 1, 1 kj = rst.recordcount zap = "SELECT DISTINCT PD.Jornal, PD.Tip FROM PD WHERE (((PD.Tip)=1)) ORDER BY PD.Jornal;" rst2.Open zap , cnn, 3 , 1, 1 kj2 = rst2.recordcount for i=1 to kj response.write "" 'строка - левый столбец response.write " " rst.MoveNext 'правый столбец if i <= kj2 then response.write " " rst2.MoveNext end if response.write " " next rst.close 'закрываем базу данных cnn.CommitTrans() cnn.Close() '___________________ sub viv_y(jn) dim ij zap = "SELECT DISTINCT PD.Jornal, PD.Y FROM PD WHERE (((PD.Jornal)=""" & jn & """));" rs_y.Open zap , cnn, 1 , 2, 1 for ij = 1 to rs_y.recordcount response.write "" response.write rs_y.Fields(1) & "   " rs_y.MoveNext next rs_y.close end sub %>
" & rst.Fields(0) & "
" call viv_y(rst.Fields(0)) response.write "
  " response.write "
" & rst2.Fields(0) & "
" call viv_y(rst2.Fields(0)) response.write "
  " response.write "


 
  о журнале экспертное мнение законодательство новое в аналитике календарь событий Site design by
Mirron Group 2003