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

<% SearchWord = "Print Cart" ItemNav = "Print Cart" %> <% 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 %>

Welcome to the most comprehensive Perfume Products
search tool in the world.

Brand:
" onKeyPress="MM_callJS('BrandKeyPress()')" size="13">

Distributor:
" onKeyPress="MM_callJS('DistributorKeyPress()')" size="13">

Products:
" onKeyPress="MM_callJS('KeywordKeyPress()')" size="13">

Complete Brand List | Complete Distributor List | <%if Session("ClientType")="Free" Then%>Print Cart<%else%>Print Cart<%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 %>
<% Dim isChanging,MyTotalCount,MyTotalPrice Dim MyHistoryCount ,isFullView MyHistoryCount = request.form("PastHistory") MyHistoryCount = MyHistoryCount + 1 MyTotalCount = 0 MyTotalPrice = 0 isChanging = request.form("isChangeon") if isChanging = "" then isChanging = "IsList" isFullView = request.form("VFully") if isFullView ="" then isFullView = false OperationType = request.QueryString("state") ClientID = session("ClientID") Set DataC = Application("objDBAlexList") select case OperationType case "View" SQLst = "SELECT* FROM ClientInfo WHERE IDClient LIKE "&ClientID&";" Set MyRecSet = DataC.execute(SQLst) if not MyRecSet.EOF then isChanging = MyRecSet.fields("ViewType") isFullView = MyRecSet.fields("FullView") end if case "ADD" MyHistoryCount = 1 SQLst = "SELECT* FROM ClientInfo WHERE IDClient LIKE "&ClientID&";" Set MyRecSet = DataC.execute(SQLst) if MyRecSet.EOF then SQLst = "INSERT INTO ClientInfo(IDClient,ViewType,FullView) Values('"&ClientID&"','IsList',true);" Set MyRecSet = DataC.execute(SQLst) else isChanging = MyRecSet.fields("ViewType") isFullView = MyRecSet.fields("FullView") end if SQLst = "SELECT Items.PerfumeName_ID, Items.ID FROM Items WHERE (" For Each ItemCheckBox In Request.Form if InStr(ItemCheckBox,"CHKAlexList") <> 0 then SQLst = SQLst + "(Items.ID="&Request.Form(ItemCheckBox)&") OR" end if Next SQLst = SQLst + "(Items.ID= 0));" set MyItemsrecSet = DataC.Execute(SQLst) SQLst ="SELECT PerfumeName.PerfumeBrand_ID, PerfumeName.PerfumeDistributor_ID, PerfumeName.ID FROM PerfumeName WHERE (" if not MyItemsRecSet.EOF then MyItemsRecSet.MoveFirst Do While not MyItemsRecSet.EOF SQLst = SQLst + "(PerfumeName.ID="&MyItemsRecSet.fields("PerfumeName_ID")&")OR" MyItemsRecSet.movenext Loop SQLst = SQLst + "(PerfumeName.ID = 0));" set MyPBDRecSet = DataC.Execute(SQLst) if not MyPBDRecSet.eof then MyItemsRecSet.movefirst MyPBDRecSet.movefirst Do while not ((MyItemsRecSet.EOF) or (MyPBDRecSet.MoveFirst)) ALIDItem = MyItemsrecSet.fields("ID") ALIDBrand = MyPBDRecSet.fields("PerfumeBrand_ID") ALIDPerfN = MyItemsrecSet.fields("PerfumeName_ID") ALIDDist = MyPBDRecSet.fields("PerfumeDistributor_ID") SQLst = "INSERT INTO PrintCart(IDClient,IDBrand,IDItem,IDPerfumeName,IDDistributor) Values("&ClientID&","&ALIDBrand&","&ALIDItem&","&ALIDPerfN&","&ALIDDist&");" Set MyRecSet = DataC.execute(SQLst) MyPBDRecSet.MoveNext MyItemsRecSet.MoveNext Loop end if case "Dell" SQLst ="DELETE * FROM PrintCart WHERE (" For Each ItemCheckBox In Request.Form if InStr(ItemCheckBox,"CHK") <> 0 then SQLst = SQLst + "(PrintCart.IDPrintList=" & Request.Form(ItemCheckBox) & ") OR" end if Next SQLst = SQLst + "(PrintCart.IDPrintList = 0));" set MyrecSet = DataC.Execute(SQLst) case "update" SQLst = "SELECT * FROM PrintCart WHERE(IDClient = "&ClientID&");" Set MyRecSet = DataC.Execute(SQLst) Do While not MyRecSet.eof cantidad = request.form("MytextCount_"&Myrecset.fields("IDPrintList")) SQLst = "UPDATE PrintCart SET Cant = '"&cantidad&"' WHERE IDPrintList LIKE '"&Myrecset.fields("IDPrintList")&"';" set MyRecSet2 = DataC.Execute(SQLst) MyRecSet.MoveNext loop case "Change" SQLst = "UPDATE ClientInfo SET ViewType = '"&isChanging&"' ,FullView = "&isFullView&" WHERE IDClient LIKE '"&ClientID&"';" set MyRecSet = DataC.Execute(SQLst) end select %>
<%if isChanging = "IsInvoise" then %> <%end if%> <%if isChanging = "IsInvoise" then %> <%end if%>

