<%
If COBRANDER_DIR <> "home" Then
Response.Write "
![]()
"
End If
%>
<%
'############################
'# filename capslot2.txt
'# author Greg Simmons
'# version v2.0
'# date Feb 24, 1999
'############################
Call Capslot2()
Public Sub Capslot2()
Dim intCacheRnd, strChannel, strServerName, strCobrandName, strSiteType, strSite
'#######################
'# Rand used for cache busting
'#######################
Randomize
intCacheRnd = 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
%>
<%
Call Capslot3()
Private Sub Capslot3()
Dim iStart, iEnd
If SECTION_DIR_NAME = "" Then
iStart = InStr(2, Request.ServerVariables("PATH_INFO"), "/") + 1
iEnd = InStr(iStart, Request.ServerVariables("PATH_INFO"), "/")
If iEnd - iStart > 0 Then SECTION_DIR_NAME = Mid(Request.ServerVariables("PATH_INFO"), iStart, iEnd - iStart)
End If
If COBRANDER_DIR = "earthlinkbrc" OR COBRANDER_DIR = "earthlinkstart" OR COBRANDER_DIR = "earthlinkmain" Then
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Else
Select Case HUB_DIR_NAME
Case "arts"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "business"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "compute"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "culture"
If SECTION_DIR_NAME = "sexuality" Then
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Else
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
End If
Case "education"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "entertainment"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "finance"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "games"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "health"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "hobbies"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "home"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "internet"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "kidsteens"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "local"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "medianews"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "shopping"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "sports"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case "travel"
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
Case Else
'
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
'
End Select
End If
End Sub
%>
<%
'############################
'# filename capslot.txt
'# author Greg Simmons
'# version v2.0
'# date Feb 24, 1999
'############################
Call Capslot()
Public Sub Capslot()
Dim intCacheRnd, strChannel, strServerName, intServerNameLength, strCobrandName, strSiteType, strSite
'#######################
'# Rand used for cache busting
'#######################
Randomize
intCacheRnd = 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
%>
<%
Select Case HUB_DIR_NAME
Case "arts"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "business"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "compute"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "culture"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "education"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "entertainment"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "finance"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "games"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "health"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "hobbies"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "home"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "internet"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "kidsteens"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "local"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "medianews"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "shopping"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "sports"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case "travel"
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
Case Else
Response.Write "
![]()
" & VbCrLf
Response.Write "
" & VbCrLf
End Select
%>