<% Dim cn Dim rs Dim rs2 dim Y Y = 0 On error resume next set cn = server.CreateObject("ADODB.Connection") set rs2 = server.CreateObject("ADODB.Recordset") cn.Open "irie" rs2.CursorLocation = 3 rs2.Open "SELECT tblHfdInternet.SiteSection, Count(tblHfdInternet.SiteSection) AS CountOfSiteSection, tblHfdInternet.SiteSectionID FROM tblHfdInternet GROUP BY tblHfdInternet.SiteSection, tblHfdInternet.SiteSectionID" ,cn, 2 'adOpenDynamic ', adLockOptimistic rs2.MoveLast rs2.MoveFirst Do until rs2.eof Response.write ""%> <% rs2.MoveNext Y = Y + 1 loop cn2.close set cn2 = nothing %>  BUSINESS WEB  " Response.write "" & rs2("SiteSection") & " (" & rs2("CountOfSiteSection") & ")" & " [Back to top]   Fill in the form below to add your business Note: Basic company details are free* if you require your company logo, full description, keywords and a link to your website, we charge, please call for details.   *Company Name: *Contact Type: *Phone Number: *Address: Description: *Email: website: see notes above    BUSINESS WEB Business Whats on Associations Add your Business Useful Links   Inland Revenue   Department of Trade & Industry   Companies House   HM Customs & Excise   Small Business Service   To advertise here contact Us

| Home | About Us | Services | Members | Contact Us | | Business Web | Employment | Whats on | Classifieds | History | Website Designed & Maintained by Powered by Irie Computers