<% @Language = "VBScript" %> <% cat = "pro" catsub = "Consumables" %> <% response.Charset="ISO-8859-1" %> <% DIM PIDr,updated,VNDR,VNDRwild,VNDRname,LANG,PROMO,REP,REPinfo,NOPRICE,SHOWRANK VNDR = request.querystring("vndr") response.write VNDR IF VNDR = "AB-Immu" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=qopLvHt08wEhnNvxcSxJlHUsMwAg7VJL&npr=1" ELSEIF VNDR = "AB-Hema" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=74SGlh37axIUCD9Mo8UbQe5QAqofPNSu&npr=1" ELSEIF VNDR = "AW-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=lef5PXMZCrUieHqMsWH03uZrE3hkKWI9&npr=1" ELSEIF VNDR = "AW-Elec" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=b8JhEmSfzbA5FsSEMqpZUz0HzhfVDYgb&npr=1" ELSEIF VNDR = "BK-Chem AU" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=iGYgu1mgex6qlo93IfRfuYAr1kSvr0Xi&npr=1" ELSEIF VNDR = "BK-Chem CX" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=WAk7cAzrvwBtfsyOUsPXKPlNjG9o8hWc&npr=1" ELSEIF VNDR = "BK-Chem LX-DXC" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=KPkFGWylyMVKyxLRLmFoxgZujUn838Po&npr=1" ELSEIF VNDR = "BT-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=zaJReV8PhLULBewlxPZhvs8Vxe1rywuv&npr=1" ELSEIF VNDR = "DD-Controls BG" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=8GhsI680eq9E8s5Bgq9ebszgMZudqk4W&npr=1" ELSEIF VNDR = "DD-Controls Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=8H730fC3kKR4Q6Bh49ENDXhruLc0Amy3&npr=1" ELSEIF VNDR = "DD-CareLyte" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=pMq7pcZd80SVUjoPhAectGoB0NZh7BXS&npr=1" ELSEIF VNDR = "DD-ProLyte" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=EycViTayOMZfMMLmnoq35STXZwfHIpTa&npr=1" ELSEIF VNDR = "DD-SmartLyte" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=hbktJVLhdrrcgg43oXdkulxcaGcBC7qN&npr=1" ELSEIF VNDR = "DU-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=A900ShxtmLadu6TFbMekzaf2tyCvXcM6&npr=1" ELSEIF VNDR = "EL-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=zbuFNjIusTaZVQyzQLDXqybmhKxi46ZQ&npr=1" ELSEIF VNDR = "FU-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=RfVbl1cpOmc6MsZUeej1bO7PBCGNvPbq&npr=1" ELSEIF VNDR = "IL-Coag" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=h2ERn3ZGOQAxhIc42n56NPkI5wwrQcoy&npr=1" ELSEIF VNDR = "IL-Elec" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=zrfSDiIwfZ0VBMhJCMv97dMSSbHQRSZJ&npr=1" ELSEIF VNDR = "IX-Elec" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=3p5fzWG1fRyRPA082csdt3e56NaPPHp6&npr=1" ELSEIF VNDR = "ME-Elec" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=6m8mvUTHMTx2slFgEsipPMPgBHfEtorN&npr=1" ELSEIF VNDR = "PM-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=7A61h3PeBHxdnKJ2SE8AIvI0u3n95Ah1&npr=1" ELSEIF VNDR = "RD-BGA" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=D5HK6Ru3yQ2orqFlmyGF4PWnb525MMYM&npr=1" ELSEIF VNDR = "RO-BGA Compact" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=nNN22jzxTeAKNg7s0mKPGa83NGVMjv39&npr=1" ELSEIF VNDR = "RO-Chem Hitachi" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=lUf29tZj8PANYVr0rnREFO3JaEYAbJfE&npr=1" ELSEIF VNDR = "RO-Chem Mira" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=zUZ1pLUy6AigtOmn5uyfjJ7NXBBmH4AZ&npr=1" ELSEIF VNDR = "RO-Chem Modular" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=xroJvbHZU1ffjpB3pv4EXu2XiYeJq7p0&npr=1" ELSEIF VNDR = "RO-Chem C6000" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=6S1wCl8xHRYkrr7wfD0GxCXqFILykCHo&npr=1" ELSEIF VNDR = "RO-Elec" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=wFBZ5KB27rlDp7cItlk8tRXlmgxgLzc3&npr=1" ELSEIF VNDR = "RX-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=Zy87uiji08D6HBjiyeEhbZMgZtnozKas&npr=1" ELSEIF VNDR = "SB-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=5gZXs62qklPHStlRlf6GHDlYP7I4Jxw1&npr=1" ELSEIF VNDR = "SM-BGA 248" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=ndfoxlqGbEhbW4VXB4UVhP0FjfMJZfLx&npr=1" ELSEIF VNDR = "SM-BGA 800" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=0fMmSCfv4q8zNeTg9Efy3nKD4Xglohkq&npr=1" ELSEIF VNDR = "SM-Chem Advia" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=9DHY8E8hwhONXGHNEJ6h6ZBfsDQBihJQ&npr=1" ELSEIF VNDR = "SM-Chem Dimension" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=GqxZfB0oQImerbvM4E3j97YbljLXgmqv&npr=1" ELSEIF VNDR = "SX-Coag" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=Gykw7o15Z7Rmzb2GrLB9LwRVRDLXI5Ls&npr=1" ELSEIF VNDR = "SX-Hema" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=UtE5G65a2KZn6PTNNP2A4sO4VjqTR7IL&npr=1" ELSEIF VNDR = "TB-Chem" THEN response.redirect "https://www.diamonddiagnostics.com/store/pricesheet?sub=ku4mYR4Ivhla5uQ9HaXG23LABf6I2FPz&npr=1" END IF IF VNDR = "" THEN VNDR = "AW-Chem" END IF VNDRwild = VNDR & "%" LANG = request.form("lang") IF LANG = "" THEN LANG = request.querystring("lang") END IF IF LANG = "" THEN LANG = "English-DLR" END IF IF LANG="HU" THEN LANGcode="English" ELSEIF LANG="BE" THEN LANGcode="French" ELSE LANGcode= LANG END IF IF VNDRwild="%" THEN VNDRwild="DD %" END IF %> <% Dim CURR ' ================== Declare SQL Query =============== strSQL = "SELECT * FROM MultiLingualItemPriceList WHERE vendor LIKE '" & VNDRwild &"' AND langCode LIKE '" & LANGcode &"' AND t3 LIKE 'Reagents & Controls' ORDER BY t3,pricesheetrank,itemnmbr ASC;" strSQL2 = "SELECT * FROM MultiLingualItemPriceList WHERE vendor LIKE '" & VNDRwild &"' AND langCode LIKE '" & LANGcode &"' AND t3 LIKE 'Electrodes & Accessories' ORDER BY t3,pricesheetrank,itemnmbr ASC;" strSQL3 = "SELECT * FROM MultiLingualItemPriceList WHERE vendor LIKE '" & VNDRwild &"' AND langCode LIKE '" & LANGcode &"' AND t3 LIKE 'Parts & Accessories' ORDER BY t3,pricesheetrank,itemnmbr ASC;" ' ================== Open Recordset / Return Records =============== oRS.Open strSQL,oConn %> <% ' ================== Data Found? =============== If oRS.EOF Then 'Response.Write("

