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

<% function InitCapASP(MyStringPass) EndSearc = false inicio = 1 StartF = 1 if MyStringPass <> "" then MyString = lCase(" "& Trim(MyStringPass)) do while not EndSearch Position = InStr(StartF,MyString," ") if Position <> 0 then LetraToConv = Mid(MyString,Position + 1, 1) ULetra = UCase(LetraToConv) if position > 1 then FinalString = FinalString & Mid(MyString,StartF+1,Position - StartF)&" "&Uletra else FinalString = FinalString & " "&Uletra end if StartF = Position + 1 else FinalString = FinalString & Mid(MyString,StartF+1,Len(MyString)-StartF) EndSearch = true end if loop end if InitCapASP = FinalString end function %><% function InitCapASP(MyStringPass) EndSearc = false inicio = 1 StartF = 1 if MyStringPass <> "" then MyString = lCase(" "& Trim(MyStringPass)) do while not EndSearch Position = InStr(StartF,MyString," ") if Position <> 0 then LetraToConv = Mid(MyString,Position + 1, 1) ULetra = UCase(LetraToConv) if position > 1 then FinalString = FinalString & Mid(MyString,StartF+1,Position - StartF)&" "&Uletra else FinalString = FinalString & " "&Uletra end if StartF = Position + 1 else FinalString = FinalString & Mid(MyString,StartF+1,Len(MyString)-StartF) EndSearch = true end if loop end if InitCapASP = FinalString end function %><% Set rsCountItems = Application("objDBContacts").Execute("SELECT Count(ID) As CountItem FROM Categorias") Set objCountItems = rsCountItems("CountItem") SearchWord = "List Categories" ItemNav = "List Categories" %><% CountItemByPage = 20 CountItem = objCountItems CountPage = CountItem \ CountItemByPage if not (CountItem mod CountItemByPage = 0) then CountPage = CountPage + 1 end if PageNumber = Request.QueryString("pn") if PageNumber = "" then PageNumber = Request.Form("PageNumber") end if if PageNumber = "" then PageNumber = 1 else PageNumber = PageNumber + 1 end if %> <% MetaCategories = Request.Form("MetaCategories") const mcBrand = 1 const mcPackaging = 2 const mcRetailers = 3 const mcFragrance = 4 const mcServices = 5 const mcPress = 6 const mcMiscellaneous = 7 if MetaCategories = "" Then MetaCategories = mcBrand end if %>

<% Select Case MetaCategories Case 1 %>
Brands
<% Case 2 %>
Packaging
<% Case 3 %>
Retailers
<% Case 4 %>
Fragrance
<% Case 5 %>
Services
<% Case 6 %>
Press
<% Case 7 %>
Miscellaneous
<% End Select %>

Sub-Category :

