<% 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 %><% SearchWord = "Favorites List" ItemNav = "Favorites List" %><% 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 %>
<% State = Request.QueryString("State") Select case State case "Add" AddIdContact = Request.QueryString("idContact") Set rsInTable = Application("objDBContacts").Execute("SELECT * FROM FavoriteList WHERE (idContact=" & AddIdContact & ") AND (idClient=" & Session("ClientID") & ")") if rsInTable.EOF then Application("objDBContacts").Execute("INSERT INTO FavoriteList (idContact, idClient) VALUES (" & AddIdContact & "," & Session("ClientID") & ")") end if ValueReturn = 1 case "Delete" sqlstr = "DELETE * FROM FavoriteList WHERE (FavoriteList.idClient=" & Session("ClientID") & ") AND (" For Each ItemCheckBox In Request.Form if InStr(ItemCheckBox,"cbFavorite") <> 0 then sqlstr = sqlstr + "(FavoriteList.idContact=" & Request.Form(ItemCheckBox) & ") OR" end if Next sqlstr = sqlstr + "(FavoriteList.idContact=0))" Application("objDBContacts").Execute(sqlstr) ValueReturn = Request.Form("hiddenReturnUrl") + 1 case "None" ValueReturn = 1 end Select %> <% Set rsFavorite = Application("objDBContacts").Execute("SELECT * FROM FavoriteList WHERE idClient=" & Session("ClientID")) Set objIdContact = rsFavorite("IdContact") do Until rsFavorite.EOF Set rsContact = Application("objDBContacts").Execute("SELECT Company, idCompany, FirstName, LastName, JobTitle, BusinessPhone FROM Contacts WHERE idContact=" & objIdContact) Set objCompany = rsContact("Company") Set objIDCompany = rsContact("IdCompany") Set objFirstName = rsContact("FirstName") Set objLastName = rsContact("LastName") Set objJobTitle = rsContact("JobTitle") Set objBusinessPhone = rsContact("BusinessPhone") %> <% rsFavorite.MoveNext if not rsFavorite.EOF then Set rsContact = Application("objDBContacts").Execute("SELECT Company, idCompany, FirstName, LastName, JobTitle, BusinessPhone FROM Contacts WHERE idContact=" & objIdContact) Set objCompany = rsContact("Company") Set objIDCompany = rsContact("IdCompany") Set objFirstName = rsContact("FirstName") Set objLastName = rsContact("LastName") Set objJobTitle = rsContact("JobTitle") Set objBusinessPhone = rsContact("BusinessPhone") %> <% rsFavorite.MoveNext end if Loop %>
Contact Detail
<%=InitCapASP(objLastName) & ", " & InitCapASP(objFirstName)%> <%=objJobTitle%>
" > <%=InitCapASP(objCompany)%>  <%=objBusinessPhone%>
<%=InitCapASP(objLastName) & ", " & InitCapASP(objFirstName)%> <%=objJobTitle%>
" > <%=InitCapASP(objCompany)%> <%=objBusinessPhone%> 

   

 

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.