No Product Data Found for " & VNDR & "

Please select another group







") Else ' ================== Data Found Yes =============== VNDRname = oRS("t1") MODELname = oRS("t2") IF VNDRname = "Diamond" THEN VNDRname = "Diamond Diagnostics" END IF METAdesc = "1" METAkey = "1" %> Consumables: <%= VNDRname %>- <%= MODELname %>

<%= VNDRname %>

<%= MODELname %>

  • Direct, Drop-in Replacement Products
  • 2-3 Years Expiration on all Reagents
  • FDA 510k Cleared, ISO Certified, CE Marked
  • Prompt Same Day Shipping

<%= MODELname  %>
<% IF LANG="French" OR LANG="BE" THEN CURR="€" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="German" THEN CURR="€" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="English-UK" THEN CURR="£" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="English-EU" THEN CURR="€" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="HU" THEN CURR="HUF" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="English-DLR" THEN CURR="$" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSE CURR="$" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " END IF row = 1 'loop through the fields Do While NOT oRS.Eof 't3 R&C Eloc = oRS("t3") If row=1 THEN Response.write "" ELSE Response.write "" END IF Response.write "" If row=1 THEN row=(row-1) ELSE row=(row+1) END IF 'Move to the next record in the recordset oRS.MoveNext Loop ' dont close the table to align Response.write "
<% IF LANG="French" OR LANG="BE" THEN %> Réactifs et Contrôles <% ELSEIF LANG="German" THEN %> Reagenzien u Qualitätskontrollen <% ELSE %> Reagents & Controls <% END IF %>
  ReferenceDesignationModèles CondtionnementPrice
  Bestell-nr.BeschreibungModelleEinheitPrice
  Diamond No.Product DescriptionModelsUOMPrice
  Diamond No.Product DescriptionModelsUOMPrice
  Diamond Nr.A termék leírásaModellUOMPrice
  Diamond No.Product DescriptionModelsUOMPrice
  Diamond No.Product DescriptionModelsUOMPrice
  " Response.write oRS("itemnmbr") Response.write "" Response.write oRS("gpdescription") Response.write "" Response.write oRS("models") Response.write "" Response.write oRS("unitofmeasure") Response.write "Inquire" Response.write "
