<% Option Explicit %>
PROJECT INDEX
Scientometrics to 2005
View timeline (Instructions)
View paper to reference crossmap.
View paper to reference author crossmap
View paper to paper author crossmap
View reference usage by year
View reference author usage by year
COMMENTARY
<%
Dim filesys, comment_file, commentline, cur_dir
cur_dir=server.mappath(".")
Set filesys = CreateObject("Scripting.FileSystemObject")
if filesys.fileexists(cur_dir & "/comment.txt") then
Set comment_file = filesys.OpenTextFile(cur_dir & "/comment.txt", 1)
do while not comment_file.AtEndOfStream
commentline = comment_file.ReadLine
Response.Write commentline & "
"
loop
comment_file.Close
else
response.write "No comments entered"
end if
%>