<% @Language = "VBScript" %> <% cat = "ana" %> <% Server.ScriptTimeout=200 %> <% DIM PIDr,updated DIM PID DIM ProductBrand DIM ModelNumber DIM classi DIM Manufacturer DIM Series DIM CLIA DIM PRIVLABin DIM PRIVLABinS DIM PRIVLABout DIM PRIVLABeqv DIM NUMass DIM TESTASSAYS PIDr = request.querystring("pid") IF PIDr="" THEN response.redirect("analyzers_Search.asp") END IF 'PIDrJPG = Server.URLEncode(PIDr) PIDrJPG = PIDr PIDrJPG = Replace(PIDrJPG,"+","plus") METAdesc = "1" METAkey = "1" %> <% IF thispage<>"default.asp" THEN ' ================== Declare SQL Query =============== strSQL = "SELECT * FROM SearchProductSelectionList WHERE DiamondPN = '" & PIDr &"' AND MarketPublish = 'Yes' ;" strSQL1 = "SELECT * FROM SearchProductTestAssays WHERE DiamondPN = '" & PIDr &"' AND MarketPublish = '1' ORDER BY TestAssay ASC ; " strSQL2 = "SELECT * FROM SearchProductFunctional_Sample WHERE DiamondPN = '" & PIDr &"'; " strSQL3 = "SELECT * FROM SearchProductFunctional_Optical_System WHERE DiamondPN = '" & PIDr &"'; " strSQL4 = "SELECT * FROM SearchProductFunctional_Optical_Source WHERE DiamondPN = '" & PIDr &"'; " strSQL5 = "SELECT * FROM SearchProductFunctional_TestMethod WHERE DiamondPN = '" & PIDr &"'; " strSQL6 = "SELECT * FROM SearchProductDimension WHERE DiamondPN = '" & PIDr &"' AND UnitType = 'Unit' ORDER BY UnitSKU ASC ;" strSQL7 = "SELECT * FROM SearchProductTestPanels WHERE DiamondPN = '" & PIDr &"' ORDER BY TestAssay ASC ; " ' INTERNAL Specifications strSQL8 = "SELECT * FROM SearchProductDimension WHERE DiamondPN = '" & PIDr &"' AND UnitType = 'Crate' ORDER BY UnitSKU ASC ;" strSQL9 = "SELECT * FROM SearchProductComputerComponents WHERE DiamondPN = '" & PIDr &"'; " ' ================== Open Recordset / Return Records =============== oRS.Open strSQL,oConn ' ================== Data Found? =============== If oRS.EOF Then response.Redirect("analyzers_Search.asp") Else ' ================== Data Found Yes =============== PID = oRS("DiamondPN") ProductBrand = oRS("ProductBrand") ModelNumber = oRS("ModelNumber") classi = oRS("Classification") IF classi = "Other" THEN classi = "Diagnostic" END IF Manufacturer = oRS("Manufacturer") Series = oRS("Series") CLIA = oRS("CLIAComplexity") PRIVLABin = oRS("PrivateLabeledIn") PRIVLABinS = oRS("PrivateLabeledInSource") PRIVLABout = oRS("PrivateLabeledOut") PRIVLABeqv = oRS("PrivateLabelEquivalent") ProductBrand = Trim(ProductBrand) classi = Trim(classi) NUMass = oRS("NumberOfAssays") END IF %> <%= ModelNumber %> - <%= classi %> Analyzer Information "> <%= ModelNumber %> - <%= ProductBrand %> - <%= classi %> Analyzer
new LIFE

<%= ProductBrand %> <%= ModelNumber %>

   <%= classi %> Analyzer  
<% IF oRS("PrivateLabeledIn") <> "Yes" THEN %> <% End If %> <% If NUMass <> "0" Then %> <% End If %>

<%= PIDr %>

Highlights
Original instrumentation provided by <%= Manufacturer %>.
Total number of assays tested: <%= NUMass %>.
Diamond Down-To-Frame® refurbishment provided.
Refurbishment includes disassembly and total restoration.
Process continues with assembly, repair, and diagnostics.
Certification concludes with calibration, QC and QA validation.
Contact Diamond for pricing, specifications and availability.

<% oRS.Close %> <%PIDr = Replace(PIDr,"+","%2B")%>
Assays
<% ' ================== Open New Recordset / Return Records =============== oRS.Open strSQL1,oConn ' ================== Data Found? =============== If oRS.EOF Then Response.Write("Inquire Here for a complete list!   ") Else ' ================== Data Found Yes =============== %> Total assays tested: <%= NUMass %> - <% listcount = 1 'loop through the fields Do While NOT oRS.Eof IF listcount = 2 THEN Response.write ", " END IF IF listcount < 3 THEN Response.write oRS("TestAssay") END IF listcount = (listcount+1) 'Move to the next record in the recordset oRS.MoveNext Loop Response.write "...
Inquire Here for a complete list! " End If ' ================== Close Last Recordset =============== oRS.Close %>
      <% 'RIGHT COL %>

Specifications

<% IF classi = "Diagnostic" OR classi = "Chemistry" THEN %>
Panels
<% ' ================== Open New Recordset / Return Records =============== oRS.Open strSQL7,oConn ' ================== Data Found? =============== If oRS.EOF Then Response.Write("   ") Else ' ================== Data Found Yes =============== listcount = 1 'loop through the fields Do While NOT oRS.Eof IF listcount <> 1 THEN Response.write ", " END IF Response.write oRS("TestAssay") listcount = (listcount+1) 'Move to the next record in the recordset oRS.MoveNext Loop End If ' ================== Close Last Recordset =============== oRS.Close %>
<% END IF 'classi Panel data %>

<% IF classi = "do not use for now" THEN %>

New Life

<% END IF %>
<% ' ================== Close Conn / Recordset =============== ' oRS.Close aleady closed Set oRS=nothing oConn.Close Set oConn=nothing %> <% End If ' instument found %>