" End If ' ============================================================================================SQL Electrodes & Accessories oRS.Close ' ================== Open Recordset / Return Records =============== oRS.Open strSQL2,oConn ' ================== Data Found? =============== If oRS.EOF Then 'Response.Write("

No Electrodes & Accessories Data Found for " & VNDR & "
") Else ' ================== Data Found Yes =============== VNDRname = oRS("t1") MODELname = oRS("t2") %>
<% IF LANG="French" OR LANG="BE" THEN %> Consommables et Accessoires <% ELSEIF LANG="German" THEN %> Elektroden & Zubehör <% ELSE %> Electrodes & Accessories <% END IF %>
<% IF LANG="French" OR LANG="BE" THEN CURR="€" Response.write "   Reference" Response.write " Designation" Response.write " Modèles " Response.write " Condtionnement" Response.write " Price" Response.write " " ELSEIF LANG="German" THEN CURR="€" Response.write "   Bestell-nr." Response.write " Beschreibung" Response.write " Modelle" Response.write " Einheit" Response.write " Price" Response.write " " ELSEIF LANG="English-UK" THEN CURR="£" Response.write "   Diamond No." Response.write " Product Description" Response.write " Models" Response.write " UOM" Response.write " Price" Response.write " " ELSEIF LANG="English-EU" THEN CURR="€" Response.write "   Diamond No." Response.write " Product Description" Response.write " Models" Response.write " UOM" Response.write " Price" Response.write " " ELSEIF LANG="HU" THEN CURR="HUF" Response.write "   Diamond Nr." Response.write " A termék leírása" Response.write " Modell" Response.write " UOM" Response.write " Price" Response.write " " ELSEIF LANG="English-DLR" THEN CURR="$" Response.write "   Diamond No." Response.write " Product Description" Response.write " Models" Response.write " UOM" Response.write " Price" Response.write " " ELSE CURR="$" Response.write "   Diamond No." Response.write " Product Description" Response.write " Models" Response.write " UOM" Response.write " Price" Response.write " " END IF row = 1 'loop through the fields Do While NOT oRS.Eof 't3 R&C Eloc = oRS("t3") If row=1 THEN Response.write "" ELSE Response.write "" END IF Response.write "  " Response.write oRS("itemnmbr") Response.write "" Response.write oRS("gpdescription") Response.write "" Response.write oRS("models") Response.write "" Response.write oRS("unitofmeasure") Response.write "Inquire" Response.write "" If row=1 THEN row=(row-1) ELSE row=(row+1) END IF 'Move to the next record in the recordset oRS.MoveNext Loop ' dont close the table to align Response.write "" End If ' ============================================================================================SQL Parts & Accessories oRS.Close ' ================== Open Recordset / Return Records =============== oRS.Open strSQL3,oConn ' ================== Data Found? =============== If oRS.EOF Then 'Response.Write("

No Parts & Accessories Data Found for " & VNDR & "
") Response.Write("") Else ' ================== Data Found Yes =============== VNDRname = oRS("t1") MODELname = oRS("t2") %>
<% IF LANG="French" OR LANG="BE" THEN %> Consommables et Accessoires <% ELSEIF LANG="German" THEN %> Zubehör <% ELSE %> Parts & Accessories <% END IF %>
<% IF LANG="French" OR LANG="BE" THEN CURR="€" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="German" THEN CURR="€" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="English-UK" THEN CURR="£" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="English-EU" THEN CURR="€" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="HU" THEN CURR="HUF" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSEIF LANG="English-DLR" THEN CURR="$" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " ELSE CURR="$" Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " Response.write " " END IF row = 1 'loop through the fields Do While NOT oRS.Eof 't3 R&C Eloc = oRS("t3") If row=1 THEN Response.write "" ELSE Response.write "" END IF Response.write "" If row=1 THEN row=(row-1) ELSE row=(row+1) END IF 'Move to the next record in the recordset oRS.MoveNext Loop Response.write "
  ReferenceDesignationModèles CondtionnementPrice
  Bestell-nr.BeschreibungModelleEinheitPrice
  Diamond No.Product DescriptionModelsUOMPrice
  Diamond No.Product DescriptionModelsUOMPrice
  Diamond Nr.A termék leírásaModellUOMPrice
  Diamond No.Product DescriptionModelsUOMPrice
  Diamond No.Product DescriptionModelsUOMPrice
  " Response.write oRS("itemnmbr") Response.write "" Response.write oRS("gpdescription") Response.write "" Response.write oRS("models") Response.write "" Response.write oRS("unitofmeasure") Response.write "Inquire" Response.write "
" End If ' ================== Close oRS and Conn =============== oRS.Close Set oRS=nothing oConn.Close Set oConn=nothing %>



Print Page    Print Page