<% @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 <% ' ================== Declare SQL Query =============== strSQL98 = "SELECT * FROM ERmessages ;" ' ================== Open Recordset / Return Records =============== oRS.Open strSQL98,oConn ' ================== Data Found? =============== If oRS.EOF Then Response.Write("

No Data Found

") Else ' ================== Data Found Yes =============== EMPMESS = oRS("HRmessage") bigMESS = Split(EMPMESS, "*") messageHEAD = bigMESS(0) messageBODY = bigMESS(1) ' messageBODY = Replace(messageBODY,".",".

") END IF ' ================== Close oRS and Conn =============== oRS.Close Set oRS=nothing oConn.Close Set oConn=nothing %>

Diamond Employees

 
 

This page provides notices for current Diamond Diagnostics employees.

If you are not a Diamond employee, and are looking for a Career with Diamond Diagnostics, please click here.

Employee Notices

<%= messageHEAD %>
<% messageBODYview = messageBODY messageBODYview = Replace(messageBODYview,"\","
") %> <%= messageBODYview %>

 

Weather at our Boston Office

Find more about Weather in Holliston, MA
Click for weather forecast



Weather at our Budapest Office

Find more about Weather in Budapest, HU
Click for weather forecast
 
<% IF Session("EMPlogin") = "mary313" THEN %>
Update Notice

   Note: To ''reset'' message, leave Title and Message blank, and click “UPDATE”.
            The default message is reset and ''All offices are open as usual'' message will be shown.

Title:

Message:
   Note: Add a backslash ''\'' to create a line break in the message.

<% END IF %>