<%@LANGUAGE="VBSCRIPT"%> <% Dim UsefulNums Dim UsefulNums_numRows Set UsefulNums = Server.CreateObject("ADODB.Recordset") UsefulNums.ActiveConnection = MM_MasterInfo_STRING UsefulNums.Source = "SELECT * FROM dbo172438183.Useful_contacts ORDER BY Category ASC" UsefulNums.CursorType = 0 UsefulNums.CursorLocation = 2 UsefulNums.LockType = 1 UsefulNums.Open() UsefulNums_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 UsefulNums_numRows = UsefulNums_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 UsefulNums_numRows = UsefulNums_numRows + Repeat2__numRows %> Untitled Document

 

 

 

 
Home
Community Information
Notices
Clubs & Associations
Forms & Downloads
Community Location
Proptery Management
Useful Numbers & Links
News & Weather
> Local News
> National News
> Sports
> Stock Market
> Market Report
> Market Indices
> Health
> Technology
> Entertainment
> Travel
 
  <% While ((Repeat2__numRows <> 0) AND (NOT UsefulNums.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 UsefulNums.MoveNext() Wend %>
<%=(UsefulNums.Fields.Item("Title").Value)%> <%=(UsefulNums.Fields.Item("Description").Value)%>
<%=(UsefulNums.Fields.Item("email").Value)%> <%=(UsefulNums.Fields.Item("fax").Value)%> <%=(UsefulNums.Fields.Item("phone").Value)%> <%=(UsefulNums.Fields.Item("web").Value)%>
Web Site Design, Hosting, and Maintenance by
CCommunity.com Inc.
CCommunity.com Inc.

 

<% UsefulNums.Close() Set UsefulNums = Nothing %>