Company
Products
Services
News
Downloads
Contact Us
Home Page
Cambridge Life Sciences - Products - Clinical Chemistry - Drug Monitoring
Search  
Immunology Clinical Chemistry Urease Hp Tests Instrumentation
" TRstring = TRstring & "" TRstring = TRstring & "" TRstring = TRstring & "" TRstring = TRstring & "" i=i+1 rs.moveNext() loop rs.close Set rs = nothing conn.close Set conn = nothing TRstring = replace(TRstring,"{#N#}","") ReadDataFromExcel = TRstring End Function Table1 = ReadDataFromExcel (server.MapPath("/xlsdata/hitachi-general.xls"), "Sheet1") Table2 = ReadDataFromExcel (server.MapPath("/xlsdata/hitachi-specific-control-calibrators.xls"), "Sheet1") Table3 = ReadDataFromExcel (server.MapPath("/xlsdata/hitachi-general-control-calibrators.xls"), "Sheet1") %>

Roche®

Barcoded, liquid ready to use reagents in Roche® style bottles for the Roche® clinical chemistry analysers.

<% Function ReadDataFromExcel(sFileNameAndPath, sSheetName) Dim conn Set conn = CreateObject("ADODB.Connection") With conn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = _ "Data Source=" & sFileNameAndPath & ";" & _ "Extended Properties=Excel 8.0;" .Open End With Dim sSQL,rs,vRows, strtext Set rs = CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM [" & sSheetName & "$]" rs.open sSQL, conn i=0 TRstring="" do while not rs.eof TRstring = TRstring & "
" & rs("Code") & "" & rs("Product") & "" & rs("Description") & "
<%=Table1%>
Code
Product
Description

Specific Control & Calibrators

<%=Table2%>
Code
Product
Description

General Controls & Calibrators

<%=Table3%>
Code
Product
Description

 

Please select another Clinical Chemistry option:

Immunology     Clinical Chemistry    Urease Hp Tests     Instrumentation