<% '******************************************************************* '* '* DESCRIPTION: This file is to be included at the top '* of ALL asp files for PE Central Advisory Board related pages. '* It has 'global' variables and often-used subs '* & functions. Also includes some javascript '* functions for data validation. '* '* ORIGINAL AUTHOR: Jami Ryan '* Based On Code From Rob Woods '* '* DATE:10/08/2007 '* '******************************************************************* 'Reminder for Jami: & vbCrLf '** include data access variables ** 'Database variables dim objConn, objRs, objRs2, strDSN, sql '*********************************************************** '* Sub Name: openObjConn '* '* Parameters: none, but objConn, objRs, objRs2, and strDSN must be declared '* '* Description: open a database connection and 2 recordset objects '* '*********************************************************** sub openObjConn() set objConn = Server.CreateObject("ADODB.Connection") set objRs = Server.CreateObject("ADODB.recordset") set objRs2 = Server.CreateObject("ADODB.recordset") objConn.Open Application("DSN") end sub '*********************************************************** '* Function Name: nvl '* '* Parameters: v and d (value and default) '* '* Description: if value is null or empty, return default, else return value '* '*********************************************************** function nvl(v,d) if isnull(v) then nvl = d else v = trim(v) if v="" _ then nvl = d _ else nvl = v end if end function '*********************************************************** '* Sub Name: closeAll '* '* Parameters: none '* '* Description: close and destroy database objects '* '*********************************************************** sub closeAll() on error resume next objRs.close set objRs = nothing objRs2.close set objRs2 = nothing objConn.close set objConn = nothing on error goto 0 end sub '********************************************************************* ' ' Sub dumpSession, dump all session variables to screen, for debuggng ' '********************************************************************* sub dumpSession() dim obj response.write "" for each obj in Session.Contents Response.Write "" next response.write "
" & obj & "" & Session.Contents(obj) & "
" end sub '******************************************************************************* 'Name: FormatProperName 'Parameters: theString - String to format 'Purpose: To capitalize the first letter. '******************************************************************************* Function FormatProperName(theString) FormatProperName = UCase(Left(theString, 1)) & Right(theString, Len(theString) - 1) End Function '****************************************************************************************** 'Name: GetAdvisoryBoard 'Parameters: Advisory ID = Holds the ID of the Advisory Board to get 'Purpose: Returns a list of all the names of the members of a particular advisory board. '****************************************************************************************** Sub GetAdvisoryBoard(AdvisoryID) 'Open up a connection to the database call openObjConn() 'for testing 'Response.Write("

From the sub:
") 'Loop through all the advisory board members and display them sql = "SELECT U.FirstName, U.LastName FROM Users as U " &_ "INNER JOIN UserSections as US on U.UserID = US.UserID " &_ "WHERE US.ManagingEditor = 0 AND US.CategoryID = " & AdvisoryID &_ "ORDER BY LastName, FirstName" objRs.Open sql, objconn, 0 do while not objRs.EOF Response.Write(FormatProperName(objRs("FirstName")) & " " & FormatProperName(objRs("LastName")) & "
" & vbCrLf) objRs.MoveNext loop objRs.Close 'Close the connection to the database call closeAll() End Sub %>

Managing Editor

lisa hansen
Dr. Lisa Witherspoon

University of South Florida
Tampa, FL

Active Gaming for Physical Education Teachers

This section includes information to assist teachers in learning more about Active Gaming. Suggestions for implementing active gaming in the classroom based on developmentally appropriate practices are provided. If you have questions e-mail us at activegaming@pecentral.org.

What is Active Gaming
(Definition, Types, See Video)

Active Gaming Lesson Ideas
(DDR, Submit a Lesson)

Teaching Active Gaming
(How to to better teach AG)

Active Gaming Tips
(Advice on implementing AG in PE)

Active Gaming Videos/Pics
(Videos/Pics of AG in action)

Grants/Funding
(Grants/Fundraisers to help purchase AG equip.)

Active Gaming Blog
(Get the latest on AG from our Blog)

Ask Our Active Gaming Expert
(Submit your questions!)

Active Gaming FAQ's
(Frequently Asked AG Questions)

Active Gaming Research
(Research articles about AG)

Active Gaming Web sites
(Web sites featuring AG content)

Active Gaming Products
(Products from S&S Discount Sports)

Featured Video:


Active Gaming in Public Schools

Featured Video:


Active Gaming at Univ. South Florida