<%Session("Redirect")="/industryContacts/IndustryContacts.asp"%> <% if Session("ClientType") = "Free" Then LoginName = Request.Cookies("LoginName") LoginPassword = Request.Cookies("LoginPassword") if (LoginName = "") or (LoginPassword = "") then %> <% else Set rsClient = Application("objDBClient").Execute("SELECT ID FROM Client WHERE (UCase(Login)=UCase('" & LoginName & "')) and (UCase(Password)=UCase('" & LoginPassword & "'))") if rsClient.EOF then %> <% else Session("ClientType") = "Gold" objClientID = rsClient("ID") Application("objDBClient").Execute("UPDATE Client SET SystemState = 'Login' WHERE ID=" & objClientID) end if 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%>

Industry 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

<% if InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") then Size = "size=40" else Size = "size=25" end if %>
<% 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 = "New Contact" ItemNav = "New Contact" %> <% 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 %>
<%If Session("ContactAdmin")= "Out" then %>
Personal Information
First Name :
> *
Last Name :
> *
Job Title :
>
Email :
> *
Company Information
Company :
> *
Street :
> *
City :
> *
State :
> *
Country :
> *
ZipCode :
> *
Phone :
> *
Fax :
>
Assistant Name :
>
Assistant Phone :
>
Web Page :
>
* Required fields
<%End if%>

<%If Session("ContactAdmin")= "In" then %>
Personal Information
First Name :
> Middle Name:
Last Name :
>
Job Title :
>
Celular Phone :
>
Email :
>
Company Information
Company :
Street :
>
City :
>
State :
>
Country :
ZipCode :
>
Phone :
>
Fax :
>
Assistant Name :
>
Assistant Phone :
>
Web Page :
>
Company Main Phone : >

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