<% Dim intPID,strTitle,strAuthor2,strAbstract Dim rsPaper intPID = request("PID") if intPID = "" then intPID = 0 end if Set rsPaper = Conn.Execute("select * from [paper] where PID = "&intPID&"") If Not rsPaper.EOF Then strTitle = rsPaper("Title") if not isnull(rsPaper("Subtitle")) then strTitle = strTitle & ": " & rsPaper("Subtitle") end if strAuthor2 = replace(rsPaper("Author2"),";","
") strAbstract = rsPaper("Abstract") End If rsPaper.close Set rsPaper = Nothing Call CloseConn %>

<%=strTitle%>

<%=strAuthor2%>

Abstract

<%=strAbstract%>