<%@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_article__MMColParam rs_article__MMColParam = "9" If (Request("MM_EmptyValue") <> "") Then rs_article__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_article Dim rs_article_cmd Dim rs_article_numRows Set rs_article_cmd = Server.CreateObject ("ADODB.Command") rs_article_cmd.ActiveConnection = MM_dbCcrec_STRING rs_article_cmd.CommandText = "SELECT * FROM dbo.record WHERE type = ? ORDER BY id DESC" rs_article_cmd.Prepared = true rs_article_cmd.Parameters.Append rs_article_cmd.CreateParameter("param1", 5, 1, -1, rs_article__MMColParam) ' adDouble Set rs_article = rs_article_cmd.Execute rs_article_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rs_article_numRows = rs_article_numRows + Repeat1__numRows %> Welcome to Cripple Creek Ranch

Information

<% While ((Repeat1__numRows <> 0) AND (NOT rs_article.EOF)) %>

" />

" />

" />

" />

<%=(rs_article.Fields.Item("title").Value)%>

<%=(rs_article.Fields.Item("story").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_article.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_article.Close() Set rs_article = Nothing %>