<% @Language = "VBScript" %> <% cat = "ana" %> <% SC = "Hematology" %> <% METAdesc = "Search Inventory Now. Diamond Diagnostics is the global leader and premier supplier of high quality refurbished hematology analyzers from leading Original Equipment Manufacturers." %> <% METAkey = "Hematology Analyzers, Used Hematology Analyzers, Refurbished Hematology Analyzers " %> Diamond Diagnostics | Hematology Analyzers | Refurbished and Used

Hematology Analyzers | Refurbished and Used

Diamond Diagnostics offers a broad range of refurbished Hematology Systems for use in Hospital, Clinical Chemistry laboratory, Oncological Research and Veterinary environments. All Hematology systems test RBC and WBC counts and measure Hgb, HcT, MCV, MCH, MCHC and RDW, while most systems offer either a 3 part or 5 part differential of WBC. Our product range includes units for the small facility to high volume test laboratories seeking to do flow cytometry and slide preparation.

All Diamond refurbished systems undergo our signature and rigorous Down-To-FrameĀ® refurbishing program, carry parts replacement warranties and have several options available for installation, warranty extensions and services.

Featured Brands

<% ' ================== Declare SQL Query =============== strSQL = "SELECT DISTINCT ProductBrand from SearchProductSelectionList WHERE MarketPublish = 'Yes' AND itemstatus = 'Active' AND Classification IN('" & SC &"') ORDER by ProductBrand ASC;" ' ================== Open Recordset / Return Records =============== oRS.Open strSQL,oConn ' ================== Data Found? =============== If oRS.EOF Then Response.Write("

Search Analyzers

") Else ' ================== Data Found Yes =============== Response.Write("
") Response.Write(" " Response.write "
    " END IF activebrand = activebrand + "," + oRS("ProductBrand") ' list actives 'Move to the next record in the recordset oRS.MoveNext Loop Response.write "
" Response.Write("
") End If If activebrand <> "" THEN activebrand = Right(activebrand,Len(activebrand)-1) ' removes , End If ' ================== Close Conn / Recordset =============== oRS.Close %>

Other Brands

<% ' ================== Declare SQL Query =============== strSQL = "SELECT DISTINCT ProductBrand from SearchProductSelectionList WHERE MarketPublish = 'Yes' AND itemstatus != 'Active' AND Classification IN('" & SC &"') ORDER by ProductBrand ASC;" ' ================== Open Recordset / Return Records =============== oRS.Open strSQL,oConn ' ================== Data Found? =============== If oRS.EOF Then Response.Write("

Search Analyzers

") Else ' ================== Data Found Yes =============== Response.Write("
") Response.Write("
    ") 'loop through the fields Do While NOT oRS.Eof onlist = "Not yet" ' check if already on activebrand ArrayOfValues = Split(activebrand, ",") For i = 0 To UBound(ArrayOfValues) IF ArrayOfValues(i) = oRS("ProductBrand") THEN onlist = "Y" END IF Next IF onlist <> "Y" THEN ' Brand not on activebrand list Response.write "
  • " Response.write "" Response.write oRS("ProductBrand") Response.write "
  • " IF oRS("ProductBrand") = "Idexx" THEN Response.write "
" Response.write "
    " END IF END IF 'Move to the next record in the recordset oRS.MoveNext Loop Response.write "
" Response.Write("
") End If ' ================== Close Conn / Recordset =============== oRS.Close Set oRS=nothing oConn.Close Set oConn=nothing %>