<% FUNCTION CheckString (s, endchar) pos = InStr(s, "'") While pos > 0 s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1) pos = InStr(pos + 2, s, "'") Wend if s="" Then s=" " CheckString="'" & s & "'" & endchar END FUNCTION Session.timeout = 5 If IsObject(Session("LP99_conn")) Then Set conn = Session("LP99_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "lp99","","" Set Session("LP99_conn") = conn End If %> <%Rem SQL1 -----number attending ------------------------------------------------------ sql1= "SELECT * " sql1 = sqla & "FROM Conference_Scheudle " rem response.write(".1..Conference schedudle =..." & sqla & "....") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql1, conn, 3, 3 SessionName = rs.fields("SessionName ") SessionStart = rs.fields("SessionStart") ScheduleEvent = rs.fields("ScheduleEvent") EvtStartTime = rs.fields("EvtStartTime") TalkTitle = rs.fields("TalkTitle") Fname = rs.fields("Fname") Lname = rs.fields("LName") Institution = rs.fields("Institution") %>

<%response.write(SessionName)%>
<%response.write(EvtstartTime)%>	<%response.write(ScheduleEvent)%>