|
Highlights |
<% IF oRS("PrivateLabeledIn") <> "Yes" THEN %>
♦ Original instrumentation provided by <%= Manufacturer %>. |
<% End If %>
<% If NUMass <> "0" Then %>
♦ Total number of assays tested: <%= NUMass %>. |
<% End If %>
♦ 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 %>
<% 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 %>
<% END IF %>
|