% if Request.QueryString = "" then response.redirect "index.html" end if %>
|
|
|||
2001
Conference: <%
Set Sess = Server.CreateObject("ADODB.Connection")
Sess.Open "ConfSessions", "", ""
' da SQL query
Dim qSQL
qSQL = qSQL & "SELECT * "
qSQL = qSQL & "FROM 2001 "
qSQL = qSQL & "WHERE ID = '" & Request.QueryString("id") & "'"
Set RS = Sess.execute(qSQL)
Dim TextDay
TextDay = ""
DateForText = RS("SessionDate")
if DateForText = #06/21/01# then TextDay = "Thurs"
if DateForText = #06/22/01# then TextDay = "Fri"
if DateForText = #6/23/01# then TextDay = "Sat"
VidSource = RS("RealVideo")
WsSource = RS("website")
%> <%=RS("SessionTitle")%> |
QUICK
LINKS
|
||
[Return to 2001 Conference Post-Conference Materials]
(Original Session Date: <%=RS("SessionDate")%>) Session Description ">RealVideo 8 Session Archive <% end if %>
Speaker(s): |
Conference for Law School Computing 2001
Conference |