<% ' Connection string Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &_ Server.MapPath("..") & "\bfba.mdb" ' Recordset object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") %>

	BILLY ANDRADE - BRAD FAXON CHARITIES FOR CHILDREN PO BOX 3305, SOUTH ATTLEBORO, MA 02703 (508) 761-3525 A 501(C) 3 Charitable Organization Serving RI & S.E. MA Children’s Charities
	<% rs.Open "select [contents] from textDb where type='caption1'", connStr %> <% rs.Close Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [contents] from textDb where type='caption2'", connStr %> <% rs.Close Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [contents] from textDb where type='caption3'", connStr %> <% rs.Close Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [contents] from textDb where type='caption4'", connStr %> <% rs.Close Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [contents] from textDb where type='caption5'", connStr %> <% rs.Close Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [contents] from textDb where type='caption6'", connStr %> <% rs.Close Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [contents] from textDb where type='caption7'", connStr %> <% rs.Close Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [contents] from textDb where type='caption8'", connStr %> <% rs.Close Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select [contents] from textDb where type='caption9'", connStr %> TOURNAMENT PICTURES <%=rs("contents")%> <%=rs("contents")%> <%=rs("contents")%> <%=rs("contents")%> <%=rs("contents")%> <%=rs("contents")%> <%=rs("contents")%> <%=rs("contents")%> <%=rs("contents")%>

<% rs.Close Set rs=Nothing %>