<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer=True %> <% ' Special procedures ' --------------------- Function FileNameNoCZ(S) S = UCase(S) Select Case S Case "Á" FileNameNoCZ = "A1" Case "È" FileNameNoCZ = "C1" Case "Ï" FileNameNoCZ = "D1" Case "É" FileNameNoCZ = "E1" Case "Ì" FileNameNoCZ = "E1" Case "Í" FileNameNoCZ = "I1" Case "Å" FileNameNoCZ = "L1" Case "¼" FileNameNoCZ = "L2" Case "Ò" FileNameNoCZ = "N1" Case "Ó" FileNameNoCZ = "O1" Case "Ö" FileNameNoCZ = "O2" Case "À" FileNameNoCZ = "R1" Case "Ø" FileNameNoCZ = "R2" Case "Œ" FileNameNoCZ = "S1" Case "Š" FileNameNoCZ = "S2" Case "" FileNameNoCZ = "T1" Case "Ú" FileNameNoCZ = "U1" Case "Ù" FileNameNoCZ = "U2" Case "Ý" FileNameNoCZ = "Y1" Case "" FileNameNoCZ = "Z1" Case "Ž" FileNameNoCZ = "Z2" Case Else FileNameNoCZ = S End Select End Function Sub PreparePaperEx(IDPaper, Caption, Por) response.write "
" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" response.write "" response.write "" response.write "
" End Sub ' Start of main program ' --------------------- Call TakeGlobalParameters() 'Call WriteGlobalParameters() Call OpenConnection() Call VerifyUnitNumber() %>

 Final Program

May 28, 2006 - Sunday
16:00 - 18:00- Participants registration
18:00 - 18:30- Welcome to conference participants
18:30 - 20:00- Dinner
20:00 - 21:00- Steering committee meeting
May 29, 2006 - Monday
08:00 - 09:00- Breakfast
09:00 - 10:30- Opening ceremony, Plenary session
10:30 - 11:00- Coffee break
11:00 - 12:30 - Conference program at parallel sessions: S1A, S2A, S3A
12:30 - 14:00- Lunch
14:00 - 15:15 - Conference program at parallel sessions: S1B, S2B, S3B
15:15 - 15:45 - Coffee break
15:45 - 17:00 - Conference program at parallel sessions: S1B, S2B, S3B
17:00 - 18:00 - Poster session: S6
19:00 - 23:00- Evening program, dinner party
May 30, 2006 - Tuesday
08:00 - 09:00- Breakfast
09:00 - 10:30 - Conference program at parallel sessions: S1C, S2C, S3C
10:30 - 11:00- Coffee break
11:00 - 12:30 - Conference program at parallel sessions: S2D, S5A, S9
12:30 - 13:30- Lunch
13:30 - 14:30 - Poster session: S8
14:30 - 17:30- Open air museum visit
17:30 - 22:00- Dinner party at the Open air museum
May 31, 2006 - Wednesday
08:00 - 09:00- Breakfast (room removing up to 10:00)
09:00 - 11:00 - Conference program at parallel sessions: S4, S5B
11:00 - 11:15- Coffee break
11:15 - 11:45- Closing ceremony
12:00 - 13:00- Lunch

 Sociable Program

Sociable program

Sight-seeing trip – Pustevny (Monday afternoon, Tuesday morning, afternoon)
free of charge facultative mountain trip - by bus and hike for groups of 16 people
Banquet with Live music – Monday evening (19:00)

Stylish garden party at open-air museum Tuesday afternoon

 

<% response.write "

" & CRLF response.write "

Schedule of presentations

" & CRLF response.write "

" & CRLF sql = "SELECT DISTINCT Sekce.IDSekce, Sekce.SectionDate, Sekce.SectionTimeFrom, Sekce.SectionTimeTo, Sekce.SectionRoom, Sekce.SectionName, Sekce.SectionChairman FROM Akce INNER JOIN (Sekce INNER JOIN Prispevek ON Sekce.IDSekce = Prispevek.IDSekce) ON Akce.IDAkce = Prispevek.IDAkce WHERE (((Akce.IDAkce)=" & Unit & ") AND NOT (Prispevek.IDSekce=0)) ORDER BY Sekce.SectionDate, Sekce.SectionTimeFrom, Sekce.SectionRoom, Sekce.SectionName;" Set rpom = Server.CreateObject("ADODB.Recordset") rpom.Open sql, conn, 3, 3 If rpom.EOF Then Call GenerateError1("Papers not available!") else orig = "-1" firstTime = rpom.Fields("SectionDate").Value Do Until rpom.EOF If firstTime<>rpom.Fields("SectionDate").Value Then response.write "

