% 'DATABASE CONNECTION Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnectionString 'Set fs = Server.CreateObject("Scripting.FileSystemObject") 'dir = Server.MapPath("/asp/ilitsconnect.inc") 'Set file = fs.GetFile(dir) 'Set newFile = file.OpenAsTextStream 'Conn.Open newFile.Readline() 'CREATE QUERY SqlQueryCat = "SELECT distinct(Category) FROM MeetingSchedule ORDER BY SortOrder, Category, MeetName" 'EXECUTE QUERY Set RSCategory = Conn.Execute(SqlQueryCat) 'CREATE QUERY SqlQueryString = "SELECT * FROM MeetingSchedule ORDER BY SortOrder, Category, MeetName" 'EXECUTE QUERY Set RSMeetings = Conn.Execute(SqlQueryString) %>
|
|