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

<% Keyword = Request.Form("KeywordField") OrigKeyword = Keyword TempStr = Replace(Keyword,"'","''") Keyword = TempStr SearchWord = OrigKeyword sqlStr = "" if Keyword <> "" then sqlStr = "WHERE (Keywords LIKE '%" & Keyword & "%') or (Title LIKE '%" & Keyword & "%') or (Subtitle LIKE '%" & Keyword & "%') or (Author LIKE '%" & Keyword & "%') or (First_Paragraph LIKE '%" & Keyword & "%') or (All_Information LIKE '%" & Keyword & "%')" else SearchWord = "All news" end if Set rsCountItems = Application("objDBInformation").Execute("SELECT Count(ID) As CountItem FROM News " & sqlStr) Set objCountItems = rsCountItems("CountItem") 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 %>

Keyword Search:      -complete news list-

<% Set rsNewAdvertise = Application("objDBAdvertise").Execute("SELECT AdvBanner, AdvLink, AdvType FROM NewsAdvertise WHERE M" & Month(Date) & "= Yes") if rsNewAdvertise.EOF then BannerImage = "none" Session("NewsBannerSec") = 1 else if Session("NewsBannerSec") = "" then Session("NewsBannerSec") = 1 rsNewAdvertise.Move Session("NewsBannerSec") if rsNewAdvertise.EOF then rsNewAdvertise.MoveFirst Session("NewsBannerSec") = 1 else Session("NewsBannerSec") = Session("NewsBannerSec") + 1 Set objBannerImage = rsNewAdvertise("AdvBanner") Set objBannerLink = rsNewAdvertise("AdvLink") Set objBannerType = rsNewAdvertise("AdvType") BannerImage = objBannerImage BannerLink = objBannerLink BannerType = objBannerType end if end if %> <% 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 %> <% Set rsNewAdvertise = Application("objDBAdvertise").Execute("SELECT AdvBanner, AdvLink, AdvType FROM NewsAdvertise WHERE M" & Month(Date) & "= Yes") if rsNewAdvertise.EOF then CountFreeBanners = 2 Randomize BannerImage = "FreeBanner/FreePlase" & Int(CountFreeBanners * Rnd + 1) & ".gif" BannerLink = "/advertise/advertise.asp" target = "" Session("NewsBannerSec") = 1 else if Session("NewsBannerSec") = "" then Session("NewsBannerSec") = 1 rsNewAdvertise.Move Session("NewsBannerSec") if rsNewAdvertise.EOF then rsNewAdvertise.MoveFirst Session("NewsBannerSec") = 1 else Session("NewsBannerSec") = Session("NewsBannerSec") + 1 end if Set objBannerImage = rsNewAdvertise("AdvBanner") Set objBannerLink = rsNewAdvertise("AdvLink") Set objBannerType = rsNewAdvertise("AdvType") BannerImage = objBannerImage BannerLink = objBannerLink BannerType = objBannerType if BannerType = "InWebSite" then BannerLink = "/industryContacts/Contact_DetailCompany.asp?" & BannerLink target = "" else BannerImage = "NewsBanner/" & BannerImage target = "target=_blank" 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 & " " %> <% 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 & " " %> <% end if Next else For i = (PageSession - 1) * MaxPageSession + 1 to PageSession * MaxPageSession if PageNumber = i then Response.Write i & " " else Response.Write "" & i & " " %> <% end if Next end if if PageSession < EndPageSession then Response.Write " >> " %> <% end if end if end if %>
<% if CountItem > 0 then Set rsNewsFlash = Application("objDBInformation").Execute("SELECT TOP " & PageNumber * CountItemByPage & " ID, Date, Title, Subtitle, Author FROM News " & sqlStr & "ORDER BY Date DESC") rsNewsFlash.Move (PageNumber - 1) * CountItemByPage Set objNewsFlashID = rsNewsFlash("ID") Set objNewsFlashDate = rsNewsFlash("Date") Set objNewsFlashTitle = rsNewsFlash("Title") Set objNewsFlashSubtitle = rsNewsFlash("SubTitle") Set objNewsFlashAuthor = rsNewsFlash("Author") dim Constyear(12) Constyear(1) = "January" Constyear(2) = "February" Constyear(3) = "March" Constyear(4) = "April" Constyear(5) = "May" Constyear(6) = "June" Constyear(7) = "July" Constyear(8) = "August" Constyear(9) = "September" Constyear(10) = "October" Constyear(11) = "November" Constyear(12) = "December" %> <% do Until rsNewsFlash.EOF %> <% rsNewsFlash.MoveNext if not (rsNewsFlash.EOF) then %> <% rsNewsFlash.MoveNext end if Loop %>
" class="nf"><%=objNewsFlashTitle%>
<%Response.Write ConstYear(month(objNewsFlashDate)) & " " & day(objNewsFlashDate) & ", " & year(objNewsFlashDate) & " :"%>  <%=objNewsFlashSubTitle%>
<%=objNewsFlashAuthor%>
" class="nf"><%=objNewsFlashTitle%>
<%Response.Write ConstYear(month(objNewsFlashDate)) & " " & day(objNewsFlashDate) & ", " & year(objNewsFlashDate) & " :"%>  <%=objNewsFlashSubTitle%>
<%=objNewsFlashAuthor%>
<% else Response.Write "No result find for '" & Searchword & "'" end if %> <% 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 %> <% Set rsNewAdvertise = Application("objDBAdvertise").Execute("SELECT AdvBanner, AdvLink, AdvType FROM NewsAdvertise WHERE M" & Month(Date) & "= Yes") if rsNewAdvertise.EOF then CountFreeBanners = 2 Randomize BannerImage = "FreeBanner/FreePlase" & Int(CountFreeBanners * Rnd + 1) & ".gif" BannerLink = "/advertise/advertise.asp" target = "" Session("NewsBannerSec") = 1 else if Session("NewsBannerSec") = "" then Session("NewsBannerSec") = 1 rsNewAdvertise.Move Session("NewsBannerSec") if rsNewAdvertise.EOF then rsNewAdvertise.MoveFirst Session("NewsBannerSec") = 1 else Session("NewsBannerSec") = Session("NewsBannerSec") + 1 end if Set objBannerImage = rsNewAdvertise("AdvBanner") Set objBannerLink = rsNewAdvertise("AdvLink") Set objBannerType = rsNewAdvertise("AdvType") BannerImage = objBannerImage BannerLink = objBannerLink BannerType = objBannerType if BannerType = "InWebSite" then BannerLink = "/industryContacts/Contact_DetailCompany.asp?" & BannerLink target = "" else BannerImage = "NewsBanner/" & BannerImage target = "target=_blank" 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 & " " %> <% 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 & " " %> <% end if Next else For i = (PageSession - 1) * MaxPageSession + 1 to PageSession * MaxPageSession if PageNumber = i then Response.Write i & " " else Response.Write "" & i & " " %> <% 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
specials
help


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.