<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% MM_conn_bizdir_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/access_db/bizdirectory.mdb") & ";" %> <% Dim rs_Company Dim rs_Company_numRows Set rs_Company = Server.CreateObject("ADODB.Recordset") rs_Company.ActiveConnection = MM_conn_bizdir_STRING rs_Company.Source = "SELECT * FROM BizDirectory ORDER BY category ASC" rs_Company.CursorType = 0 rs_Company.CursorLocation = 2 rs_Company.LockType = 1 rs_Company.Open() rs_Company_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_Company_numRows = rs_Company_numRows + Repeat1__numRows %> Search Page: Mountain View Lutheran Church

 

 

 


 

Search our Site

Enter one or more keywords to search for using the Zoom Search Engine.
Note that '*' and '?' wildcards are supported.

Search for: Results per page:

Match: any search words all search words

Search powered by Zoom Search Engine

 

Mountain View Lutheran Church © 2007
Search | Worship Schedule | Employee Remote Email | Staff Forms & Info | Music Library | Sitemap
<% rs_Company.Close() Set rs_Company = Nothing %>