1. Home
  2. Entertainment
  3. One Life to Live
<% '############################ '# filename adslot1.txt '# author Greg Simmons '# version v2.0 '# date Feb 24, 1999 '############################ Public intAdslot1CacheRnd Call Adslot1() Public Sub Adslot1() Dim strChannel, strServerName, intServerNameLength, strCobrandName, strSiteType, strSite '####################### '# Rand used for cache busting '####################### Randomize intAdslot1CacheRnd = Int(Rnd * 1000000) '####################### '# Pull targeting values from ASP variables '####################### strChannel = HUB_DIR_NAME strServerName = LCase(Request.ServerVariables("SERVER_NAME")) '####################### '# Strip off domain to get sitename and check for search server '####################### If Left(Lcase(strServerName),7) = "search." Then strSite = SITE_DIR_NAME Else If Instr(strServerName, ".") < 1 Then intServerNameLength = Len(strServerName) Else intServerNameLength = Instr(strServerName, ".") - 1 End If strSite = Left(strServerName, intServerNameLength) End If '####################### '# Check for Earthlink or Adult site types '####################### strCobrandName = LCase(COBRANDER_DIR) If Instr(strCobrandName, "earthlink") Then strSiteType = "earthlink." End IF Select Case strSite Case "amateurerotica", "bdsm", "celebrityerotic", "gayerotica", "lesbianerotica", "sexuality", "menserotica", "womenserotica" strSiteType = "adult." End Select '####################### '# Write DoubleClick Ad string '####################### Response.Write VbCrlf & "" & VbCrlf Response.Write "" & VbCrLf Response.Write "" & VbCrLf Response.Write "" & VbCrlf End Sub %>
 
Back to the Homepage
Back to the Homepage
Coming SOON!
 

 
You are here<%= SITE_DISPLAY_NAME %> > Bookstore

We're building a new book center to celebrate our association with Borders.com.
Shop online for bestsellers, classics, children's books, and all your other textual needs with About.com and Borders.com

Watch for it!

About.com - Borders.com - Bookstore
Borders.com
   Search Borders.com for:
Books Music Net Cafe Children's Computer Books

 
© 2000 About.com, Inc. All rights reserved.
©   2000 About.com, Inc. "MiningCo.com" and "About.com" are trademarks of About.com, Inc.,
a publicly traded company listed on NASDAQ under the symbol "BOUT."
For more information on About.com, visit Our Story, Be a Guide, Be an Advertiser, or Investor Relations.
For rules of use, read our User Agreement; for privacy concerns, read our Privacy Policy.
Having a Problem? Report it here.

Explore One Life to Live

About.com Special Features

Holiday Central

What to eat, where to go, fun things to do and how to save money on the perfect gifts. More >

The Best Top 40 Pop Songs

Is your favorite song on our list? More >

  1. Home
  2. Entertainment
  3. One Life to Live

©2009 About.com, a part of The New York Times Company.

All rights reserved.