<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("MM_Username") Session.Contents.Remove("MM_UserAuthorization") MM_logoutRedirectPage = "/learntech/cal/index.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% Dim Events Dim Events_numRows Set Events = Server.CreateObject("ADODB.Recordset") Events.ActiveConnection = MM_events_STRING Events.Source = "SELECT * FROM dbo.events" Events.CursorType = 0 Events.CursorLocation = 2 Events.LockType = 1 Events.Open() Events_numRows = 0 %> <% Dim todayEvents Dim todayEvents_numRows Set todayEvents = Server.CreateObject("ADODB.Recordset") todayEvents.ActiveConnection = MM_events_STRING todayEvents.Source = "SELECT eid, sdate, substring(convert(varchar(19),edate,100),1,11) as [Todays Date], startTime, endTime, eventTitle, EventDescription, Coordinator, email, eLocation, eDuration FROM dbo.events WHERE convert(varchar(19),edate,101) = convert(varchar(19),getdate(),101)" todayEvents.CursorType = 0 todayEvents.CursorLocation = 2 todayEvents.LockType = 1 todayEvents.Open() todayEvents_numRows = 0 %> <% Dim loggedin__MMColParam loggedin__MMColParam = "1" If (Session("MM_Username") <> "") Then loggedin__MMColParam = Session("MM_Username") End If %> <% Dim loggedin Dim loggedin_numRows Set loggedin = Server.CreateObject("ADODB.Recordset") loggedin.ActiveConnection = MM_events_STRING loggedin.Source = "SELECT * FROM dbo.cal_login WHERE username = '" + Replace(loggedin__MMColParam, "'", "''") + "'" loggedin.CursorType = 0 loggedin.CursorLocation = 2 loggedin.LockType = 1 loggedin.Open() loggedin_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 todayEvents_numRows = todayEvents_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Function ASPCalendar If Request("EventDate") <> "" Then EventDate = DateValue(Request("EventDate")) Else EventDate = date() End if CurMonth = Month(EventDate) CurMonthName = MonthName(CurMonth) CurYear = Year(EventDate) FirstDayDate = DateSerial(CurYear, CurMonth, 1) FirstDay = WeekDay(FirstDayDate, 0) CurDay = FirstDayDate Dim tmpHTML tmpHTML="" tmpHTML = tmpHTML & "" & Chr(10) tmpHTML = tmpHTML & "" & Chr(10) tmpHTML = tmpHTML & "" & Chr(10) tmpHTML = tmpHTML & "" & Chr(10) & "" & Chr(10) & "" Response.Write(tmpHTML) For DayLoop = 1 to 7 Response.Write("" & Chr(10)) Next Response.Write("" & Chr(10) & "") If FirstDay <> 1 Then Response.Write("" & Chr(10)) End if DayCounter = FirstDay CorrectMonth = True Do While CorrectMonth = True isEvent = FALSE Events.filter = 0 Dim iCheck Dim chkStr chkStr = (Events.Fields.Item("sdate").Name) iCheck = CurDay Events.filter = chkStr & "=" & (iCheck) If not(Events.EOF) Then isEvent = TRUE If CurDay = EventDate Then Response.Write("" & Chr(10)) Else Response.Write(Day(CurDay) & "" & Chr(10)) End If DayCounter = DayCounter + 1 If DayCounter > 7 Then DayCounter = 1 Response.Write("" & Chr(10)) Response.Write(" CurMonth Then Response.Write(" class=""lastweek""") End If Response.Write(">" & Chr(10)) End if CurDay = DateAdd("d", 1, CurDay) If Month(CurDay) <> CurMonth then CorrectMonth = False End if Loop IF DayCounter <> 1 Then Response.Write("") Else Response.Write("") End if Response.Write("" & Chr(10) & "
CDE Events Calendar
" & Chr(10) tmpHTML = tmpHTML & "" & " " & CurMonthName & " " & "" & "    " tmpHTML = tmpHTML & "" & " " & CurYear & " " & "" tmpHTML = tmpHTML & "
" & WeekDayName(Dayloop, True, 0) & "
 ") Else Response.Write("") End if If isEvent = TRUE Then Response.Write("" & Day(CurDay)& "") Response.Write("
  
" & Chr(10)) End Function %> Untitled Document
   


CONTACT:
Dr. Ellen P. O'Hara-Mays,
Executive Director
Learning Technology &
Distance Education
P:570-893-2072
F:570-893-2638
poharama@lhup.edu
toll free 877-268-4688
 

ExamGuard

