<%@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 Issue 5 - an e-newsletter from OED
 

 
Great news for readers of this issue of Onsite! Besides the introduction of a new Herbal Soup stall on campus, you will also learn about our new refuse-disposal system, the new look for the YIH underpass and even get to know our logistics support team better. What's more, read about the exciting electronic key press system used by our security team and see if your office can benefit from what has worked for us...
read more
 
 
 
New Look For YIH Underpass
The underpass at Yusof Ishak House (YIH) that links YIH to Raffles hall and Centre for Arts has been an important linkway for students and staff in NUS. The underpass had deteriorated over the years and hence suffered from water seepage problems...
read more
 
 
Herbal Goodness On Campus
Feeling stressed and exhausted? Is your body in need a boost? If yes, head down to the new Herbal Soup Stall at The Terrace @ Biz for a rewarding treat.In our relentless efforts to increase the range of food on campus, another new cuisine has been offered in the form of a new Herbal Soup stall located next to the existing Kyros Kebab Stall at The Terrace...
read more
 
 
Refuse Removal By "Rear Loader Weighing System"
Over the years, refuse removal services in NUS were outsourced to contractors. The conventional payment method is by the monthly fixed lump sum priceThe system used by the refuse removal contractor was the 'Rear Loader Compaction System'. It is a popular system that is commonly practiced by many organizations in Singapore...
read more
 
 

 
Behind The Scenes - OED Logistics Support Team
The opening of the new semester saw our campus bustling with a host of activities including Freshmen Inauguration Ceremony, Flag Day, Rag Day, University Awards, Kent Ridge Ministerial Forum, PA Lunchtime Forum and Young Leaders Forum. These meaningful activities add colour, 'boisterous noises', vibrancy and life to our campus...
read more
 
 

Look Good And Feel Good In Uniform
 Early this year, students in the libraries were pleasantly surprised when they were warmly welcomed to by library staff donned in bright and radiant orange and blue attire...
read more
 
 
Electronic Key Management System At Campus Security
In August 2004, Campus Security invested in a fully automatic electronic key management system to enhance efficiency and responsiveness...
read more
 
 
 
 
Staff Feature:
Madam Nallamal
In this issue, we feature one of our faithful and loyal support staff, Madam Nallamal, our Operations Support Officer in OED. Nallamal works in the registry, handling daily incoming and outgoing mail including dispatch services...
read more
 
 
Social Activities:
My Kelong Weekend Getaway (9-10 October 2004)
The first day of the SWRC-organised trip started by gathering at Tanah Merah Ferry Departure Terminal at 8.20am. The terminal was crowded with people because of the weekend and I finally spotted my colleague...
read more
 
 
Handy Tips
Care And Maintenance Of Car Battery
The primary purpose of a car battery is to start the engine. On average, a car uses more than three hundred amperes for a few seconds in order to start a car. It also powers the lighting, audio system and other accessories...
 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