Disruptive or Inappropriate behavior is unacceptable and will result in removal from the Nexus or Library and a disciplinary referral.
Computer/Internet activity may be electronically monitored.
No food. drink, candy, or gum allowed at a computer lab at any time.
Printers should be used responsibly. Students should print only what is necessary for their assignments. There is a charge for personal printing.
All District 129 acceptable use policies apply.
Students are given a limited amount of space in a folder on the server to save their class work. Flash drives, floppy disks, and CDs are permitted storage devices for transporting work between home and school.
Server space may not be used for illegal purposes nor for sharing music or executable programs.
Students should have no expectation of privacy. Anything stored on the server may be checked at any time by any staff member.
Downloading without consent of the technology staff is not permitted.
Copyright law will be adhered to under all circumstances.
Students are expected to treat equipment respectfully. Damage will not be tolerated and will be referred to Student Services. The student will be held responsible for the cost of repair or replacement.
Students are given uniques user ID to access the computer services at West High. Under no circumstances will a student use another student's ID, password, or access someone else's folder. Such conduct will result in suspension of computer privileges.
<%
Dim strCalendarConn
strCalendarConn = "Driver={SQL Server};" & _
"Server=(local);" & _
"Database=calendar;" & _
"Uid=sgray;" & _
"Pwd=vaesrt"
Dim connCategory
Set connCategory = Server.CreateObject("ADODB.Connection")
With connCategory
.ConnectionString = strCalendarConn
.CursorLocation = adUseClient
End With
connCategory.Open()
Dim commCalendarCategory, rsCalendarCategory
Set commCalendarCategory = Server.CreateObject("ADODB.Command")
With commCalendarCategory
.ActiveConnection = connCategory
.CommandType = adCmdStoredProc
.CommandText = "calendarCategorySelectAllLMC"
End With
Set rsCalendarCategory = commCalendarCategory.Execute
Dim strID
While NOT rsCalendarCategory.EOF
If InStr(Replace(rsCalendarCategory("name"), " ", ""), strSchool) Then
strID = rsCalendarCategory("id")
End If
rsCalendarCategory.movenext
Wend
'Response.Write("strID: " & strID & " ")
'Response.Write("strSchool: " & strSchool & " ")
'Response.End
Dim connCustomPages
Set connCustomPages = Server.CreateObject("ADODB.Connection")
With connCustomPages
.ConnectionString = strConnCMS
.CursorLocation = adUseClient
End With
connCustomPages.Open()
Dim commCustomPages, rsCustomPages
Set commCustomPages = Server.CreateObject("ADODB.Command")
With commCustomPages
.ActiveConnection = connCustomPages
.CommandType = adCmdStoredProc
.CommandText = "lmcRecReadsSelectByLocation"
.Parameters.Append( .CreateParameter ("docType", adVarChar, adParamInput, 50, NULL ) )
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 50, strSchool ) )
End With
Dim connDownloads
Set connDownloads = Server.CreateObject("ADODB.Connection")
With connDownloads
.ConnectionString = strConnCMS
.CursorLocation = adUseClient
End With
connDownloads.Open()
Dim commDownloads, rsDownloads
Set commDownloads = Server.CreateObject("ADODB.Command")
With commDownloads
.ActiveConnection = connDownloads
.CommandType = adCmdStoredProc
.CommandText = "lmcDownloadInfo"
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 75, strSchool ) )
End With
Set rsDownloads = commDownloads.Execute
%>
<% End If
commCustomPages.Parameters("docType") = "Research_Resources"
Set rsCustomPages = commCustomPages.Execute
If rsCustomPages.RecordCount > 0 Then
%>
<% End If
commCustomPages.Parameters("docType") = "Local Libraries"
Set rsCustomPages = commCustomPages.Execute
If rsCustomPages.RecordCount > 0 Then
%>
<%
End If
commCustomPages.Parameters("docType") = "Custom"
Set rsCustomPages = commCustomPages.Execute
While NOT rsCustomPages.EOF
If Not IsNull(rsCustomPages("buttonline1")) And Not IsNull(rsCustomPages("buttonline2")) Then
%>
