<%option explicit dim db, rs, rs2, sql, ni dim debug, adminccemail 'debug = true debug = false if debug then adminccemail = "ricky.rose@aciwebs.com" else adminccemail = "pec@pecentral.org" end if ' ' ' ' ' 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 opendb() dim DSN DSN = "Driver={SQL Server}; Server=localhost\sqlexpress; Database=PECentral; UID=peUser; PWD=pbjpe14;" DSN = "Provider=SQLOLEDB.1;Driver={SQL Server}; Server=localhost\sqlexpress; Database=PECentral; UID=peUser; PWD=pbjpe14;" Set db = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") 'db.Open Application("DSN") db.Open DSN end sub ' ' ' ' ' function closeall() on error resume next rs.close set rs = nothing rs2.close set rs2 = nothing set db = nothing on error goto 0 end function ' ' ' ' ' function iif(t, x, y) if t then iif = x else iif = y end if end function ' ' ' ' ' sub sendEmail(strFrom, strFromName, strTo, strCC, strBCC, strSubject, strBody) dim objPMail, tmparr, nk set objPMail = server.createobject("Persits.MailSender") pmail.Host = "mailscanner.isgsoftware.net" pmail.Username = "pecentral" pmail.Password = "ixaePaiquoh4cie" objPMail.From = strFrom objPMail.FromName = strFromName objPMail.AddReplyTo strFrom objPMail.Subject = strSubject objPMail.ishtml = true tmparr = split(strto, ";") for nk = 0 to ubound(tmparr) if debug then objPMail.AddAddress "ricky.rose@aciwebs.com", "ricky.rose@aciwebs.com" strbody = tmparr(nk) & vbcrlf & strbody else objPMail.AddAddress tmparr(nk), tmparr(nk) end if Next if strCC <> "" then tmparr = split(strcc, ";") for nk = 0 to ubound(tmparr) if debug then objPMail.Addcc "ricky.rose@aciwebs.com", "ricky.rose@aciwebs.com" else objPMail.Addcc tmparr(nk), tmparr(nk) end if Next end if if strBCC <> "" then tmparr = split(strbcc, ";") for nk = 0 to ubound(tmparr) if debug then objPMail.Addbcc "ricky.rose@aciwebs.com", "ricky.rose@aciwebs.com" else objPMail.Addbcc tmparr(nk), tmparr(nk) end if Next end if objPMail.Body = replace(strBody, vbcrlf, "
") On Error Resume Next objPMail.Send If Err <> 0 Then ' need better error trapping... write to file? Response.Write "
objPMail error encountered: " & Err.Description response.end End If on error goto 0 set objPMail = nothing end sub ' ' ' ' ' sub FindHTML(FormObject) 'Determines if html was found in form dim bolHTMLSubmitted, itm bolHTMLSubmitted = False 'Determine if a bot or individual tried to submit html "<" or ">" by looping through all the form items For Each Itm In FormObject if instr(FormObject(Itm), "<") <> 0 then 'Response.Write Item & ": " & FormObject(Item) & "
" bolHTMLSubmitted = True elseif instr(FormObject(Itm), ">") <> 0 then 'Response.Write Item & ": " & FormObject(Item) & "
" bolHTMLSubmitted = True end if Next 'Determine if we need to redirect the user away from the form if bolHTMLSubmitted = True then Response.Redirect("/NoHTML.asp") end if end sub ' ' ' ' ' function fixSel(v,rsv) if cstr(lcase(nvl(v,""))) = cstr(lcase(nvl(rsv,""))) then fixSel = " selected" else fixSel = "" end if end function ' ' ' ' ' sub reviewercomments(boardcomments) %>

Review Continued

Reviewer Comments

Enter your name in the box below followed by a colon or a dash. Then type your comments about this app. If other names and comments are already there, do NOT type over those comments. Put your name and comments after the last reviewers comments. NOTE: If you accidentally type over a previous reviewer's name and/or comments use the "reset" button to restore this information before continuing.

Example of a reviewers comments:

Mark: I think this app holds promise. I would suggest the purpose statement be changed as it is too broad and doesn't match the description of the app. Otherwise this is a nice app and should be included on PE Central!

Jill: Not a great app. The description was not detailed enough and I question it's developmentally appropriateness. Thumbs down for me.

Reviewer Comments:

<% end sub ' ' ' ' ' sub setstatus(status) status = cint(status) %>

Set the status of this record:

You have the following choices:

<% 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" rs.Open sql, db, 0 do while not rs.EOF Response.Write(FormatProperName(rs("FirstName")) & " " & FormatProperName(rs("LastName")) & "
" & vbCrLf) rs.MoveNext loop rs.Close 'Close the connection to the database 'call closeAll() End Sub ' ' ' ' ' sub writepaging(curpg, pgcnt) dim niloc response.write "" if (cint(curpg) > 1) then response.write "First" response.write " | " response.write "Previous" else response.write "First | Previous" end if response.write " | Page " response.write "" response.write " of " & pgcnt & " | " if cint(curpg) < cint(pgcnt) then response.write "Next" response.write " | " response.write "Last" else response.write "Next | Last" end if response.write "" end sub %> Physical Education: Applications (Apps) for Health and physical education teachers on PE Central

Managing Editors

Deb Wuest, Managing Editor, PEC App Central
Dr. Deborah Wuest

Ithaca College
Ithaca, NY


Tom Watterson
Tom Watterson App Center

App Central for Physical Education Teachers

This section includes information to assist teachers in learning how Applications (Apps) can be used in health and physical education classes.

Phys Ed Review App Reviews by Kevin Tiller
(Click on Apps on left side of his page. Some great reviews of PE Apps)

Submit An App to PE Central
Earn $50.00 Gift Card from S&S Worldwide

View / Search All Apps
(List all, Search, Submit An App)

Ask Our App Expert
(Submit App Questions to Our Expert)

App Web Sites
(Suggested Web sites for Apps)

App Videos
(Videos that showcase PE/Health Apps)

App Articles
(Articles about Apps in PE/Health Classroom)

App Bulletin Boards and Lesson Ideas
(Related resources for Apps in Health/PE)

Featured App Video:

Featured App Video:

<% closeall %>