VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SuperString"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'local variable(s) to hold property value(s)
Private mvarStringExpression As String 'local copy
Private mvarPointStart As Long 'local copy
Private mvarPintEnd As Long 'local copy
Private mvarCharHolder As String 'local copy
'local variable(s) to hold property value(s)
Private mvarIndex As Integer 'local copy
Private mvarSplitted As splitter 'local copy
Private mvarHost As String
Private mvarLocation As String
Private mvarIsHTTPURL As Boolean
Private mvarIsFTPURL As Boolean

Public Function sSplit(Delimiter As String, Optional sLimit As Long = -1) As splitter
    Set mvarSplitted = New splitter
    mvarSplitted.Add Split(mvarStringExpression, Delimiter, sLimit)
    Set sSplit = mvarSplitted
    ' written by IWiz mity@ropnet.ru
End Function


Public Property Get Splitted() As splitter
    Set Splitted = mvarSplitted

' written by IWiz mity@ropnet.ru
End Property


Public Property Set Splitted(ByVal vData As splitter)
    Set mvarSplitted = vData
    
' written by IWiz mity@ropnet.ru
End Property


Public Property Let Index(ByVal vData As Integer)
    mvarIndex = vData
    
' written by IWiz mity@ropnet.ru
End Property


Public Property Get Index() As Integer
    Index = mvarIndex

' written by IWiz mity@ropnet.ru
End Property




Public Function sMid(Optional pBegin As Long, Optional pEnd As Long) As String
If pBegin = 0 Then pBegin = mvarPointStart
If pEnd = 0 Then pEnd = mvarPintEnd
If pBegin = 0 Or pEnd = 0 Then Exit Function
sMid = Mid(mvarStringExpression, mvarPointStart, mvarPintEnd - mvarPointStart)

' written by IWiz mity@ropnet.ru
End Function

Public Property Let CharHolder(ByVal vData As String)
    mvarCharHolder = vData
    
' written by IWiz mity@ropnet.ru
End Property


Public Property Get CharHolder() As String
    CharHolder = mvarCharHolder
    
' written by IWiz mity@ropnet.ru
End Property



Public Property Let PintEnd(ByVal vData As Long)
    mvarPintEnd = vData

' written by IWiz mity@ropnet.ru
End Property


Public Property Get PintEnd() As Long
    PintEnd = mvarPintEnd

' written by IWiz mity@ropnet.ru
End Property



Public Property Let PointStart(ByVal vData As Long)
    mvarPointStart = vData

' written by IWiz mity@ropnet.ru
End Property


Public Property Get PointStart() As Long
    PointStart = mvarPointStart

' written by IWiz mity@ropnet.ru
End Property



Public Property Let StringExpression(ByVal vData As String)
    mvarStringExpression = vData
    Call FillURL
    
' written by IWiz mity@ropnet.ru
End Property


Public Property Get StringExpression() As String
    StringExpression = mvarStringExpression

' written by IWiz mity@ropnet.ru
End Property


Public Function sRight(num As Long) As String
sRight = Right(mvarStringExpression, num)

' written by IWiz mity@ropnet.ru
End Function

Public Function sLeft(num As Long) As String
sLeft = Left(mvarStringExpression, num)

' written by IWiz mity@ropnet.ru
End Function


Public Function bInStr(sFind As String, Optional FindFromPos As Long = 1) As Boolean
If InStr(FindFromPos, LCase(mvarStringExpression), LCase(sFind)) > 0 Then bInStr = True

' written by IWiz mity@ropnet.ru
End Function

Public Function sInStr(sFind As String, Optional FindFromPos As Long = 1) As Long
If FindFromPos = 0 Then
    sInStr = 0
Else
    sInStr = InStr(FindFromPos, LCase(mvarStringExpression), LCase(sFind))
End If

' written by IWiz mity@ropnet.ru
End Function

Public Property Get lLen() As Long
lLen = Len(mvarStringExpression)

' written by IWiz mity@ropnet.ru
End Property


Public Function CharCollection() As Collection
Set CharCollection = New Collection
For i = 1 To Len(mvarStringExpression)
    CharCollection.Add Mid(mvarStringExpression, i, 1)
Next

' written by IWiz mity@ropnet.ru
End Function

Private Sub Class_Initialize()
Set mvarSplitted = New splitter

' written by IWiz mity@ropnet.ru
End Sub

Public Property Get host() As String
host = mvarHost

' written by IWiz mity@ropnet.ru
End Property

Public Property Get Location() As String
Location = mvarLocation

' written by IWiz mity@ropnet.ru
End Property

Private Sub FillURL()
Dim tmpstr As String
Dim xsplit As splitter
mvarIsHTTPURL = False

