|
|
Новое в аналитике
<%
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.Fields(0) & "
"
call viv_y(rst.Fields(0))
response.write "
"
response.write " |
"
rst.MoveNext
'правый столбец
if i <= kj2 then
response.write "
" & rst2.Fields(0) & "
"
call viv_y(rst2.Fields(0))
response.write "
"
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
%>
|
|
О ЖУРНАЛЕ
СВЕЖИЙ НОМЕР
АРХИВ НОМЕРОВ
НОВОЕ В АНАЛИТИКЕ
Независимый
институт социальной политики
СОФИСТ
