<% 'Get the variable posted by the Request Page.... SelectedHorse = Request("SelectedHorse") & "" 'Response.Write "SelectedHorse=" & SelectedHorse 'Validation of the data.... 'opening database connection Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open dnsname SQL= "Select * FROM [Horses] WHERE horsename = '" & SelectedHorse & "'" Set RS = Conn.Execute(SQL) 'Use Data Here %> Pedigree
<% 'Response.Write "Year of Birth: " & RS("yob") & " Tag No: " & RS("tagno") & " Type: " & RS("Type") & "
" 'Response.Write "Sire: " & RS("sirename") & " Dam: " & RS("damname") %> <% Conn.Close Set Conn = Nothing %>
 
 

 
     

 

 

Directions to the Farm

 

Location: Dardanelle, Arkansas

From I-40 to Highway 7 South through Dardanelle to Highway 28 West approximately 6 1/2 miles, turn right on Lindley Lane (County Road 448).  1 mile to end of the road.  Look for the Cole Quarter Horse sign on Hwy 28.

<% Response.Write RS("15")%>

 

<% Response.Write RS("30")%>