RUS  -   ENG  -   ESP
Joint European Project of Technical Assistance of Commission of European Communities (TEMPUS/TASIS) "Development of Integrated Coastal Management Training and Education"

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 engname,filename,lang from conferences where confyear='2000' order by engname") 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 %>Previos<% End If %>
<% If Page+1<=Pages Then %>Next<% End If %>