[an error occurred while processing this directive] [an error occurred while processing this directive] <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_1_ATC")) <> "" OR cStr(Request.Form("perfume2000_1_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_1_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cartlist.asp" ATC_RedirectIfIn = "" ATC_itemName = "Side Banner"' column binding ATC_itemDescription = "P2000 Side Banner - One Month - 139 x 60"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_1_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("300")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_2_ATC")) <> "" OR cStr(Request.Form("perfume2000_2_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_2_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cartlist.asp" ATC_RedirectIfIn = "" ATC_itemName = "Side Banner"' column binding ATC_itemDescription = "P2000 Side Banner - Six Months - 139 x 60"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_2_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("1000")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_3_ATC")) <> "" OR cStr(Request.Form("perfume2000_3_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_3_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cartlist.asp" ATC_RedirectIfIn = "" ATC_itemName = "Side Banner"' column binding ATC_itemDescription = "P2000 Side Banner - One Year - 139 x 60"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_3_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("1800")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_4_ATC")) <> "" OR cStr(Request.Form("perfume2000_4_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_4_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cartlist.asp" ATC_RedirectIfIn = "" ATC_itemName = "Top Banner"' column binding ATC_itemDescription = "P2000 Top Banner - One Month - 468 x 60"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_4_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("800")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_5_ATC")) <> "" OR cStr(Request.Form("perfume2000_5_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_5_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cartlist.asp" ATC_RedirectIfIn = "" ATC_itemName = "Top Banner"' column binding ATC_itemDescription = "P2000 Top Banner - Three Months - 468 x 60"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_5_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("2000")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart AddToCart if (cStr(Request.Form("perfume2000_6_ATC")) <> "" OR cStr(Request.Form("perfume2000_6_ATC.x")) <> "") then ATC_itemID = cStr(Request.Form("perfume2000_6_ID_Add")) ATC_AddIfIn = 0 ATC_RedirectAfter = "cartlist.asp" ATC_RedirectIfIn = "" ATC_itemName = "Top Banner"' column binding ATC_itemDescription = "P2000 Top Banner - Six Months - 468 x 60"' column binding ATC_itemWeight = cDbl("0")' column binding ATC_itemQuantity = "" & cStr(Request.Form("perfume2000_6_Quantity_Add")) & ""' column binding ATC_itemPrice = cDbl("1")' column binding if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then set perfume2000 = perfume2000_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice) if (ATC_RedirectAfter <> "" AND perfume2000_redirStr = "") then perfume2000_redirStr = ATC_RedirectAfter end if Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString()) end if end if %> <% ' WA eCart Redirect if (perfume2000_redirStr <> "") then Response.Redirect(perfume2000_redirStr) end if %> How to advertise with Perfume2000.com
<% 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

Technology making its mark on the perfume business!

Subscribe to a monthly newsletter customized for your needs!

Check out the most comprehensive Perfume Industry database!

Find out about specific Promotional Campaigns

Perfume2000.com Advertising Specifications/Rate Card

Now is a great time to include Perfume2000.com in your advertising budget.

The Perfume2000 advertising advantages

Our audience is extremely focused. Our visitors are almost exclusively business men and women from the Fragrance Trade and related industries. Your adds won't be seen by teenagers looking for MP-3's. They will be seen by the professionals you want to reach.

Just click on any banner below and proceed to payment page.


Side Banner
139 x 60
Side Banner
139 x 60
Side Banner
139 x 60
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
Top Banners
468 x 60
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
 
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
 
<%=WA_eCart_IIf((Request.ServerVariables("QUERY_STRING") <> ""), "?" & Request.ServerVariables("QUERY_STRING"), "")%>">
 

If you have any questions or concerns please call 305-868-9383 today to get started with a Perfume2000.com advertising package. We can help your business to grow!or send an email to Ana


home
site map
industry flash
help
advertising
links
greeting cards
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.