% @Language = "VBScript" %> <% cat = "res" %> <% IF request("EMP") = "Y" THEN Session("EMPlogin")= Request.Form("EMPlogin") END IF %> <% IF Request.Form("UPDATEmessage") = "Y" THEN NEWmessage = Request.Form("NEWmessageHEAD") & " *" & Request.Form("NEWmessageBODY")& " " IF NEWmessage =" * " THEN NEWmessage = "No Special Notices*All offices are open as usual." END IF %> <% ' ================== Declare SQL Query =============== strSQL99 = "SELECT * FROM ERmessages ;" ' ================== Open Recordset for Edits / Return Records =============== oRS.CursorType = 2 oRS.LockType = 3 oRS.Open strSQL99,oConn ' ================== Update Fields =============== oRS.Fields("HRmessage")= NEWmessage 'Write the updated recordset to the database oRS.Update ' ================== Close Conn / Recordset =============== oRS.Close Set oRS=nothing oConn.Close Set oConn=nothing response.Redirect("resources_employee.asp?u=y") END IF %>
Diamond Employees |
||
This page provides notices for current Diamond Diagnostics employees. |
||
Employee Notices<%= messageHEAD %> |
Weather at our Boston Office Click for weather forecast Click for weather forecast |