<%@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
NO LONGER EXIST
Unfortunately this Club no longer exist. A short history of this Club will soon be placed for those interested.
PLEASE CONTACT US SHOULD YOU BE IN THIS AREA AND WANT TO KNOW MORE
Many of the members that belonged to Clubs that has closed down, stays actively involved in the Hobby and will forever be 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