Cyprus Yellow Pages.com

<% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count 'Create a File System Object variable Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Initialise a File Object with the path and name of text file to open Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) 'Open the visitor counter text file Set tsObject = filObject.OpenAsTextStream 'Read in the visitor number from the visitor counter file lngVisitorNumber = CLng(tsObject.ReadAll) 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Create a new visitor counter text file over writing the previous one Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) 'Write the new visitor number to the text file tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'HTML output to display the visitor number 'Response.Write("Visitor Number
") 'Display the hit count as text 'Response.Write(lngVisitorNumber) %>

Art & Advertising

• Advertising

• Art

• Designers

• Galleries

• Photographers

• Printing

• Signs

•Tattoo

Cars & Motors

• Car Wash &

• Car Importers

• Electricians

• Spare Parts

& Accessories

Cyprus Yellow Pages
Visitors: <% 'Loop to display graphical digits For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) 'Display the graphical hit count Response.Write("") Next %>

Computers & Internet

• Internet Cafes

• Internet

• Hardware

• Software

Consultants

Education

• Private Schools

• Driving

• Institutes

• Universities

• Schools:

Dancing, Music

Hairdressing,

Painting.....

•Kindergartens

•Study Programs Abroad

	LINKS TO LIVE TV CYPRUS STATIONS:

Entertainment

• Cafe Bar

• Gentlemen's Clubs

• Live Music

• Night Clubs

• Pubs

• Theatres

& Cinemas

• Water Parks

Legal & Finance

• Accountants -

Auditors

• Advocates

• Banks, Financial,

• Consultants

• Insurance

• Ship Brokers

• Stock

House & Hotel Equipment

• Curtains - Carpets - Blinds

• Electrical Appliances

• Sanitary ware

• House Relatively:

Lighting...

Electrical Accessories

• Hotel Equipment

• Furniture

Food & Beverages

• Bakery

&Confectionery

• Butchers

• Fast Food

• Pizza Places

• Restaurants

• Receptions

• Suppliers

General Business

• Telecommunications

• Offshore Companies

&Offshore Services

• Lubricants Agents &

• Media

• Hairdressing

• Surveyors

• Imports -

Health Services

• Beauty Salons

• Clinics - Labs

• Doctors:Pathologists,

Surgeons, Dentists

• Mattress Cleaning
• Ocular Prostheses

• Medical

• Opticians

• Pharmacy

• Third Age

•Veterinary

Services

• Cleaning

• Clearing

&Forwarding

• Congress

& Exhibitions

• General

• General Serv.

• Management

• Security

• Shipping
• Transport / Moving

• Warehouses
• Office Services

Land & Building Development

• Architects &

Civil Engineer

• Construction

• Construction

• Metal

Constructions

• Painters

• Swimming Pool

Constructors

• Real Estate

Manufacture

• Distillery

• Factories

• Industries

• Manufacturers

Others

• Associations

&Federations

• Information Guide

• Miscellaneous
• Christmas in Cyprus
• Weddings

Tourism

•Hotel Apartments

• C.T.O.

• Hotels

•Sight Seeing Tours

• Rentals

• Taxi

• Travel Agencies

• Hotels & Apartments

Reservations

Shopping

• Bookshops

• Clothing

• Flower &

Agriculture

• Footwear

• Furniture

• General Shop.

• Gifts/Toys/Accessories

• Hypermarkets

• Jewelers

• Music & DVD

• Pet Shops

Sports & Hobbies

• Formula 1

• Pro-po, Lotto,

• Sailing

• Sports...

• Gyms & Fitness

• Soccer, Basket ...

Please feel free to contact us for Listing your company to CyprusYellowPages.com

or for Web Design, Web Hosting, Web Promoting & Advertising. Contact Webmaster

copyright © 1996 CyprusYellowPages.com. All Rights Reserved. All trademarks Acknowledged.