<%=objRSTests("Name")%> (Code: <%=testcode %>)
Test Description:
<%=objRSTests("Description")%>
DNA Test:
<%=objRSTests("DNATest")%>
Test Is Available For The Following Breeds:
<%
if (TRIM(objRSTests("TestCode")) <> "C101") Then
if (TRIM(objRSTests("TestCode")) <> "C128") Then
Do While Not objRSBreeds.EOF
Response.Write "" & objRSBreeds("b_name") & "
"
objRSBreeds.MoveNext
Loop
else
Do While Not objRSBreeds.EOF
if (TRIM(objRSBreeds("breed_ID")) <> 5) then
Response.Write "" & objRSBreeds("b_name") & "
"
else
Response.Write "" & objRSBreeds("b_name") & "
"
end if
objRSBreeds.MoveNext
Loop
end if
else
Response.Write "Canine DNA Parentage test is available for ANY breed"
end if
%>
Pricing:
<%
if (TRIM(objRSTests("TestCode")) <> "C128") then
if (objRSTests("USAOk")="True") Then
if (TRIM(objRSTests("PriceUS")) <> "" ) then
Response.Write " - $" &objRSTests("PriceUS") & " US
"
end if
else
Response.Write "HealthGene Corp. does not accept samples for this test from USA residents.
"
end if
if (TRIM(objRSTests("PriceCDN")) <> "") then
Response.Write " - $" &objRSTests("PriceCDN") & " CDN (subject to 5% GST - Canadian residents only)
"
end if
else
Response.Write "Prices for Canine Coat Color testing depend on the number of alleles tested. Visit your breed's Coat Color test webpage to learn more."
end if
%>
Special contract prices are available for Breeder Clubs. Please contact us for more information.
Certification of Results
HealthGene will provide a certificate for each test result.
Samples:
<%
if (TRIM(objRSTests("TestCode")) <> "C128") then
Response.Write "The following sample(s) can be submitted for the testing:
"
Do While Not objRSSamples.EOF
Response.Write " - " & objRSSamples("s_Desc") & "
"
objRSSamples.MoveNext
Loop
else
Response.Write "Type of samples for Canine Coat Color testing depends on the number of alleles tested. Visit your breed's Coat Color test webpage to learn more."
end if
%>
Reporting Results
Test results are usually available in 10 business days from the moment the samples arrive at the laboratory. Test results can be reported by e-mail, fax, or by phone.
<%
objRSBreeds.Close
Set objRSBreeds = Nothing
objRSTests.Close
Set objRSTests = Nothing
objRSSamples.Close
Set objRSSamples = Nothing
objConn.Close
Set objConn = Nothing
%>
|
