|
All schedules are subject to change.
Please Note: The 19th NAM will provide
a CD-ROM containing all abstract files to each participant but will
not provide
a hard copy of each abstract,
as was done in the past. The hard copy program for the 19th NAM will
only include titles, authors, institutions and, of course, the time
and place
of each presentation. We encourage attendees to view abstracts before
the conference.
You can also download the following pdf files:
General technical program
Detailed technical program / oral presentations
Detailed technical program / poster presentations
Authors: if you notice errors in the listings please contact
the Webmaster. Include your session number, time of
presentation and title.
<%
SessionID=Request.QueryString("SessionID")
TypeID=Request.QueryString("TypeID") 'O - Oral, D-Poster
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.ConnectionTimeout = 15
DBConn.CommandTimeout = 30
DBConn.Open "DSN=WebAbstracts"
Set rs=Server.CreateObject("ADODB.Recordset")
IF SessionID<>"" THEN
%>
Back to Scientific Program
<%
'IF SessionID="09" THEN
IF False THEN
rs.Open "SELECT Oral.*,Sessions.Name as SessionName FROM Oral,Sessions WHERE Oral.SessionID=Sessions.SessionID AND Oral.SessionID='" & SessionID & "' ORDER BY TypeID,Date,Time" ,DBConn,1,3
response.write("
Session 09 program is under revision and will be displayed here soon.
Please check back.
")
ELSEIF TypeID<>"" THEN 'Poster Display
if TypeID="D" then 'poster
rs.Open "SELECT Posters.*,Sessions.Name as SessionName FROM Posters,Sessions WHERE Posters.SessionID=Sessions.SessionID AND Posters.SessionID='" & SessionID & "' ORDER BY PosterOrder" ,DBConn,1,3
AbstractType="P"
else 'oral
rs.Open "SELECT Oral.*,Sessions.Name as SessionName FROM Oral,Sessions WHERE Oral.SessionID=Sessions.SessionID AND Oral.SessionID='" & SessionID & "' ORDER BY TypeID,Date,Time" ,DBConn,1,3
AbstractType="O"
end if
%>
<%
LastSession=""
LastType=""
while not rs.eof
if LastSession<>rs("SessionName") then
LastSession=rs("SessionName")
%>
Session <%=rs("SessionID")%>: <%=rs("SessionName")%>
<% if rs("TypeID")="D" then %>
Wyndham Franklin Plaza Conference Center Hall
<%=FormatDateTime(rs("Date"),vbLongDate)%> 5:30PM - 8:00PM
<% end if %>
|
<%
end if
if LastType<>rs("TypeID") then
LastType=rs("TypeID")
%>
|
<%
if LastType="1" then Response.Write("Plenary(s) (60 min)")
if LastType="2" then Response.Write("Keynote(s) (40 min)")
if LastType="3" then Response.Write("Orals (20 min)")
if LastType="D" then Response.Write("Posters")
%>
|
<%
end if
'Institution 1
I1=""
if trim(rs("I1Name"))<>"" then I1=I1 & trim(rs("I1Name"))
if trim(rs("I1CityState"))<>"" then I1=I1 & ", " & trim(rs("I1CityState"))
if trim(rs("I1Country"))<>"" then I1=I1 & ", " & trim(rs("I1Country"))
'Institution 2
I2=""
if trim(rs("I2Name"))<>"" then I2=I2 & trim(rs("I2Name"))
if trim(rs("I2CityState"))<>"" then I2=I2 & ", " & trim(rs("I2CityState"))
if trim(rs("I2Country"))<>"" then I2=I2 & ", " & trim(rs("I2Country"))
'Institution 3
I3=""
if trim(rs("I3Name"))<>"" then I3=I3 & trim(rs("I3Name"))
if trim(rs("I3CityState"))<>"" then I3=I3 & ", " & trim(rs("I3CityState"))
if trim(rs("I3Country"))<>"" then I3=I3 & ", " & trim(rs("I3Country"))
'Author #1
AuthorCount=1
A1=rs("A1LastName") & ", " & rs("A1FirstName") & " " & rs("A1Middle")
if rs("A1Institution")="3" then
A1I=I3
elseif rs("A1Institution")="2" then
A1I=I2
else
A1I=I1
end if
'Author #2
if trim(rs("A2LastName"))<>"" then
AuthorCount=2
A2=rs("A2LastName") & ", " & rs("A2FirstName") & " " & rs("A2Middle")
if rs("A2Institution")="3" then
A2I=I3
elseif rs("A2Institution")="2" then
A2I=I2
else
A2I=I1
end if
else
A2=""
A2I=""
end if
'Author #3
if trim(rs("A3LastName"))<>"" then
A3=rs("A3LastName") & ", " & rs("A3FirstName") & " " & rs("A3Middle")
if rs("A3Institution")="3" then
A3I=I3
elseif rs("A3Institution")="2" then
A3I=I2
else
A3I=I1
end if
else
A3=""
A3I=""
end if
'Author #4
if trim(rs("A4LastName"))<>"" then
A4=rs("A4LastName") & ", " & rs("A4FirstName") & " " & rs("A4Middle")
if rs("A4Institution")="3" then
A4I=I3
elseif rs("A4Institution")="2" then
A4I=I2
else
A4I=I1
end if
else
A4=""
A4I=""
end if
'Author #5
if trim(rs("A5LastName"))<>"" then
A5=rs("A5LastName") & ", " & rs("A5FirstName") & " " & rs("A5Middle")
if rs("A5Institution")="3" then
A5I=I3
elseif rs("A5Institution")="2" then
A5I=I2
else
A5I=I1
end if
else
A5=""
A5I=""
end if
'Author #6
if trim(rs("A6LastName"))<>"" then
A6=rs("A6LastName") & ", " & rs("A6FirstName") & " " & rs("A6Middle")
if rs("A6Institution")="3" then
A6I=I3
elseif rs("A6Institution")="2" then
A6I=I2
else
A6I=I1
end if
else
A6=""
A6I=""
end if
%>
|
<% if rs("TypeID")<>"D" then %>
|
<%
s_hour=hour(rs("Time"))
if s_hour>12 then
s_ampm="PM"
s_hour=s_hour-12
else
s_ampm="AM"
end if
s_minute=minute(rs("Time"))
if s_minute<10 then s_minute="0" & s_minute
s_time=s_hour & ":" & s_minute & s_ampm
%>
<%=rs("Date")%> - <%=s_time%> - Room <%=rs("Venue")%>
|
<% end if %>
| <% if rs("TypeID")="D" then Response.Write("" & rs("PosterOrder") & "")%> |
<%=rs("Title")%> |
|
<%
AbstractLink="Abstract Not Available Online - " & rs("FileName")
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists("c:\websites\19nam\19nam\abstracts\" & rs("NewFileName")) then
AbstractLink="View Abstract"
good_file_count=good_file_count+1
else
bad_file_count=bad_file_count+1
end if
set fs=nothing
%>
<%=AbstractLink%> |
|
Presenter: <%=rs("Presenting Author")%>
<%
if AuthorCount=1 then Response.Write("Author:
") else Response.Write("Authors:
")
%>
<%=A1%>
<%if A1I<>A2I then Response.Write("
" & A1I)%>
<%if A2<>"" then
Response.Write("
" & A2)
if A2I<>A3I then Response.Write("
" & A2I)
end if %>
<%if A3<>"" then
Response.Write("
" & A3)
if A3I<>A4I then Response.Write("
" & A3I)
end if %>
<%if A4<>"" then
Response.Write("
" & A4)
if A4I<>A5I then Response.Write("
" & A4I)
end if %>
<%if A5<>"" then
Response.Write("
" & A5)
if A5I<>A6I then Response.Write("
" & A5I)
end if %>
<%if A6<>"" then
Response.Write("
" & A6)
Response.Write("
" & A6I)
end if %>
<%if trim(rs("OtherNames"))<>"" then Response.Write("
" & trim(rs("OtherNames")))%>
|
|
<%
rs.movenext
wend
%>
<%
END IF
ELSE
'no session specified - Show list of sessions:
rs.Open "SELECT * FROM [Sessions] ORDER BY SessionID" ,DBConn,1,3
%>
| Awards |
| Houdry Award Address - Dr. Henrik Topsoe
Emmett Award Address - Professor Matthew Neurock |
<%
LastGroup=""
while not rs.eof
if LastGroup<>rs("Group") then
LastGroup=rs("Group")
%>
| <%=rs("Group")%> |
<%
end if
%>
|
<%=rs("SessionID")%>: <%=rs("Name")%>
<% if rs("Orals")=True then %>
&TypeID=O">View Oral Presentations
<% else %>
No Oral Presentations
<% end if %>
-
<% if rs("Posters")=True then %>
&TypeID=D">View Poster Presentations |
<% else %>
No Poster Presentations
<% end if %>
<%
rs.movenext
wend
%>
<%
END IF
rs.close
set rs=Nothing
DBConn.Close
set DBConn=Nothing
%>
|