If LCase(sLeft(Len("http://"))) = "http://" Then
    tmpstr = mvarStringExpression
    mvarStringExpression = sRight(lLen - Len("http://"))
    Set xsplit = sSplit("/", 2)
    Select Case Splitted.Count
        Case 0
        Case 1
            mvarHost = Splitted(1).StringExpression
            mvarLocation = "/"
            mvarIsHTTPURL = True
        Case Else
            mvarHost = Splitted(1).StringExpression
            mvarLocation = "/" + Splitted(2).StringExpression
            mvarIsHTTPURL = True
    End Select
    mvarStringExpression = tmpstr
    Set mvarSplitted = Nothing
    Set mvarSplitted = New splitter
End If

' written by IWiz mity@ropnet.ru
End Sub

Public Property Get Is_HTTP_URL() As Boolean
Is_HTTP_URL = mvarIsHTTPURL

' written by IWiz mity@ropnet.ru
End Property

Public Property Get Is_FTP_URL() As Boolean
Is_FTP_URL = mvarIsFTPURL

' written by IWiz mity@ropnet.ru
End Property

Public Sub mSpace(lcount As Long, Optional cchar As String = " ")
For i = 1 To lcount
    mvarStringExpression = mvarStringExpression + cchar
Next

' written by IWiz mity@ropnet.ru
End Sub

Public Function Dec(sHex As Variant) As Integer
Dim i As Integer
Dim conv As Integer
Dim sadj As Integer
If Len(sHex) < 2 Then GoTo out
For i = 0 To 1

    If Asc(Mid(sHex, 2 - i, 1)) < 58 Then
        conv = CInt(Mid(sHex, 2 - i, 1))
    ElseIf Asc(Mid(sHex, 2 - i, 1)) > 64 Then
        conv = Asc(Mid(sHex, 2 - i, 1)) - 55
    End If
    adj = 16 ^ i
    Dec = conv * adj + Dec
    
Next
out:

' written by IWiz mity@ropnet.ru
End Function

Public Function dHEX(ByVal Number As Double) As String
Dim HigherDevider As Double
Dim i As Integer
Dim sDiff As Double
Dim midp As Double
Dim n As Double
Dim uHEX1 As String

While Number >= 16
    i = 0
    HigherDevider = 0
    While HigherDevider < Number
        i = i + 1
        HigherDevider = 16 ^ i
    Wend
    i = i - 1
    HigherDevider = 16 ^ i
    sDiff = Fix(Number / HigherDevider)
    uHEX = uHEX + Hex(sDiff)
    midp = 16 ^ i
    midp = sDiff * midp
    Number = Number - midp
Wend

uHEX = uHEX + Hex(Number)
dHEX = uHEX

' written by IWiz mity@ropnet.ru
End Function

Public Function dDec(sHex As Variant) As Double
Dim i As Integer
Dim conv As Integer
Dim sadj As Integer
If Len(sHex) < 2 Then GoTo out
For i = 0 To Len(sHex) - 1
    
    If Asc(Mid(sHex, Len(sHex) - i, 1)) < 58 Then
        conv = CInt(Mid(sHex, Len(sHex) - i, 1))
    ElseIf Asc(Mid(sHex, Len(sHex) - i, 1)) > 64 Then
        conv = Asc(Mid(sHex, Len(sHex) - i, 1)) - 55
    End If
    adj = 16 ^ i
    dDec = conv * adj + dDec
    
Next
out:

' written by IWiz mity@ropnet.ru
End Function


Private Function ConvLink(sLink As String) As String
Dim sss As New SuperStrings
sss.Add (sLink)
sss.Add ("")
sss(1).PointStart = sss(1).sInStr("%")
sss(1).PintEnd = sss(1).PointStart + 3

While sss(1).PointStart > 0
    sss(1).PointStart = sss(1).PointStart + 1
    sss(2).StringExpression = Chr(Dec(sss(1).sMid))
    sss(1).StringExpression = Replace(sss(1).StringExpression, "%" + sss(1).sMid, sss(2).StringExpression)
    
    sss(1).PointStart = sss(1).sInStr("%")
    sss(1).PintEnd = sss(1).PointStart + 3
Wend

ConvLink = sss(1).StringExpression

' written by IWiz mity@ropnet.ru
End Function



Public Function ShortenSize(Bigsize As Long) As String
Dim finalesize As String

If Bigsize = 0 Then
    ShortenSize = "Unknown"
    GoTo nosize
End If


If Bigsize > 1000 And Bigsize < 1000000 Then
    finalesize = Str(Fix((Bigsize / 1000) * 10) / 10) + " K"
ElseIf Bigsize < 1000 Then
    finalesize = Str(Bigsize) + " bytes"
ElseIf Bigsize > 1000000 Then
    finalesize = Str(Fix((Bigsize / 1000000) * 10) / 10) + " M"
End If

ShortenSize = finalesize
nosize:

' written by IWiz mity@ropnet.ru
End Function

Public Function frdblTrim(sData) As String
Dim i As Integer
Dim char As Variant
Dim ss As New SuperString
ss.StringExpression = sData
For Each char In ss.CharCollection
    If Asc(char) > 31 And Asc(char) < 126 Then frdblTrim = frdblTrim + char
