<%@ 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() response.write "

List of papers

" & CRLF response.write "
" & CRLF response.write "

" & CRLF sql = "SELECT PaperInicial, PaperAuthor FROM Prispevek WHERE ((Prispevek.IDAkce)=" & Unit & ") ORDER BY PaperInicial, PaperAuthor;" Set rpom = Server.CreateObject("ADODB.Recordset") rpom.Open sql, conn, 3, 3 If rpom.EOF Then Call GenerateError1("Papers not available!") else orig = "" Do Until rpom.EOF If IsNull(rpom.Fields("PaperInicial").Value) Then letter = Mid(rpom.Fields("PaperAuthor").Value,1,1) Else letter = rpom.Fields("PaperInicial").Value End If if letter<>orig then response.write " " & UCase(letter) & " " & CRLF orig = letter end if rpom.MoveNext Loop End If rpom.Close response.write "

" & CRLF response.write "
" & CRLF ' Generate simple paper rows sql = "SELECT * FROM Prispevek WHERE ((Prispevek.IDAkce)=" & Unit & ") ORDER BY PaperInicial, PaperAuthor ;" Set rpom = Server.CreateObject("ADODB.Recordset") rpom.Open sql, conn, 3, 3 If rpom.EOF Then Call GenerateError1("Papers not available!") else orig = "" NM = 0 Do Until rpom.EOF NM = NM + 1 If IsNull(rpom.Fields("PaperInicial").Value) Then letter = Mid(rpom.Fields("PaperAuthor").Value,1,1) Else letter = rpom.Fields("PaperInicial").Value End If if letter<>orig then if orig<>"" then response.write "" & CRLF response.write "" & CRLF response.write "

Return to List of papers

" ' response.write "
" end if response.write "

" & UCase(letter) & "

" 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 response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF rpom.MoveNext Loop response.write "" & CRLF response.write "
AuthorsTitleNumber
" & rpom.Fields("PaperAuthor").Value & "" & CRLF response.write " " & rpom.Fields("PaperTitle").Value & "" & CRLF response.write "" & rpom.Fields("PaperNumber").Value & "
" & CRLF response.write "

Return to List of papers

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