<% ' *********** 15 March 2004 ************ ' ASP Code by Reginald Wooden - Austin Peay State University ' Reads sequential entry from MS Access Database and ' displays cooresponding university record on home ' page based based on the current time. ' ************************************** ' --> Stores second of current time in variable intRecord = Second(Now()) ' --> Initiallizes and locates the MS Access database strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" strconn=strconn & server.mappath("/fpdb/universities.mdb") ' --> Connects to and Opens MS Access Database Set Connect = Server.CreateObject("ADODB.Connection") Connect.open strconn ' --> Creates and Executes SQL query to get last record number strSQL = "Select MAX(ID) AS intMax FROM Results" Set InMax = Connect.Execute(strSQL) ' --> Saves results of SQL query in RecordSet intLastRec = InMax("intMax") ' --> Checks to see if second of current time = 0; sets to 1 if true If intRecord = 0 then intRecord = 1 ' --> Decrements second of current time until it is less than or equal to last record do until intRecord <= intLastRec intRecord = intRecord - intLastRec loop ' --> Reads 1 record based on second of current time and stores in RecordSet strSQL = "Select * FROM Results WHERE ID = " & intRecord Set InUniversity = Connect.Execute(strSQL) %> Tennessee Board of Regents

Tennessee Board of Regents
               "Excellence in Higher Education"

 1415 Murfreesboro Road, Suite 350
Nashville, TN 37217
voice: (615) 366-4400
fax: (615) 366-4464
 
 TBR Home
 TTC Central Office Directory
 TTC Campus Directory
 TTC Employee Directory
 TTC Job Opportunities
 Program Offerings
 Operating Calendars
 Newsletters
 Sick Leave Bank Info.
 Contracts/Agreements
 Directors' Meeting Minutes
 Program Action
 Policies & Guidelines
 TBR Campus Directory
 
 


Regents Online
Degree Programs
 

 
   

Tech Prep

Tennessee Higher Education Commission

Tennessee Department of Education

Tennessee Foreign Language Institute

Tennessee Small Business Development Center

 
 

 

Directors' Meeting Minutes

Directors' Meeting Minutes 2007

Directors' Meeting Minutes 2006

Directors' Meeting Minutes 2005

  • November 9, 2005

  • August 17, 2005   

  • May 19, 2005   

  • February 9, 2005                                                                                                                                     

Directors' Meeting Minutes 2004

Directors' Meeting Minutes 2003

Directors' Meeting Minutes 2002

Directors' Meeting Minutes 2001

Directors' Meeting Minutes 2000

Directors' Meeting Minutes 1999

                                

                                 

 
       
       
<% ' --> Resets Recordsets and Closes connections Set InMax=nothing Set InUniversity=nothing Connect.close Set Connect=nothing %>