" firstTime = rpom.Fields("SectionDate").Value End If letter = rpom.Fields("IDSekce").Value if IsNull(letter) Then letter = "NULL" If letter<>origin then If letter="NULL" then response.write "" response.write "Papers without session" response.write "
" & CRLF Else response.write "" SR = "" SR = SR & GenerateDate(rpom.Fields("SectionDate").Value) If Not SR="" Then SR = SR & ", " End If response.write SR SR = "" SR = SR & GenerateTime(rpom.Fields("SectionTimeFrom").Value) If Not SR="" Then SR = SR & " - " End If SR = SR & GenerateTime(rpom.Fields("SectionTimeTo").Value) If Not SR="" Then SR = SR & " : " End If SR = SR & rpom.Fields("SectionName").Value Response.Write SR response.write "
" & CRLF orig = letter end if End If rpom.MoveNext Loop End If rpom.Close response.write "

" & CRLF response.write "
" & CRLF ' Write important notices response.write "

Important information

" & CRLF response.write "

Oral Presentation

" & CRLF response.write "

Every presenter gets 10 minutes to present the paper and additional 5 minutes for a discussion. All conference rooms will be equipped with a personal computer (Microsoft Windows 2000/XP operating system, PowerPoint XP/2003 programme, USB port, CD-ROM) connected to a data projector (resolution 1024x768 points).

" & CRLF response.write "

Poster Presentation

" & CRLF response.write "

Every poster presentation gets a space of 90 cm width x 100 cm height. All papers have to be presented in the poster session by their author(s) according to the conference programme.

" response.write "
" & CRLF ' Generate simple paper rows sql = "SELECT Akce.IDAkce, Akce.Title, Akce.SubTitle, Akce.ShortTitle, Akce.Date, Akce.Place, Sekce.IDSekce, Sekce.SectionDate, Sekce.SectionTimeFrom, Sekce.SectionTimeTo, Sekce.SectionRoom, Sekce.SectionName, Sekce.SectionChairman, Prispevek.SectionOrder, Prispevek.PaperAuthor, Prispevek.PaperTitle FROM Akce INNER JOIN (Sekce RIGHT JOIN Prispevek ON Sekce.IDSekce = Prispevek.IDSekce) ON Akce.IDAkce = Prispevek.IDAkce WHERE (((Akce.IDAkce)=" & Unit & ") AND NOT (Prispevek.IDSekce=0)) ORDER BY Sekce.SectionDate, Sekce.SectionTimeFrom, Sekce.SectionRoom, Sekce.SectionName, Prispevek.SectionOrder, Prispevek.PaperAuthor;" Set rpom = Server.CreateObject("ADODB.Recordset") rpom.Open sql, conn, 3, 3 If rpom.EOF Then Call GenerateError1("Papers not available!") else orig = "-1" NM = 0 Do Until rpom.EOF NM = NM + 1 letter = rpom.Fields("IDSekce").Value if IsNull(letter) Then letter = "NULL" if letter<>orig then if (Not orig="-1") then response.write "" & CRLF response.write "

Return to Content

" & CRLF response.write "
" & CRLF end if If letter="NULL" Then response.write "

Papers without session" Else response.write "

" SR = "" SR = SR & GenerateDate(rpom.Fields("SectionDate").Value) If Not SR="" Then SR = SR & ", " End If response.write SR SR = "" SR = SR & GenerateTime(rpom.Fields("SectionTimeFrom").Value) If Not SR="" Then SR = SR & " - " End If SR = SR & GenerateTime(rpom.Fields("SectionTimeTo").Value) If Not SR="" Then SR = SR & " : " End If SR = SR & rpom.Fields("SectionName").Value Response.Write SR End If if (not isnull(rpom.Fields("SectionRoom").Value)) Or (Not isnull(rpom.Fields("SectionChairman").Value)) Then response.write "
" End If if (not isnull(rpom.Fields("SectionRoom").Value)) Then response.write "Room: " & rpom.Fields("SectionRoom").Value End If if (not isnull(rpom.Fields("SectionChairman").Value)) Then response.write " - Chairperson: " & rpom.Fields("SectionChairman").Value End If response.write "

" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF orig = letter end if response.write "" & CRLF if rpom.Fields("SectionOrder").Value<1 Then response.write "" & CRLF else response.write "" & CRLF End If response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF rpom.MoveNext Loop response.write "
OrderAuthorsTitle
 " & rpom.Fields("SectionOrder").Value & "" & rpom.Fields("PaperAuthor").Value & "" & CRLF response.write rpom.Fields("PaperTitle").Value & CRLF response.write "
" & CRLF response.write "

Return to Content

" & CRLF End If rpom.Close Call GenerateEnd() %>