<% 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%>

Perfume News

<%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")%>

Search

By Keyword:

Or by Topic:

Perfume Depot

See our new book review section!

Subscribe to a monthly newsletter customized for your needs!

Check out the most comprehensive Perfume Industry database!

Find out about specific Promotional Campaigns

<% dim months(12) apart=request.querystring("ap") idpass=request.querystring("id") country ="" monthvar ="" heyword="" isemptyvar = true sqlst = "SELECT * FROM events WHERE" requ = request.form("isrequested") if apart <> "true" then if requ= "true" then country = request.form("country") monthvar = request.form("month") keyword = request.form("keyword") if country <> " " then sqlst = sqlst & " (Country = '"&country&"')" isemptyvar = false end if 'country**** if monthvar <> " " and country <> " " then sqlst = sqlst & " AND(Month = '"&monthvar&"')" isemptyvar = false else if monthvar <> " " then sqlst = sqlst & " (Month = '"&monthvar&"')" isemptyvar = false end if 'month** end if 'month**** if keyword <> "" and (monthvar <> " " or country <> " ")then sqlst = sqlst & " AND (Event_name LIKE '%"&keyword&"%' OR Event_organization LIKE '%"&keyword&"%' OR Date LIKE '%"&keyword&"%' OR Location Like '%"&keyword&"%' OR Information LIKE '%"&keyword&"%' OR Comments Like '%"&keyword&"%') " isemptyvar = false else if keyword <> "" then sqlst = sqlst & " (Event_name LIKE '%"&keyword&"%' OR Event_organization LIKE '%"&keyword&"%' OR Date LIKE '%"&keyword&"%' OR Location Like '%"&keyword&"%' OR Information LIKE '%"&keyword&"%' OR Comments Like '%"&keyword&"%' OR Email LIKE '%"&keyword&"%' OR Site Like '%"&keyword&"%')" isemptyvar = false end if 'keyword** end if 'keyword**** if isemptyvar = false then Set DataC = Application("objDBCalendarEvent") end if ' isemptyvar**** end if 'requ***** if requ = "true" and isemptyvar = false then set recset = dataC.execute(sqlst&" ORDER BY ExactDate") If Not recset.EOF Then recset.MoveFirst recset.MoveNext if recset.EOF then do_action = "self_record" else do_action = "multi_record" end if 'recset.eof** else do_action= "notmatches" end if 'not recset.eof**** else if isemptyvar <> false and requ= "true" then do_action="nosearch" 'do_action = "start" end if 'isemptyvar**** end if 'requ**** else 'apart do_action ="self_pass" isemptyvar = false Set DataC = Application("objDBCalendarEvent") sqlst = "SELECT* FROM events WHERE ID LIKE '"& idpass &"' ;" set recset = dataC.execute(sqlst) end if 'apart**** select case monthvar case "January" months(1)= "selected" case "February" months(2)= "selected" case "March" months(3)= "selected" case "April" months(4)= "selected" case "May" months(5)= "selected" case "June" months(6)= "selected" case "July" months(7)= "selected" case "August" months(8)= "selected" case "September" months(9)= "selected" case "October" months(10)= "selected" case "November" months(11)= "selected" case "December" months(12)= "selected" case else months(0)= "selected" end select %>

Find Perfume Industry Trade Events Anywhere in the World

 

Country:

Month:

KeyWord:

 
<%SQLstr ="SELECT DISTINCT Country FROM events ORDER BY events.Country;" Set DataC = Application("objDBCalendarEvent").Execute(SQLstr) %>  
  
<% if do_action <> "self_record" and do_action <> "self_pass" then if do_action = "multi_record" then recset.MoveFirst Do While Not recset.EOF %> <% recset.MoveNext Loop end if 'if multi**** if do_action = "nosearch" then response.write "you don't have any search entered" if do_action = "notmatches" then response.write "Sorry not matches were found" %>
<%Response.Write "" & recset.fields("Event_name") & "
" if recset.fields("Event_organization")<> "" then Response.Write "" & recset.fields("Event_organization") & "
" end if if recset.fields("Date")<>"" then Response.Write recset.fields("Date") & "
" end if if recset.fields("Location")<> "" then Response.Write recset.fields("Location") & "
" end if TempInformation = recset.fields("Information")& " " if TempInformation <> " " then objInformation = replace(TempInformation,CHR(13),"
") Response.Write objInformation & "
" end if if recset.fields("Email")<> "" then Response.Write "" & recset.fields("Email") & "
" end if if recset.fields("Site")<>" " then Response.Write "" & recset.fields("Site") & "
" end if%>'">
<% end if 'if <> self**** if do_action= "self_pass" or do_action="self_record" then dim curtid recset.movefirst %>
" width="296" height="240">
<%Response.Write "" & recset.fields("Event_name") & "
" if recset.fields("Event_organization")<> "" then Response.Write "" & recset.fields("Event_organization") & "
" end if if recset.fields("Date")<>"" then Response.Write recset.fields("Date") & "
" end if if recset.fields("Location")<> "" then Response.Write recset.fields("Location") & "
" end if Response.Write recset.fields("Country") & "
" TempInformation = recset.fields("Information") & " " if TempInformation <> " " then objInformation = replace(TempInformation,CHR(13),"
") Response.Write objInformation & "
" end if if recset.fields("Email")<> "" then Response.Write "" & recset.fields("Email") & "
" end if if recset.fields("Site")<>" " then Response.Write "" & recset.fields("Site") & "
" end if%>

<%=recset.fields("Comments")%>
<% end if if do_action = "nosearch" or do_action = "notmatches" or do_action = "" then %>

Welcome to the Event Calendar

This contains information on virtually every event relating to the perfume industry. With place, date, time and contact information, the Calendar of Events keeps you up-to-date on all the trade shows, meetings and events that take place all over the world.

How to use this Calendar

We understand how important industry Trade Shows can be. We provide this list so that our customers - both the attendees of the events, and the companies that are hosting the events can communicate with each other. This calendar is extremely easy to use, and even includes and interactive local map that you can print to help you find hotels and the location hosting the event (not 100% available yet).

The following describes how to access the information for a more specific search:

To search please follow these simple suggestions:

Select any combination of "Country", "Month", and "Keyword". You do not have to select more than one form of search field entry. This means, that it is ok to only type in a "Keyword" or select a "Country". Then, select "Search". A list of applicable events will be returned to you. Some of the events will have links directly to the event website or the company hosting the event. You will also be sent an interactive map displaying the location of the event.

If you have any difficulties please eMail our customer support.

 

<% end if %>

 

home
site map
about us
contact us
advertising
links
industry flash
specials


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.