perfume news

<% HostIPRemote = Request.ServerVariables("REMOTE_ADDR") Set rsHostIP = Application("objDBSpider").Execute("SELECT * FROM Spider WHERE SpiderIP='" & HostIPRemote & "'") if rsHostIP.EOF then %> perfume news <% LoginName = Request.Cookies("LoginName") LoginPassword = Request.Cookies("LoginPassword") if LoginPassword <> "" then Set rsClient = Application("objDBClient").Execute("SELECT ID FROM Client WHERE (UCase(Login)=UCase('" & LoginName & "')) and (UCase(Password)=UCase('" & LoginPassword & "'))") if not rsClient.EOF then Session("ClientType") = "Gold" Set objClientID = rsClient("ID") Session("ClientID") = objClientID Application("objDBClient").Execute("UPDATE Client SET SystemState = 'Login' WHERE ID=" & objClientID) 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%>

Free News Subscription

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

-Complete News List-

• Industry Forum

• Job Classified

• Chat Room

• Customize

• Beauty Navigator

• Investor Relations

• News Administrator

• Industry Contacts

• Alexander List

<%if Session("ClientType") <> "Free" then%> • Add New Contact
• My Contacts
• My Perfume List <%else%>

• Add New Contact
• My Contacts
• My Perfume List <%end if%>

• eMai l

• Mailing List

PERFUME 2000 NEWS SUBSCRIPTION
If you'd like to be notified when Perfume 2000 is updated, choose one of the options below: By Email: Simply send an email to our PR PublicRelation@perfume2000.com If you use My Yahoo as your home page, you can add this site to My Yahoo. If you use Google Reader as your home page, add this site to Google Reader. Click on the button above to copy the link to your RSS feed, and use for the news aggregator or subscription service of your choice.

<% else Set objCode = rsHostIP("Code") Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(Application("SpiderRoot") & objCode & "\" & Application("SpiderDefault"), 1) %><%=f.ReadAll%><% end if %>