<%@ Page Language="VB" ValidateRequest="False" %> Suppliers for clinical laboratory consumables : elaboratory.co.uk
Advertiser
<% Dim id1 As Integer = 0 Dim zone1 As String = "A" Dim type1 As String = "" Dim override1 as Boolean = False Dim sDIRNAME1 As String = "" Dim sSearch1 As String = "" Dim sKW1 As String = "" Dim sExecPath1 As String = "/_scr/adserve.aspx?" & _ "id=" & id1 & "&" & _ "fid=16759&" & _ "zone=" & zone1 & "&" & _ "type=" & type1 & "&" & _ "override=" & override1 & "&" & _ "siteid=41&" if len(request.form.tostring)>0 then if not isnothing(request.form("directoryresultsearch")) then if len(request.form("directoryresultsearch"))>0 then sSearch1=request.form("directoryresultsearch") end if if not isnothing(request.form("dirname")) then if len(request.form("dirname"))>0 then sDIRNAME1=request.form("dirname") end if end if if not isnothing(request("searchfor")) then sKW1=request("searchfor") sExecPath1 &="kw=" & sKW1 if len(sDIRNAME1)>0 and len(sSearch1)>0 then sExecPath1 &="&dn=" & sDIRNAME1 & "&" & _ "ph=" & sSearch1 end if Server.Execute(sExecPath1) %>
Medical DepartmentsLab EquipmentPharmaceutical

Consumables

Modern sciences require a constant supply of consumables to enable scientists to do their job.

The list of consumables used by scientists is almost endless. From adhesives to glassware, aerosols to thermometers, you need a constant supply of materials to keep working.

Consumables are essential for any laboratory, and you take it for granted that they will be there when you need them.

The problem is that suppliers can be unreliable, and so there may be times when you aren't able to get what you need - work grinds to a halt.

Even if your suppliers are reliable, how do you know if you're getting the right price? There are hundreds of companies out there - if you need glassware and pipettes, there are over 50 companies offering them - so tracking them all down is arduous and time consuming.

To make it easier for you, we have brought together a comprehensive list of suppliers - you can thus check prices quickly and easily, to be sure that you are getting the best supplies and equipment at the right price.

So whether you use bottles by the bucket full, or clamps by the crate, check out or listing to see how much money you can save.
Medical Departments
Lab Equipment
  Biochemistry
  Biotechnology
  Chemistry
  Consumables
  Engineering
  Environment
  Haematology
  Health
  Imaging
  Laboratory Design & Storage
  Laboratory Services
  Microbiology
  Pharma
  Health & Safety
  Sample Preparation
  Seperation Techniques
  Software
  Spectroscopy
  Test Equipment
Pharmaceutical


Advertiser
<% Dim id2 As Integer = 0 Dim zone2 As String = "N" Dim type2 As String = "" Dim override2 as Boolean = False Dim sDIRNAME2 As String = "" Dim sSearch2 As String = "" Dim sKW2 As String = "" Dim sExecPath2 As String = "/_scr/adserve.aspx?" & _ "id=" & id2 & "&" & _ "fid=16759&" & _ "zone=" & zone2 & "&" & _ "type=" & type2 & "&" & _ "override=" & override2 & "&" & _ "siteid=41&" if len(request.form.tostring)>0 then if not isnothing(request.form("directoryresultsearch")) then if len(request.form("directoryresultsearch"))>0 then sSearch2=request.form("directoryresultsearch") end if if not isnothing(request.form("dirname")) then if len(request.form("dirname"))>0 then sDIRNAME2=request.form("dirname") end if end if if not isnothing(request("searchfor")) then sKW2=request("searchfor") sExecPath2 &="kw=" & sKW2 if len(sDIRNAME2)>0 and len(sSearch2)>0 then sExecPath2 &="&dn=" & sDIRNAME2 & "&" & _ "ph=" & sSearch2 end if Server.Execute(sExecPath2) %>
© elaboratory.co.uk 2008 Legal | Contact
<% Dim id3 As Integer = 0 Dim zone3 As String = "B" Dim type3 As String = "" Dim override3 as Boolean = False Dim sDIRNAME3 As String = "" Dim sSearch3 As String = "" Dim sKW3 As String = "" Dim sExecPath3 As String = "/_scr/adserve.aspx?" & _ "id=" & id3 & "&" & _ "fid=16759&" & _ "zone=" & zone3 & "&" & _ "type=" & type3 & "&" & _ "override=" & override3 & "&" & _ "siteid=41&" if len(request.form.tostring)>0 then if not isnothing(request.form("directoryresultsearch")) then if len(request.form("directoryresultsearch"))>0 then sSearch3=request.form("directoryresultsearch") end if if not isnothing(request.form("dirname")) then if len(request.form("dirname"))>0 then sDIRNAME3=request.form("dirname") end if end if if not isnothing(request("searchfor")) then sKW3=request("searchfor") sExecPath3 &="kw=" & sKW3 if len(sDIRNAME3)>0 and len(sSearch3)>0 then sExecPath3 &="&dn=" & sDIRNAME3 & "&" & _ "ph=" & sSearch3 end if Server.Execute(sExecPath3) %>