RUS  -   ENG  -   ESP
Совместный Европейский проект программы Технического содействия Комиссии Европейских Сообществ (ТЕМПУС/ТАСИС) "Развитие образования и обучения в области комплексного управления прибрежной зоной"

2000
    <% If Request.QueryString("page")="" Then Page=1 Else Page=Request.QueryString("page") End If Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ICZM","ICZM","mzci" Set ConfRecords = Conn.Execute("Select Count(id) from conferences where confyear='2000'") ConfR=ConfRecords(0) Pages=Int(ConfR/35)+1 Set Confs = Conn.Execute("Select rusname,filename,lang from conferences where confyear='2000' order by rusname") StartRecord=(Page-1)*35 For i=1 to StartRecord If Not Confs.EOF Then Confs.MoveNext End If Next For j=1 to 35 If NOT Confs.EOF Then %>
  • <%= Confs(0) %> <%= Confs(2) %>
  • <% Confs.MoveNext End If Next If Confs.EOF Then %> <% End If ConfRecords.Close Confs.Close Conn.Close %>

<% If Page-1>0 Then %>Предыдущая<% End If %>
<% If Page+1<=Pages Then %>Следующая<% End If %>