<% 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 reviews section!

Subscribe to a monthly newsletter customized for your needs!

Check out the most comprehensive Perfume Industry database!

Find out about specific Promotional Campaigns.

We want to make a difference!
<% fromName = Request.Form("fieldName") EmailSend = Request.Form("fieldEmailSend") TypeBusiness = Request.Form("fieldTypeBusiness") Comment = Request.Form("fieldComment") if TypeBusiness <> "" then Set FeedbackASPObj = Server.CreateObject("NPCCOM.Mailer") //DelphiASPObj.Initialize FeedbackASPObj.SubType = "Plain" FeedbackASPObj.FromAddress = EmailSend FeedbackASPObj.FromName = fromName FeedbackASPObj.ToAddress = "bernard@perfume2000.com" FeedbackASPObj.Subject = "FeedBack From Perfume2000.com --- Business Type:"& TypeBusiness FeedbackASPObj.Body = Comment FeedbackASPObj.LocalProgram = " NPCMailer " //FeedbackASPObj.MDate := String; //FeedbackASPObj.ReplyTo := String; //FeedbackASPObj.ToCarbonCopy := String; FeedbackASPObj.EmailSend FeedbackASPObj.NotifyAdmin(" FeedBack Was Sent Sucsessfull ") set DelphiASPObj = nothing //Application("objDBFeedBack").Execute("INSERT INTO FeedBack (emailSend, TypeBusiness, Comment) VALUES ('" & EmailSend & "','" & TypeBusiness & "','" & Replace(Comment,"'","''") & "')") %>

Thank you for taking the time to send us your comments and suggestions. We are working hard to make sure Perfume2000.com is the number-one Internet resource for the industry.

<% else %>

 

If there is something about this site that you would like to change, this is the page you want to be on. We encourage any type of suggestion you have. Your input will help us provide you with better service.

Please fill in the following information ( you will only be sent a confirmation note to the eMail address you enter, after that, we will send nothing else to that address):

Name: eMail Address:
    Type of Business:

Comments and Suggestions:

  

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