<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer=True %> <% ' Start of main program ' --------------------- Call TakeGlobalParameters() If Request.TotalBytes > 0 Then IDPaper = Request.Form("IDPaper") CloseMe = Request.Form("Close") Else IDPaper = Request.QueryString("IDPaper") CloseMe = Request.QueryString("Close") End If If CloseMe="" Then CloseMe = "No" 'Call WriteGlobalParameters() Call OpenConnection() Call VerifyUnitNumber() 'Call VerifySessionData() sql = "SELECT Prispevek.* FROM Prispevek WHERE (((Prispevek.IDPrispevek)=" & IDPaper & "));" Set ro = Server.CreateObject("ADODB.Recordset") ro.Open sql, conn, 3, 3 if ro.EOF then Call GenerateError("Do not exist paper ID=" & IDPaper) else PaperNumber = ro.Fields("PaperNumber").Value PaperAuthor = ro.Fields("PaperAuthor").Value PaperTitle = ro.Fields("PaperTitle").Value PaperAbstract = ro.Fields("PaperAbstract").Value PaperNote = ro.Fields("PaperNote").Value End If 'Show data response.write "" & CRLF response.write "" & CRLF If PaperNumber>0 Then response.write "" & CRLF response.write " " & CRLF response.write " " & CRLF End If response.write "" & 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 response.write " " & CRLF response.write " " & CRLF response.write "" & CRLF response.write "" & CRLF response.write " " & CRLF response.write " " & CRLF response.write "" & CRLF response.write "

" & FName & CRLF response.write "
" & CRLF response.write " Number:" & CRLF response.write "	" & CRLF response.write " " & PaperNumber & CRLF response.write "
" & CRLF response.write " Author(s):" & CRLF response.write "	" & CRLF If ShowType=1 then response.write " " & CRLF Else response.write " " & PaperAuthor & "" & CRLF End If response.write "
" & CRLF response.write " Title:" & CRLF response.write "	" & CRLF If ShowType=1 then response.write " " & CRLF Else response.write " " & PaperTitle & "" & CRLF End If response.write "
" & CRLF response.write " Abstract:" & CRLF response.write "	" & CRLF If ShowType=1 then response.write " " & PaperAbstract & "" & CRLF Else response.write " " & PaperAbstract & "" & CRLF End If response.write "
" & CRLF response.write " Note:" & CRLF response.write "	" & CRLF If ShowType=1 then response.write " " & CRLF Else response.write " " & PaperNote & "" & CRLF End If response.write "

" & CRLF response.write "

" & CRLF If CloseMe="OK" Then response.write "

" & CRLF Else response.write "

Return to List of papers" End If Call GenerateEnd() %>