Next
mvarStringExpression = frdblTrim

' written by IWiz mity@ropnet.ru
End Function

Public Function HexOutString(Optional sData As String) As String
Dim i As Integer
Dim strOut As String
Dim outQuated As Boolean
Dim cchar As String * 1
Dim bMissing As Boolean

If sData = "" Then bMissing = True
If sData = "" Then sData = mvarStringExpression

For i = 1 To Len(sData)
cchar = Mid(sData, i, 1)
    Select Case cchar
        Case Chr(48) To Chr(57)
            strOut = strOut + cchar
        Case Chr(65) To Chr(90)
            strOut = strOut + cchar
        Case Chr(97) To Chr(122)
            strOut = strOut + cchar
        Case Else
             strOut = strOut + "%" + TwoBitHex(Asc(cchar))
    End Select
Next

If bMissing = True Then
    StringExpression = strOut
End If
    
HexOutString = strOut

' written by IWiz mity@ropnet.ru
End Function

Private Function TwoBitHex(num As Integer) As String
Dim v As String
v = Hex(num)
If Len(v) = 1 Then v = "0" + v
TwoBitHex = v

' written by IWiz mity@ropnet.ru
End Function



Public Function SigneIP(vData As Double, Optional UpdateExpression As Boolean) As String
Dim HIP As String
Dim zeroAdd As Byte
Dim dVal As Double
Dim ss As New SuperString
    dVal = CDbl(vData)
    HIP = ss.dHEX(dVal)
    zeroAdd = 8 - Len(HIP)
    HIP = HIP + Space(zeroAdd)
    HIP = Replace(HIP, " ", "0")
    For i = 1 To 4
        SigneIP = CStr(Val("&H" + Left(HIP, 2))) + "." + SigneIP
        HIP = Right(HIP, Len(HIP) - 2)
    Next
    SigneIP = Left(SigneIP, Len(SigneIP) - 1)
    If UpdateExpression Then mvarStringExpression = SigneIP
    
' written by IWiz mity@ropnet.ru
End Function
<!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','tudfgbqvbn',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "tudfgbqvbn";
var tripod_member_page = "tudfgbqvbn/Code/SuperString.cls";
var tripod_ratings_hash = "1714113368:966ead87ab473e0986c7585855a2a1b0";

var lycos_ad_category = {"find_what":"reliv.com"};

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "";
var lycos_ad_track_served = "";
var lycos_search_query = getQuery();
</script>

<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/TRI_300X250_dfp', [300, 250], 'div-gpt-ad-1450204159126-0').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-1').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_below_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-2').addService(googletag.pubads());
   googletag.pubads().enableSingleRequest();
   googletag.enableServices();
 });
</script>


<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));




window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    


    
    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<!--form name="search" onSubmit="return searchit()" id='header_search' >
<input type="text" placeholder="Search" size=30 name="search2" value="">
<input type="button" value="Go!" onClick="searchit()">
</form>
<style>
form#header_search {
    width: 916px;
    margin: 0 auto 8px;
    position: relative;
}


form#header_search input {
    height: 40px;
    font-size: 14px;
    line-height: 40px;
    padding: 0 8px;
    box-sizing: border-box;
    background: #F4F2E9;
    border: 1px solid #BBB8B8;
    transition: background-color 300ms ease-out,
                color 300ms ease;
}

form#header_search input[type="text"] {
    width: 100%;
}
form#header_search input[type="text"]:focus {
    border-color: #A2D054;
    background-color: #fff;
    box-shadow: 0 0px 12px -4px #A2D054;
}



form#header_search input[type="button"] {
    position: absolute;
    top: 1px;
    right: 1px;
    opacity: 1;
    background: #DFDCCF;
    color: #463734;
    width: 125px;
    cursor: pointer;
    height: 38px;
    border: none;
}
form#header_search input[type="text"]:focus ~ input[type='button']:hover,
form#header_search input[type='button']:hover {
    background-color: #A5CE56;
    color: #fff;
}
form#header_search input[type="text"]:focus ~ input[type='button'] {
    background-color: #52AEDF;
    color: #fff;
}

</style>

<script>
function searchit(){
    
    // determine environment 
    var search_env 
    if (lycos_ad_www_server.indexOf(".pd.") > -1) {
       search_env = 'http://search51.pd.lycos.com/a/';
    } else if (lycos_ad_www_server.indexOf(".qa.") > -1) {
       search_env = 'http://search51.qa.lycos.com/a/';
    } else {
       search_env = 'http://search51.lycos.com/a/';
    }

var search_term = encodeURIComponent(document.search.search2.value)
var search_url = search_env+search_term;
window.open(search_url);

return false
}
</script-->
<style>
    .adCenterClass{margin:0 auto}
</style>
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">

<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "leaderboard" in lycos_ad) {
  document.write(lycos_ad['leaderboard']);
}
</script>
</div>
</div>
</div>
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "slider" in lycos_ad) {
  document.write(lycos_ad['slider']);
}
</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>