HT Business Directory - View Categories

HOLY TRINITY BUSINESS DIRECTORY – View Categories
Last Updated: Continually!

To see a list of all businesses in a category, click the radio button next to the desired category, then click the Submit button. Note that many of our businesses offer coupons to Holy Trinity parishioners -- see the Printable Coupons link to the left.

IMPORTANT NOTE (AUG 27, 2010): THE ONLINE VIEWING OF CATEGORIES & LISTINGS IS CURRENTLY UNAVAILABLE DUE TO A SERVER MIGRATION -- SORRY! WE HOPE TO BE UP AND RUNNING AGAIN BY EARLY SEPTEMBER. IN THE MEANTIME, YOU MAY VIEW THE PRINTABLE BUSINESS DIRECTORY.

<% 'Variables Dim adoCon 'Holds the Database Connection Object Dim rsCourses 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database 'Create an ADO Connection Object Set adoCon=Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection Object using DSN-less connection adoCon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.Mappath("DATABASE/ht-business-directory.mdb") &";Persist Security Info=False" 'Create an ADO recordset object Set rsCourses=Server.CreateObject("ADODB.Recordset") 'Initialize the strSQL variable with an SQL statement to query the database strSQL= "SELECT DISTINCT tblClassification.ClassID, tblClassification.ClassName FROM tblClassification INNER JOIN tblBusiness ON tblClassification.ClassID = tblBusiness.ClassID WHERE (((tblBusiness.Active)=True)) ORDER BY tblClassification.ClassName;" 'Open the recordset with the SQL query rsCourses.Open strSQL, adoCon 'list in columns Const COLUMN_COUNT = 3 ' or 2 or 4 or ... column = 0 row = 1 'Loop through the recordset Do While Not rsCourses.eof 'variables to handle database output Dim ClassName Dim ClassID 'set variables equal to fields in database ClassName=rsCourses("ClassName") ClassID=rsCourses("ClassID") If column = 0 Then Response.Write "" column = column + 1 'set radio button value to the CLASSID from the database If row = 1 and column = 1 Then 'check radio button on category in 1st row, 1st col Response.Write("") End If If row > 1 or column > 1 Then Response.Write("") End If If column = COLUMN_COUNT Then Response.Write "" & vbNewLine row = row + 1 column = 0 ' start over! End If rsCourses.MoveNext Loop 'Reset server objects rsCourses.Close Set rsCourses=Nothing Set adoCon=Nothing %>

" & ClassName & "

On the subsequent pages, the following icons have special meaning:

=Discount to Parishioners

=Portion of proceeds donated to HT

=Online Coupon for HT Parishioners

DISCLAIMER: The information and advertisements contained in this directory are for informational purposes only. Holy Trinity Catholic Church has conducted no investigation of the advertisers contained herein and their inclusion should not be interpreted as an endorsement by Holy Trinity of their products and/or services.