<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_dbCcrec_STRING MM_dbCcrec_STRING = "Driver={SQL Server}; Server=dbCcrec.db.3592490.hostedresource.com; Database=dbCcrec; Uid=dbCcrec; Pwd=Ccrec4513" %> <% Dim rs_critters__MMColParam rs_critters__MMColParam = "12" If (Request("MM_EmptyValue") <> "") Then rs_critters__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_critters Dim rs_critters_cmd Dim rs_critters_numRows Set rs_critters_cmd = Server.CreateObject ("ADODB.Command") rs_critters_cmd.ActiveConnection = MM_dbCcrec_STRING rs_critters_cmd.CommandText = "SELECT * FROM dbo.record WHERE type = ? ORDER BY id ASC" rs_critters_cmd.Prepared = true rs_critters_cmd.Parameters.Append rs_critters_cmd.CreateParameter("param1", 5, 1, -1, rs_critters__MMColParam) ' adDouble Set rs_critters = rs_critters_cmd.Execute rs_critters_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rs_critters_numRows = rs_critters_numRows + Repeat1__numRows %> Welcome to Cripple Creek Ranch
"Your Horses will love it here. So will you!"
tagline
Red Star Logo

Security-Meet the Pups

Click for pdf version of our map
<% While ((Repeat1__numRows <> 0) AND (NOT rs_critters.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_critters.MoveNext() Wend %>
Christy & Keith

Contact Information:

Cripple Creek Ranch
Christy & Keith Bourbonnais
23215 Graf Road
Harvard, Illinos 60033

(815) 943-4513
(847) 533-4513


| Send email | Map and Directions |
<% rs_critters.Close() Set rs_critters = Nothing %>