Latest - Laptop Information 2007-2008

<%@ language="VBScript" %> Latest - Laptop Information 2007-2008 <% 'define the provider 'strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Calendar_new") & "\calendar0203.mdb;" 'ON ERROR RESUME NEXT 'create and open the ConnectionString set dbConn=Server.CreateObject("ADODB.Connection") 'dbConn.Open strProvider dbConn.Open Application("calendar") ' define the queries dim vardate vardate=request.querystring("Date") if not isEmpty(request.form("makeCalendar")) then strDivs=trim(request.form("divcheck")) 'response.write strDivs dim vardateForm vardateForm = request.form("strDate") 'response.Write(vardateForm) if Instr(strDivs,"All") > 0 then strQueryDate = "SELECT Subject, StartDate, StartTime, Categories, Description, Location FROM Calendar WHERE StartDate=#" & vardateForm & "# ORDER BY StartTime" else aItems = split(strDivs, ",") strOr = "AND (Subject LIKE " for i=0 to ubound(aItems) strOr = strOr + "'" + LTrim(aItems(i)) + "%' " strOr = strOr + "OR Subject LIKE " next strOr = Left(strOr, Len(strOr) - 17) strOr = strOr + ")" strQueryDate = "SELECT Subject, StartDate, StartTime, Categories, Description, Location FROM Calendar WHERE StartDate=#" & vardateForm & "# " & strOr & " ORDER BY StartTime" 'strQueryDate = "SELECT Subject, StartDate, StartTime, Categories, Description, Location FROM Calendar WHERE StartDate=#" & vardate & "# AND (Subject LIKE 'US%' OR Subject LIKE 'MS%') ORDER BY StartTime" 'response.Write(strQueryDate) end if else strQueryDate = "SELECT Subject, StartDate, StartTime, Categories, Description, Location FROM Calendar WHERE StartDate=#" & vardate & "# ORDER BY StartTime" vardateForm = vardate end if ' create and open the record set using the established connection Set rsRecs = Server.CreateObject("ADODB.Recordset") rsRecs.Open strQueryDate, dbConn, , , adCmdText 'response.Write(strQueryDate & "
" & Server.MapPath("\Calendar_new") & "
") %>

The final date for ordering a Tablet from
DSR Computer Sales & Service for the School program is July 23rd.

Our Toshiba Channel Partner is DSR Computer Sales & Service. If you prefer to speak with the DSR Computer Sales & Service representative assigned directly to RPCS please contact them at 410-579-4508 or 800-875-0037.

The final date for ordering a Tablet from DSR Computer Sales & Service for the School program is July 23rd. If your order is placed after July 23rd, your Tablet may not be configured and ready for the start of school. DSR Computer Sales & Service will accept payment by credit card, cash or prepayment by check.

Happy Summer!

The RPCS Tech Department hopes you’re having a relaxing summer! To facilitate a smooth beginning of next year all laptops need to be re-imaged.

Please drop off your daughter’s laptop by August 13th to be re-imaged. Any non-RPCS data (this includes MP3, iTunes or non-RPCS installed software) stored on your daughter’s machine should be backed up prior to you dropping off her laptop. If you are purchasing a replacement laptop for your daughter it’s not necessary for you to bring it in during this time. Laptops will be returned during “Out of Box Day” or US Advisory. The “Out of Box Day” for 7th grade will be Wednesday, September 3rd from 12 noon to 3:30 p.m. “Out of Box Day” for new 8th grade and new US students will begins Monday, August 18th from 9:00 a.m. to 11:00 p.m. All other laptops will be returned during Advisory on Wednesday September 3rd.

On August 13th all student passwords will be reset and you will not have access to your RPCS email account until your laptop is returned to you and you have a signed AUP on file.

Thank you, RPCS Tech Team