% if Request.QueryString = "" then response.redirect "index.html" end if %>
|
|
|||
2002 Conference: <% Set Sess = Server.CreateObject("ADODB.Connection") Sess.Open "ConfSessions", "", "" ' da SQL query Dim qSQL qSQL = qSQL & "SELECT * " qSQL = qSQL & "FROM 2002 " qSQL = qSQL & "WHERE ID = '" & Request.QueryString("id") & "'" Set RS = Sess.execute(qSQL) Dim TextDay TextDay = "" DateForText = RS("SessionDate") if DateForText = #06/20/02# then TextDay = "Thurs" if DateForText = #06/21/02# then TextDay = "Fri" if DateForText = #6/22/02# then TextDay = "Sat" %> <%=RS("SessionTitle")%> |
QUICK
LINKS
|
||
[Return to 2002 Conference Agenda]
Date: <%=RS("SessionDate")%> Time: <%=RS("SessionTime")%> Room: <%=RS("SessionTrack")%> Session Description RealVideo 8 Session Broadcast (Only available during Session) [get
RealPlayer 8] Session Webpage(s)
Speaker(s): |
|