% @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("
")
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
|
|
<% 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 %>
|
<%
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 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 " 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
Response.write "
"
End If
' ================== Close oRS and Conn ===============
oRS.Close
Set oRS=nothing
oConn.Close
Set oConn=nothing
%>