<% 'Open a connection to the database Dim objConn, strSQL1,objRSBreed,breedid Dim strSQL2, objRSPics Dim strSQL3, objRSLinks Dim strSQL4, objRSTests Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString=connect() objConn.Open strSQL1="SELECT * FROM breed ORDER By b_name" Set objRSBreed = Server.CreateObject("ADODB.Recordset") objRSBreed.Open strSQL1, objConn Session("FirstTime") = "yes" if Request.QueryString("reset") ="yes" then 'Session.abandon Session.Contents.RemoveAll() Session("FirstTime") = "yes" end if %> HealthGene - Canine DNA Testing

Home | Technology | Company | Contact


HOME | LIST OF BREEDS | <%=UCASE(objRSBreed("b_name"))%>

Canine Sample Collection Kits - STEP 1

Please, complete this form to order a sample collection kit for genetic disorders. To find out more about collecting samples, please visit "Instructions for sample collection" web page, or download the instructions in PDF format (2 MB).

Please note that fields marked with (*) are mandatory

SHIP-TO INFORMATION
Name(*):
">
Company:
">
Address 1(*):
">
Address 2:
">
City(*):
">
Country(*):
ZIP/Postal Code(*):
">
Phone:
1 - - -
Fax:
1 - - -
E-mail:
">
BREED:

All tests are breed specific. Please make sure you select the right breed before continuing.

HOW DID YOU HEAR ABOUT HEALTHGENE?
Dogs in Canada
Google
MSN
Yahoo
Other Search Engine
Other Website
Other Client's referral
HealthGene's Newsletter / Bulletin
Other:

 

 

<% objRSBreed.Close Set objRSBreed = Nothing objConn.Close Set objConn = Nothing %>