Keyword : search by

 
Complete Company List | Complete Sub-Categories List <% if Session("ClientType") <> "Free" then %>| Add Contact | My Contacts<% else %>| Add Contact | My Contacts<% end if %>
<% PathNav = "&" if PageNumber = 1 then %> "> <% if Request.Form("PathNav").Count > 0 then for i = 1 to Request.Form("PathNav").Count %> "> "> "> )"> <% Response.Write ">" & Request.Form("PathNav")(i) PathNav = PathNav + "PathNav=" & Request.Form("PathNav")(i) & "&" %> <% next end if else PathNavCount = Request.Form("PathNavCount") %> <% if PathNavCount > 0 then for i = 1 to PathNavCount %> "> "> "> )"> <% Response.Write ">" & Request.Form("PathNav" & i) PathNav = PathNav + "PathNav=" & Request.Form("PathNav" & i) & "&" %> <% next end if end if Response.Write ">" & ItemNav PathNav = PathNav & "PathNav=" & ItemNav %>
<% MaxPageSession = 10 if CountPage > MaxPageSession then PageSession = PageNumber \ MaxPageSession if PageNumber mod MaxPageSession <> 0 then PageSession = PageSession + 1 end if EndPageSession = CountPage \ MaxPageSession if CountPage mod MaxPageSession <> 0 then EndPageSession = EndPageSession + 1 end if end if %> <% if BannerImage = "" then CountOurBanner = 2 Randomize BannerImage = "OurBanner/perfume2000Bann" & Int(CountOurBanner * Rnd + 1) & ".gif" BannerLink = "/advertise/advertise.asp" target = "" else if BannerImage = "none" then CountFreeBanners = 2 Randomize BannerImage = "FreeBanner/FreePlase" & Int(CountFreeBanners * Rnd + 1) & ".gif" BannerLink = "/advertise/advertise.asp" target = "" else if BannerType = "InWebSite" then BannerLink = "/industryContacts/Contact_DetailCompany.asp?" & BannerLink target = "" else target = "target=_blank" end if end if end if %>
> <% if CountItem > 0 then if (PageNumber = 1) and (CountPage <> 1) then Response.Write "Next
" end if if (PageNumber > 1) and (PageNumber < CountPage) then Response.Write "Previous/Next
" end if if (PageNumber = CountPage) and (CountPage <> 1) then Response.Write "Previous
" end if if CountPage > MaxPageSession then if PageSession = 1 then Response.Write "Last" end if if (PageSession <> 1) and (PageSession <> EndPageSession) Then Response.Write "First/Last" end if if PageSession = EndPageSession Then Response.Write "First" end if end if end if %>
Your search for "<%=SearchWord%>" has returned <%=CountItem%> items.
Results <%Response.Write (PageNumber - 1) * CountItemByPage + 1%> - <% if PageNumber = CountPage then Response.Write CountItem else Response.Write PageNumber * CountItemByPage end if %> of <%=CountItem%>
<% if CountPage > 1 then %> Page <% MaxPageSession = 10 if CountPage <= MaxPageSession then For i = 1 to CountPage if PageNumber = i then Response.Write i & " " else Response.Write "" & i & " " if (i-1) > 1 then %> <% end if end if Next else if PageSession > 1 then Response.Write " << " %> <% end if if PageSession = EndPageSession then For i = (PageSession - 1) * MaxPageSession + 1 to CountPage if PageNumber = i then Response.Write i & " " else Response.Write "" & i & " " if (i-1) > 1 then %> <% end if end if Next else For i = (PageSession - 1) * MaxPageSession + 1 to PageSession * MaxPageSession if PageNumber = i then Response.Write i & " " else Response.Write "" & i & " " if (i-1) > 1 then %> <% end if end if Next end if if PageSession < EndPageSession then Response.Write " >> " %> <% end if end if end if %>
<% Set rsCategories = Application("objDBContacts").Execute("SELECT TOP " & PageNumber * CountItemByPage & " ID, Categorias, Description FROM Categorias ORDER BY Categorias") rsCategories.Move (PageNumber - 1) * CountItemByPage Set objCategoriesID = rsCategories("ID") Set objCategoriesCategoria = rsCategories("Categorias") Set objCategoriesDescription = rsCategories("Description") %> <% do Until rsCategories.EOF %> <% rsCategories.MoveNext if not(rsCategories.EOF) Then %> <% rsCategories.MoveNext end if Loop %>
Categories Description
"><%=InitCapASP(objCategoriesCategoria)%> <%=objCategoriesDescription%>
"><%=InitCapASP(objCategoriesCategoria)%> <%=objCategoriesDescription%>
<% MaxPageSession = 10 if CountPage > MaxPageSession then PageSession = PageNumber \ MaxPageSession if PageNumber mod MaxPageSession <> 0 then PageSession = PageSession + 1 end if EndPageSession = CountPage \ MaxPageSession if CountPage mod MaxPageSession <> 0 then EndPageSession = EndPageSession + 1 end if end if %> <% if BannerImage = "" then CountOurBanner = 2 Randomize BannerImage = "OurBanner/perfume2000Bann" & Int(CountOurBanner * Rnd + 1) & ".gif" BannerLink = "/advertise/advertise.asp" target = "" else if BannerImage = "none" then CountFreeBanners = 2 Randomize BannerImage = "FreeBanner/FreePlase" & Int(CountFreeBanners * Rnd + 1) & ".gif" BannerLink = "/advertise/advertise.asp" target = "" else if BannerType = "InWebSite" then BannerLink = "/industryContacts/Contact_DetailCompany.asp?" & BannerLink target = "" else target = "target=_blank" end if end if end if %>
> <% if CountItem > 0 then if (PageNumber = 1) and (CountPage <> 1) then Response.Write "Next
" end if if (PageNumber > 1) and (PageNumber < CountPage) then Response.Write "Previous/Next
" end if if (PageNumber = CountPage) and (CountPage <> 1) then Response.Write "Previous
" end if if CountPage > MaxPageSession then if PageSession = 1 then Response.Write "Last" end if if (PageSession <> 1) and (PageSession <> EndPageSession) Then Response.Write "First/Last" end if if PageSession = EndPageSession Then Response.Write "First" end if end if end if %>
Your search for "<%=SearchWord%>" has returned <%=CountItem%> items.
Results <%Response.Write (PageNumber - 1) * CountItemByPage + 1%> - <% if PageNumber = CountPage then Response.Write CountItem else Response.Write PageNumber * CountItemByPage end if %> of <%=CountItem%>
<% if CountPage > 1 then %> Page <% MaxPageSession = 10 if CountPage <= MaxPageSession then For i = 1 to CountPage if PageNumber = i then Response.Write i & " " else Response.Write "" & i & " " if (i-1) > 1 then %> <% end if end if Next else if PageSession > 1 then Response.Write " << " %> <% end if if PageSession = EndPageSession then For i = (PageSession - 1) * MaxPageSession + 1 to CountPage if PageNumber = i then Response.Write i & " " else Response.Write "" & i & " " if (i-1) > 1 then %> <% end if end if Next else For i = (PageSession - 1) * MaxPageSession + 1 to PageSession * MaxPageSession if PageNumber = i then Response.Write i & " " else Response.Write "" & i & " " if (i-1) > 1 then %> <% end if end if Next end if if PageSession < EndPageSession then Response.Write " >> " %> <% end if end if 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.