<%@ Language=VBScript %> <% Option Explicit %> <% 'Open a connection to the database Dim objConn, strSQL1,objRSBreed,breedCount,rowsNumb, breedsArray, rowcount, i Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString=connect() objConn.Open strSQL1="SELECT breed_ID,b_name FROM breed ORDER BY b_name" Set objRSBreed = Server.CreateObject("ADODB.Recordset") objRSBreed.Open strSQL1, objConn,3,3 breedCount = objRSBreed.RecordCount rowsNumb = Round(breedCount/2,0) %> HealthGene - Canine DNA Testing

Home \| Technology \| Company \| Contact

HOME | LIST OF BREEDS

List Of Breeds

Most of genetic DNA tests are breed-specific. To learn more about tests that are available for your breed, follow a link to the breed profile.

Note:
Canine DNA Parentage test is available for ANY breed. To order canine DNA parentage, click here.

<% i = 0 objRSBreed.MoveFirst For i=1 to rowsNumb Response.Write "" & objRSBreed("b_name")& "" & "
" & CHR(10) objRSBreed.MoveNext Next %>

<% i = 0 For i=rowsNumb+1 to breedCount Response.Write "" & objRSBreed("b_name")& "" & "
" & CHR(10) objRSBreed.MoveNext Next objRSBreed.Close Set objRSBreed = Nothing objConn.Close Set objConn = Nothing %>