ExamGuard is an optional online assessment tool that your institution may have purchased. ExamGuard uses QuestionMark Secure technology to offer a customized browser that provides an extra secure environment for online test-taking. Specifically, when students take an exam using ExamGuard, they cannot:

  • print
  • copy and paste
  • go to another URL or website
  • minimize the browser window
  • use menu options, control keys, or task switching
  • use right-click options
  • start new applications
  • return to a previous page

Students must download the ExamGuard software before they can access the exam. To avoid last-minute anxiety and panic, we strongly urge you to encourage students to download the software well before the date and time of the exam so that they are all ready to go when the exam time actually comes. Students can download the software at any time from the Start page of the Exam (even days or weeks before the exam), or the download link is available in their online Help under Taking Exams.

If your institution has purchased ExamGuard, you can activate the ExamGuard feature from the Author mode--> Toolbox button for a particular exam. To download the ExamGuard software yourself, click here .

Refer to the "Tips and Hints," below, for important information about using ExamGuard.

ExamGuard Tips and Hints

  • Make sure your students know well ahead of time that they will need to download and install the ExamGuard software. They will not be able to access their exam until they do. We suggest creating a course announcement on the Course Home Page as a download reminder.
  • The link for students to download ExamGuard and all other necessary instructions are located on the Start page for the exam. Students should be aware that there are several steps in this process, however, and should be told to plan accordingly.
  • To verify that students have ExamGuard installed correctly and to "experience" the secure browser before they actually take the exam, you should encourage them to go to the Student Orientation Course (located on their Personal Homepage) and take a "practice exam" using ExamGuard.
  • Make sure you "preview" your ExamGuard exam before you deploy it to students. From the Author tab, click Preview Exam and select to preview using ExamGuard.
  • ExamGuard is not compatible with Macintosh computers. As an instructor, you can set up or create an exam that uses ExamGuard on a Mac, but students must take ExamGuard exams on a PC.
  • After students install the ExamGuard software, they will need to close their current browser window, open a new browser, and re-login to their course for the ExamGuard software to be recognized by the system.
  • ExamGuard works best with Internet Explorer.
  • ExamGuard will work in Netscape. However, students must have Internet Explorer installed on the computer--even if they are accessing the exam with Netscape--and the Netscape browser must be configured to support ExamGuard. Steps for configuring Netscape can be found on the ExamGuard Download and Instructions screen when students download the software.
  • The ExamGuard browser essentially "locks" the user's browser window. As a result, students will not have access to any programs or applications they have running when they launch the exam. Because of this, you should be very careful using audio links in your exam--should something go wrong with the link for whatever reason, students will be unable to access their audio player.
  • If you really want to use audio/video in your exam, you must embed the media player in the exam question. This is the only way students will have access to the media player's controls: the start/stop/pause/volume buttons. If you don't embed the player, the player will open "behind" the ExamGuard browser and students will be unable to see or access the controls.
  • Because the ExamGuard browser "locks" the user's browser window, avoid using links to other web pages or outside sources in your exam. Students will be unable to get to these pages.
  • America Online (AOL), Prodigy, and CompuServe are Internet Service Providers (ISP) who provide as part of their software an internal web browser that allows users to browse the web. Often, these web browsers are either customized and/or older versions of Internet Explorer (IE). These "modified" browsers are not currently supported by ExamGuard.
  • If a student downloaded the software but is having trouble launching the browser, s/he may need to clear out the "temporary internet files" area of her/his browser (i.e., clear their cache). To do this, they should click the Tools button in their browser, then select Internet Options . From the General tab, click Delete Files under Internet Options .
  • If you've set a time limit on the exam, a student's "time" doesn't start until s/he actually begins the exam--ExamGuard download time does not apply to the exam time. However, we highly recommend that you have students download the ExamGuard software well before the exam start time.

 

The ExamGuard feature uses Questionmark Secure software to provide a secure environment to deliver assessments. An instructor can enable the ExamGuard feature, which will force the exam to load in a secure browser. Download file size = 2.3MB
Click here if your download of Questionmark Secure does not automatically start in 5 seconds .
Click here for details of installing and using Questionmark Secure player .
When you have finished downloading, close this browser window and return to your course.

 

  
 
   
January 6, 2006 A proud member of the Pennsylvania State System of Higher Education    
All LHU Sites LHU Calendar Lock Haven Home Web Master
<% Events.Close() Set Events = Nothing %> <% todayEvents.Close() Set todayEvents = Nothing %> <% loggedin.Close() Set loggedin = Nothing %>