<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
MM_conn_STRING = "PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE = " & server.mappath("../db/db.mdb")
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT deal_name, id, deal_desc, deal_city FROM tbl_dealers ORDER BY deal_name ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
Untitled Document
A NEW CLUB ON THE HORISON
A Club are being formed in this area and we hope to publish their info soon.
PLEASE CONTACT US SHOULD YOU BE IN THIS AREA AND WANT TO KNOW MORE
The people involved in the Hobby in this area are longstanding friends of our Fraternity. Rockhounds always love to receive other Rockhounds and show them around, so if you are visiting this area and would like information of Rockhounds there, please contact us via email