<% HostIPRemote = Request.ServerVariables("REMOTE_ADDR") Set rsHostIP = Application("objDBSpider").Execute("SELECT * FROM Spider WHERE SpiderIP='" & HostIPRemote & "'") if rsHostIP.EOF then %> Perfume2000 - The whole Perfume Industry <% LoginName = Request.Cookies("LoginName") LoginPassword = Request.Cookies("LoginPassword") if LoginPassword <> "" then Set rsClient = Application("objDBClient").Execute("SELECT ID FROM Client WHERE (UCase(Login)=UCase('" & LoginName & "')) and (UCase(Password)=UCase('" & LoginPassword & "'))") if not rsClient.EOF then Session("ClientType") = "Gold" Set objClientID = rsClient("ID") Session("ClientID") = objClientID Application("objDBClient").Execute("UPDATE Client SET SystemState = 'Login' WHERE ID=" & objClientID) end if end if %>
<% if (InStr(Request.ServerVariables("URL"),"Login.asp") = 0) and (InStr(Request.ServerVariables("URL"),"CheckPasswordFail.asp") = 0) then Session("Redirect") = Request.ServerVariables("URL") & "?" & Request.QueryString end if qLoginName = Request.Cookies("LoginName") if qLoginName = "" then qLoginName = "Guest" if Session("ClientType") = "Free" then%> <%=qLoginName%> is
logged off

<% else %> <%=qLoginName%> is
logged on

<% end if%>




<%NowDate = Date if (Application("NewsDate") = "01/01/2000") or (NowDate <> Application("NewsDate")) and (Hour(Now) > 11) then Set rsNewsFlash = Application("objDBInformation").Execute("SELECT TOP 3 ID, Title FROM News ORDER BY Date DESC;") Set objNewsFlashID = rsNewsFlash("ID") Set objNewsFlashTitle = rsNewsFlash("Title") 'Randomize 'Application("NewsFlash1ID") = Int(Rnd * 10) 'Application("NewsFlash2ID") = Int(Rnd * 10) 'do Until Application("NewsFlash2ID") <> Application("NewsFlash1ID") ' Application("NewsFlash2ID") = Int(Rnd * 10) 'loop 'Application("NewsFlash3ID") = Int(Rnd * 10) 'do Until (Application("NewsFlash3ID") <> Application("NewsFlash1ID")) and (Application("NewsFlash3ID") <> Application("NewsFlash2ID")) ' Application("NewsFlash3ID") = Int(Rnd * 10) 'loop 'rsNewsFlash.Move Application("NewsFlash1ID") 'Application("NewsFlash1ID") = objNewsFlashID 'Application("NewsFlash1Title") = objNewsFlashTitle 'rsNewsFlash.MoveFirst 'rsNewsFlash.Move Application("NewsFlash2ID") 'Application("NewsFlash2ID") = objNewsFlashID 'Application("NewsFlash2Title") = objNewsFlashTitle 'rsNewsFlash.MoveFirst 'rsNewsFlash.Move Application("NewsFlash3ID") 'Application("NewsFlash3ID") = objNewsFlashID 'Application("NewsFlash3Title") = objNewsFlashTitle rsNewsFlash.MoveFirst Application("NewsFlash1ID") = objNewsFlashID Application("NewsFlash1Title") = objNewsFlashTitle rsNewsFlash.MoveNext Application("NewsFlash2ID") = objNewsFlashID Application("NewsFlash2Title") = objNewsFlashTitle rsNewsFlash.MoveNext Application("NewsFlash3ID") = objNewsFlashID Application("NewsFlash3Title") = objNewsFlashTitle Application("NewsDate") = NowDate end if %>

&NewsTitle=<%=Replace(Application("NewsFlash1Title")," ","%20")%>"><%=Application("NewsFlash1Title")%>

&NewsTitle=<%=Replace(Application("NewsFlash2Title")," ","%20")%>"><%=Application("NewsFlash2Title")%>

&NewsTitle=<%=Replace(Application("NewsFlash3Title")," ","%20")%>"><%=Application("NewsFlash3Title")%>

By Keyword:

Or by Topic:


 • Lists 4 sale
 • Reports
 • Perfume Forum
 • Perfume Classified
 • Perfume Chat
 • Customize
 • Beauty Portal
 • Perfume show
 • News Admin..

 Event Calendar
 Industry Contacts
 Alexander List

<%if Session("ClientType") <> "Free" then%>  Add New Contact
 My Contacts
 My Perfume List <%else%>

 • Add New Contact
 • My Contacts
 • My Perfume List <%end if%>

 Mailing List  
 Who we are?

www.perfume2000.com is the world’s largest website dedicated to the beauty industry

 Our Readers
Your company’ promotion will executives from the following categories: Department stores, Specialty stores, Duty free stores, Airlines operators, Independant perfumeries, Concept stores, Pharmacies, Concept stores, Ferries and cruise lines, Drug stores, mass market chains and finally webstores and catalogs.
over 1000 unique visitors browse www.perfume2000.com daily. Including the companies mentioned above
 Additionally we reach consummers & companies within the following categories:
Advertising & Concept Agency
Bags Manufacturer
Blotters Manufacturer
Boxes Manufacturer
Caps Manufacturer
Carton Manufacturers
Chemicals Supplies for Perfumery
Contract Manufacturer
Cosmetics Company
Decorative & Functional Papers & Boards Manufacturer
Perfume Wholesaler
Plastic & Glass Containers Wholesalers
Digital Coder
Displays & Advertising Material Distributor/Agent
Duty Free Distributor/Agent
Flexible Package Printing
Foundations & Associations
(Fragrance Compound Manufacturer)
Gift Baskets
Glass & Plastic Decoration
Glass Manufacturer
Plastic Containers & Jars Manufacturer
   Internet Distribution Agents
Marketing Companies
Metal Packaging
Molds Manufacturers
Natural Products
Packaging & Carton Manufacturer
Packaging for Cosmetics
Packaging Machinery
Paper Manufacturer
Perfume Company
Perfume Creator
Powder Compacts & Cases

Your press releases to the entire Beauty Industry world is literally a click away www.perfume2000.com offers you unique means of channel, create and or optimize your brand awareness.

Last month, over 20,000 unique visitors visited perfume2000.com so an average of 1000 person a day would have seen your banner or your articles if you had them placed there.

On the 1000 daily visitors 500 went to read the News. Again if you had placed your press release there it is a great chance they would have read it. Now for the Press release it is just the start of a long journey because after 10 years being the number one Internet source for the perfume and beauty industry (if you have any doubt about type perfume in www.Google.com search engine ) your press release will be picked up by most of the big Agencies like Reuters, AFP, Business wire and much more then you end up covering the whole industry and 100 of thousand of consumers.

Press release are included in our news on daily base free of charge for industry PR.

Call us! at 305-868-9383 ; if you prefer by e-mail to: ana@perfume2000.com

Please feel free to contact us for any inquiry: sales@perfume2000.com



site map
about us
contact us

alexander's list
| industry contacts | event calendar | new products
technology | chat | magazine | partners

Copyright 2000 Perfume2000 Corp. All Rights Reserved.
All other trademarks and copyrights are the property of their respective holders.

<% else Set objCode = rsHostIP("Code") Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(Application("SpiderRoot") & objCode & "\" & Application("SpiderDefault"), 1) %> <%=f.ReadAll%> <% end if %>