| <%
'############################
'# 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 " |
  |
 |
|
We're building a new book center to celebrate our association with Borders.com. Watch for it! |
 |
|
 |
 |
|
 |
||
 |
 |
 |
 |
 |
|
||||
