<%
if Session("ReferralSource")="" then Session("ReferralSource")="None"
if Session("ReferralURL")="" then Session("ReferralURL")=request.ServerVariables("HTTP_REFERER")
gs_db="Driver={MySQL ODBC 3.51 Driver};Server=10.10.1.124;Database=20nam;UID=20nam;PWD=kg28kg99;Option=3"
%>
20th NAM
Session Chairs
and Scientific Committee
<%
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.ConnectionTimeout = 15
DBConn.CommandTimeout = 30
DBConn.Open gs_db
SQL="SELECT * FROM Session ORDER BY SessionID"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, DBConn
if not RS.EOF then
%>
<%
while not RS.EOF
%>
<%=RS("SessionID")%>
<%=RS("Name")%>
<%=RS("Comments")%>
Chairs:
<%
SQL="SELECT * FROM Session ORDER BY SessionID"
Set RS_C = Server.CreateObject("ADODB.Recordset")
RS_C.Open "SELECT * FROM SessionChair WHERE SessionID=" & RS("SessionID") & " ORDER BY ChairID", DBConn
While not RS_C.eof
%>
<%=RS_C("Name")%>
<%
RS_C.Movenext
wend
RS_C.close
set RS_C=Nothing
%>
<%
RS.movenext
wend
%>
<%
end if
RS.Close
Set RS=Nothing
DBConn.close
set DBConn=Nothing
%>