<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_poll_STRING MM_editTable = "poll" MM_editRedirectUrl = "" MM_fieldsStr = "excellent|value|very_good|value|good|value|satisfactory|value|poor|value" MM_columnsStr = "excellent|',none,''|[very good]|',none,''|good|',none,''|satisfactory|',none,''|poor|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> ONSITE@OED - an e-newsletter from OED
 

 
Great news. We're back with another exciting issue of Onsite@OED. In our third issue, check out the new food stalls @ The Deck@FASS, our cool guard tour system and the extreme makeovers for some of the Lecture Theatres during the current term vacation period.And if that fails to keep your eyelids open, take a look at our Big Walk video of the first OED Contingent that took part in the New Paper Big Walk on 23 May 2004...
read more
 
 
 
Ground Breaking Ceremony for NUS High School on Friday, 23 April 2004
The groundbreaking ceremony for the new NUS High School was held on Friday, 23 April 2004. The simple and dignified ceremony brought together many VIPs, stakeholders and friends from both the NUS community and the education circle....
read more
 
 
Upgrading of Lecture Theatres
While many of the students were out of campus during the term vacation from May to July 2004, the upgrading works for lecture theatres 3, 4, 5, 9, 16 and 17 went into full swing to make use of this period to minimize disruption caused to important activities during term time...
read more
 
 

Exciting Changes at The Deck@FASS
Coming this June, we invite you to tantalize your taste buds as you savour authentic and mouth-watering delicacies at the new food stalls at The Deck @ Faculty of Arts and Social Sciences...
read more
 
 

New Look for Reading Room@Yusof Ishak House
The Reading Room at Yusof Ishak House has been part and parcel of life for most students and even for some staff in NUS. It has remained very much the same throughout the years...
read more
 
 
Energy-Saving Measures at Visitor's Lodge
As part of our continuing efforts to reduce energy consumption, we have implemented 2 measures at the Visitor's Lodge.
read more
 
 
Guard Tour System
The NUS campus spans an approximate 1,460,000 m² across an estimated 244 buildings. Naturally, this makes effective security patrolling an uphill task. To take on this mission, dedicated campus wardens are deployed to patrol and safeguard designated areas daily during office hours and beyond...
read more
 
 
Personal Alarm System
The next time you hear a loud beetle-like sound, look around to see if there is anyone who needs help. Someone could be in trouble and have activated a Personal Alarm Device (PAD) to get attention and help...
read more
 

 
EM Customer Service Day
In line with OED's Quality Policy to provide quality services that are responsive, timely and value-added, a fun-filled day of exciting activities was organized on 28th April 2004 to create awareness and promote the importance of excellent customer service for all Estate Maintenance Staff...
read more
 
 
Term Consultant for Addition & Alteration Works at NUS
With the moratorium of CPG Consultants Pte Ltd (CPGC) ending in April 2004, OED embarked on a project to appoint more term consultants to serve NUS in late 2003...
read more
 
 
 
Staff Feature - Security Assistant (SA) Lim Siang Kee
At 62 years of age, Security Assistant (SA) Lim Siang Kee is healthy, fit and full of enthusiasm in everything that he does. He has been deployed to the Office of the President (OP) and University Hall for the past two years, and he has served a total of 16 years with the University...
read more
 
 
Social Activities - TNP Big Walk
23 May 2004, it was a hot and sunny Sunday morning when a group of 48 OED staff and their family members assembled at 7.00am at the National Stadium for the New Paper Big Walk...
read more
 
 
Handy Tips
What is Ergonomics?
Ergonomics is the study of adapting working conditions, such as the products one uses and one's environment, to the human being.

Can Poor Posture Affect Our Health?
"For the organs to function effectively, the whole structure of the musculo-skeletal system is important.
If one does not use the body correctly over a long period of time, back and neck pain can occur. This is why it is important that children develop good habits in sitting, standing and the use of their own bodies."...
 read more
 


 





Other Issues


Office of Estate and Development
2 Estate Office Drive
Singapore 117587

Customer Service Centre: 6874 1515
Fax: 6778 6031

Website: http://www.nus.edu.sg/oed