<%@ Language=VBScript %>
<% Option Explicit %>
<%
'Open a connection to the database
Dim objConn, strSQL1,objRSTests,testsCount,rowsNumb, testsArray, rowcount, i
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString=connect()
objConn.Open
strSQL1="SELECT t.TestCode, t.Name FROM tests as t, section_tests as st WHERE t.TestCode=st.TestCode AND t.Type='Genetic' AND st.section_id=1 ORDER BY t.Name"
Set objRSTests = Server.CreateObject("ADODB.Recordset")
objRSTests.Open strSQL1, objConn
%>
HealthGene - Canine DNA Testing
