<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer=True %> <% Dim cesta cesta ="../" %>

Participants

<% ' Special procedures ' --------------------- Function GenerateEmail(Email, IDOsoba) ' ****************************************************** ' Funkce vygeneruje HTML odkaz na Email osoby ' ****************************************************** Dim S, EP, V Dim Uv Uv = Chr(34) S = "" If (Not IsNull(Email)) And (Not Email = "") Then ' Email = Trim(Email) ' V = InStr(Email, ",") ' While V > 0 ' EP = Left(Email, V - 1) ' Email = Trim(Right(Email, Len(Email) - V)) ' S = S & "" & EP & ", " ' V = InStr(Email, ",") ' Wend ' s = s & "" & Email & "" EmailNumber = EmailNumber + 1 s = s & "
" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "
" End If GenerateEmail = S End Function 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 ' Start of main program ' --------------------- Call TakeGlobalParameters() 'Call WriteGlobalParameters() Call OpenConnection() Call VerifyUnitNumber() ' Store data to the Session Object 'If Not Session.Contents("EmailPWD")=EmailBlockPWD Then Session.Contents("EmailUnit") = Unit Session.Contents("EmailPWD") = EmailBlockPWD If Session.Contents("EmailNumber")="" Then Session.Contents("EmailNumber") = 0 Session.Contents("EmailDate") = Now() End If 'End If Dim EmailNumber EmailNumber = 0 'response.write "
EmailNumber= " & Session.Contents("EmailNumber") 'response.write "
EmailDate= " & Session.Contents("EmailDate") 'response.write "
EmailUnit= " & Session.Contents("EmailUnit") 'response.write "
EmailPWD= " & Session.Contents("EmailPWD") sql = "SELECT Akce.*, Osoba.* FROM Akce INNER JOIN Osoba ON Akce.IDAkce = Osoba.IDAkce WHERE (((Akce.IDAkce)=" & Unit & ") AND ((Osoba.IDOsoba)=[Osoba].[IDMaster])) ORDER BY [Osoba].[PersonInicial],[Osoba].[Surname],[Osoba].[FirstName];" Set ro = Server.CreateObject("ADODB.Recordset") ro.Open sql, conn, 3, 3 If ro.EOF Then Call GenerateError1("No participants now!") End If V = "!" response.write "

List of participants

" & CRLF response.write "

" & CRLF Do Until ro.EOF If IsNull(ro.Fields("PersonInicial").Value) Then SurnameFirst = Mid(ro.Fields("Surname").Value,1,1) Else SurnameFirst = ro.Fields("PersonInicial").Value End If ' Czech version special ' If Left(ro.Fields("Surname").Value & " ",2)="Ch" Then ' SurnameFirst = Left(ro.Fields("Surname").Value & " ",2) ' Else ' SurnameFirst = Left(ro.Fields("Surname").Value & " ",1) ' End If If Not V = SurnameFirst Then ' Nový výskyt prvního písmene příjmení V = SurnameFirst response.write " " & V & " " & CRLF End If ro.MoveNext Loop response.write "

" & CRLF response.write "
" & CRLF response.write "" V = "!" S = "Q5juk-256" Poc = 0 If Not ro.BOF And ro.EOF Then ro.MoveFirst End If Do Until ro.EOF If (Not S = ro.Fields("Surname").Value Or S = "Q5juk-256") Then ' Vygenerování nového písmene ' ************************** ' Vygenerování nového nadpisu ' *************************** If IsNull(ro.Fields("PersonInicial").Value) Then SurnameFirst = Mid(ro.Fields("Surname").Value,1,1) Else SurnameFirst = ro.Fields("PersonInicial").Value End If ' Czech version special ' If Left(ro.Fields("Surname").Value & " ",2)="Ch" Then ' SurnameFirst = Left(ro.Fields("Surname").Value & " ",2) ' Else ' SurnameFirst = Left(ro.Fields("Surname").Value & " ",1) ' End If If Not V = SurnameFirst Then ' Nový výskyt prvného písmene příjmení If S = "Q5juk-256" Then Else ' Nejprve nutno ukončit předchozí tabulku response.write " " & CRLF response.write "" End If S = ro.Fields("Surname").Value V = SurnameFirst response.write "

" & V & "

" & CRLF response.write " " & CRLF response.write " " & CRLF response.write " " & CRLF response.write " " & CRLF response.write " " & CRLF response.write " " & CRLF 'response.write " " & CRLF response.write " " & CRLF End If End If ' Vygenerování jednoho řádku Poc = Poc + 1 response.write " " & CRLF response.write " " & CRLF response.write " " & CRLF response.write " " & CRLF response.write " " & CRLF 'If Not IsNull(ro.Fields("Email").Value) Then ' response.write " " & CRLF 'Else ' response.write " " & CRLF 'End If response.write " " & CRLF ro.MoveNext Loop If S = "Q5juk-256" Then Else ' Je nutno ukončit poslední tabulku response.write "
" & "No." & "" & "Name" & "" & "Affiliation" & "" & "Country" & "" & "E-mail" & "
" & Poc & "" & ro.Fields("Surname").Value If IsNull(ro.Fields("FirstName").Value) Or (ro.Fields("FirstName").Value="") Then Else response.write ", " End If response.write ro.Fields("FirstName").Value & "" & ro.Fields("Organization").Value & "" & ro.Fields("Country").Value & "" & GenerateEmail(ro.Fields("Email").Value, ro.Fields("IDOsoba").Value) & "" & " " & "
" & CRLF response.write "" & CRLF End If %>