home        Phone Sex Tips        Cyber Sex        Clitical Stories        Affiliate        Resources        Web Directory

Articles

 


<% Function GetCategoryText(CatID) GetCategoryText = "Web Directory" Select Case CInt(CatID) Case 45 GetCategoryText = "Advertising" Case 57 GetCategoryText = "Affiliate Programs" Case 35 GetCategoryText = "Art & Hobbies" Case 50 GetCategoryText = "Auction Services" Case 21 GetCategoryText = "Automotive" Case 36 GetCategoryText = "Beauty " Case 74 GetCategoryText = "Books & Publications" Case 15 GetCategoryText = "Business Products & Supplies" Case 14 GetCategoryText = "Business Services" Case 19 GetCategoryText = "Casinos" Case 49 GetCategoryText = "Classifieds" Case 58 GetCategoryText = "Clothing & Accessories" Case 11 GetCategoryText = "Computer Hardware" Case 40 GetCategoryText = "Computer Services" Case 41 GetCategoryText = "Computer Supplies" Case 26 GetCategoryText = "Construction Resources" Case 38 GetCategoryText = "E-Commerce Resources" Case 12 GetCategoryText = "Education & Training" Case 23 GetCategoryText = "Electronics" Case 16 GetCategoryText = "Employment" Case 47 GetCategoryText = "Entertainment" Case 60 GetCategoryText = "Family - Women/Men/Kids" Case 10 GetCategoryText = "Financial Services & Investing" Case 61 GetCategoryText = "Flowers" Case 48 GetCategoryText = "Foods & Culinary" Case 39 GetCategoryText = "Fun & Games" Case 22 GetCategoryText = "Furniture" Case 72 GetCategoryText = "Gifts & Collectibles" Case 37 GetCategoryText = "Health & Fitness" Case 55 GetCategoryText = "Health Care & Medical" Case 29 GetCategoryText = "Home Products & Services" Case 8 GetCategoryText = "Home-Based Business" Case 28 GetCategoryText = "Industrial & Commercial" Case 66 GetCategoryText = "Information & Communication" Case 33 GetCategoryText = "Insurance/Auto" Case 6 GetCategoryText = "Insurance/General" Case 32 GetCategoryText = "Insurance/Health" Case 3 GetCategoryText = "Internet Marketing" Case 1 GetCategoryText = "Internet Resources" Case 53 GetCategoryText = "Internet Service Providers" Case 73 GetCategoryText = "Investment Opportunities" Case 67 GetCategoryText = "Jewelry & Watches" Case 63 GetCategoryText = "Lawn & Garden" Case 27 GetCategoryText = "Legal Resources" Case 18 GetCategoryText = "Music & Audio Resources" Case 13 GetCategoryText = "Online Shopping & Gifts" Case 4 GetCategoryText = "Other Resources" Case 71 GetCategoryText = "Outdoors Recreation" Case 46 GetCategoryText = "Personals - Online Dating" Case 52 GetCategoryText = "Pets & Animals" Case 59 GetCategoryText = "Photography" Case 30 GetCategoryText = "Prescription Drugs" Case 25 GetCategoryText = "Real Estate Resources" Case 51 GetCategoryText = "Religion & Spiritual" Case 17 GetCategoryText = "Romance" Case 65 GetCategoryText = "Safety & Security" Case 56 GetCategoryText = "Search Engine Optimization" Case 54 GetCategoryText = "Self Help" Case 2 GetCategoryText = "Software Resources" Case 5 GetCategoryText = "Sports & Athletics" Case 20 GetCategoryText = "Telecommunications" Case 69 GetCategoryText = "Tools & Machinery" Case 9 GetCategoryText = "Travel & Hotels" Case 7 GetCategoryText = "Website Design" Case 42 GetCategoryText = "Website Hosting" Case 24 GetCategoryText = "Website Marketing" Case 44 GetCategoryText = "Website Resources" Case 31 GetCategoryText = "Weight Loss" Case 70 GetCategoryText = "Wholesale Resources" Case 64 GetCategoryText = "Work At Home" End Select End Function %>