<%
Dim adocon
Dim strCon
Dim rs
Dim strSQL
Set adocon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/articles.mdb")
adocon.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT ID,Title, text, date FROM article WHERE Expired = 0 ORDER by ID desc;"
rs.Open strSQL, strCon
Do until rs.EOF
Response.Write ("
Chapter activities are conducted primarily for the benefit of H.O.G. chapter
members. There are three categories of activities, all activities are identified
as follows:
Closed
Events are those chapter events which are open to chapter members and one one
guest per member.
Member
events are events that are open only to H.O.G. members.
Open
events are those chapter events which are open to chapter members, national
H.O.G. members and other guests as desired.
If you
are interested in becoming a H.O.G. chapter member, contact
Don Lorrow.
