%@ 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
%>
<%
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
%>