Type

Size

Qty

Price

Total

<% SQLst = "SELECT * FROM PrintCart WHERE(IDClient = "&ClientID&");" Set MyRecSet = DataC.Execute(SQLst) if not MyRecSet.eof then MyRecSet.movefirst Do While not MyRecSet.eof SQLst = "SELECT* FROM Items WHERE ID LIKE '"&MyRecSet.fields("IDItem")&"';" set MyRecSet2 = DataC.execute(SQLst) %> <%if isChanging = "IsInvoise" then %> <% MyTotalCount = MyTotalCount + MyRecSet.fields("Cant") end if %> <%if isChanging = "IsInvoise" then %> <%end if%>
<%if isFullView then%> <%end if%>
2" id="CHK_<%=MyRecSet.fields("IDPrintList")%>" value="<%=MyRecSet.fields("IDPrintList")%>"> <%=MyRecSet2.fields("PerfumeType")%>
  <% SQLst = "SELECT PerfumeBrand.Brand, PerfumeDistributor.PerfumeDistrib, PerfumeName.PerfumeName FROM PerfumeDistributor, PerfumeBrand, PerfumeName WHERE (((PerfumeBrand.ID)="&MyRecSet.fields("IDBrand")&") AND ((PerfumeDistributor.ID)="&MyRecSet.fields("IDDistributor")&") AND ((PerfumeName.ID)="&MyRecSet.fields("IDPerfumeName")&"));" set MyRecSet3 = DataC.execute(SQLst) %> &BrandName=<%=Replace(MyRecSet3.fields("Brand")," ","%20")%>"> <%=MyRecSet3.fields("Brand")%>| &DistributorName=<%=Replace(MyRecSet3.fields("PerfumeDistrib")," ","%20")%>"> <%=MyRecSet3.fields("PerfumeDistrib")%>| "> <%=MyRecSet3.fields("PerfumeName")%>
<%=MyRecSet2.fields("PerfumeSize")%> " name="MytextCount_<%=MyRecSet.fields("IDPrintList")%>" size="1" value="<%=MyRecSet.fields("Cant")%>"> <%=FormatCurrency(MyRecSet2.fields("PerfumePrice"))%> <%=FormatCurrency(MyRecSet2.fields("PerfumePrice")*MyRecSet.fields("Cant"))%>
<% MyTotalPrice = MyTotalPrice + MyRecSet2.fields("PerfumePrice")* MyRecSet.fields("Cant") MyRecSet.movenext if not MyRecSet.eof then SQLst = "SELECT * from Items WHERE ID LIKE '"&MyRecSet.fields("IDItem")&"';" set MyRecSet2 = DataC.execute(SQLst) %> <%if isChanging = "IsInvoise" then %> <% MyTotalCount = MyTotalCount + MyRecSet.fields("Cant") end if %> <%if isChanging = "IsInvoise" then %> <%end if%>
<%if isFullView then%> <%end if%>
22" id="CHK_<%=MyRecSet.fields("IDPrintList")%>" value="<%=MyRecSet.fields("IDPrintList")%>"> <%=MyRecSet2.fields("PerfumeType")%>
  <% SQLst = "SELECT PerfumeBrand.Brand, PerfumeDistributor.PerfumeDistrib, PerfumeName.PerfumeName FROM PerfumeDistributor, PerfumeBrand, PerfumeName WHERE (((PerfumeBrand.ID)="&MyRecSet.fields("IDBrand")&") AND ((PerfumeDistributor.ID)="&MyRecSet.fields("IDDistributor")&") AND ((PerfumeName.ID)="&MyRecSet.fields("IDPerfumeName")&"));" set MyRecSet3 = DataC.execute(SQLst) %> &BrandName=<%=Replace(MyRecSet3.fields("Brand")," ","%20")%>"> <%=MyRecSet3.fields("Brand")%>| &DistributorName=<%=Replace(MyRecSet3.fields("PerfumeDistrib")," ","%20")%>"> <%=MyRecSet3.fields("PerfumeDistrib")%>| "> <%=MyRecSet3.fields("PerfumeName")%>
<%=MyRecSet2.fields("PerfumeSize")%> " name="MytextCount_<%=MyRecSet.fields("IDPrintList")%>" size="1" value="<%=MyRecSet.fields("Cant")%>"> <%=FormatCurrency(MyRecSet2.fields("PerfumePrice"))%> <%=FormatCurrency(MyRecSet2.fields("PerfumePrice")*MyRecSet.fields("Cant"))%>
<% MyTotalPrice = MyTotalPrice + MyRecSet2.fields("PerfumePrice")* MyRecSet.fields("Cant") MyRecSet.Movenext end if loop if isChanging = "IsInvoise" then %>
 
<%=MyTotalCount%>

<%=Formatcurrency(MyTotalPrice)%>
<% end if %> <%if isChanging = "IsInvoise" then %> <%end if %>
Checked<%end if%>> View Full Information
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.