<%@ Language=VBScript %> <% Option Explicit %> <% 'Open a connection to the database Dim objConn, strSQL1,objRSBreed,breedid Dim strSQL2, objRSPics Dim strSQL3, objRSLinks Dim strSQL4, objRSTests breedid=Request.QueryString("breedid") Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString="Provider=sqloledb;Data Source=SQLHosting01.myhosting.com;Initial Catalog=DB_0C4A66;User Id=User_0C4A66;Password=HG_db_2009;" objConn.Open strSQL1="SELECT * FROM breed WHERE breed_id=" & breedid Set objRSBreed = Server.CreateObject("ADODB.Recordset") objRSBreed.Open strSQL1, objConn strSQL2="SELECT * FROM breed_pics WHERE breed_id=" & breedid Set objRSPics = Server.CreateObject("ADODB.Recordset") objRSPics.Open strSQL2, objConn,3,3 strSQL3 = "SELECT * FROM breed_links WHERE breed_ID=" & breedid Set objRSLinks = Server.CreateObject("ADODB.Recordset") objRSLinks.Open strSQL3, objConn strSQL4 = "SELECT t.TestCode, t.Name FROM tests as t, breed_tests as bt WHERE bt.breed_ID=" & breedid & " AND bt.TestCode = t.TestCode ORDER BY t.TestCode" Set objRSTests = Server.CreateObject("ADODB.Recordset") objRSTests.Open strSQL4, objConn %> <%=objRSBreed("b_title")%> "> ">

Home \| Technology \| Company \| Contact

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

<%=objRSBreed("b_name")%>

<% objRSPics.MoveFirst Do While Not objRSPics.EOF Response.Write "

" objRSPics.MoveNext Loop %>

Breed Description:

<%=objRSBreed("b_descript")%>

Breed Standards:

<%=objRSBreed("b_charact")%>

Available Tests:

<% If (breedid <> 5) then Do While Not objRSTests.EOF if Trim(objRSTests("TestCode"))<>"C128" then Response.Write "" & objRSTests("Name") & "
" else Response.Write "" & objRSTests("Name") & "
" end if objRSTests.MoveNext Loop else Response.Write "To learn more about individual tests for your Belgian Shepherd, visit one of the following pages:
" Response.Write "- Groenendael
" Response.Write "- Laekenois
" Response.Write "- Malinois
" Response.Write "- Tervuren
" end if %>

Links:

<% Do While Not objRSLinks.EOF Response.Write "" & objRSLinks("websitename") & "
" objRSLinks.MoveNext Loop %>

<% objRSBreed.Close Set objRSBreed = Nothing objRSPics.Close Set objRSPics = Nothing objRSTests.Close Set objRSTests = Nothing objRSLinks.Close Set objRSLinks = Nothing objConn.Close Set objConn = Nothing %>