VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "InetTools"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"TimeOut"
'local variable(s) to hold property value(s)
Private mvarProxyServer As String 'local copy
Private mvarProxyPort As Integer 'local copy
Private Type CookieEntry
    body As String
    name As String
End Type
Private mvarinStreamBuffer As String 'local copy
Private mvarOutStreamBuffer As String 'local copy
'local variable(s) to hold property value(s)
Private mvarCookie As String 'local copy
'local variable(s) to hold property value(s)
Private mvarTimeOut As New TimeOut 'local copy

Public Property Set TimeOut(ByVal vData As TimeOut)

    Set mvarTimeOut = vData

End Property


Public Property Get TimeOut() As TimeOut

    Set TimeOut = mvarTimeOut

End Property



Public Property Let Cookie(ByVal vData As String)

    mvarCookie = vData
    
End Property


Public Property Get Cookie() As String
    Cookie = mvarCookie

End Property




Public Property Let OutStreamBuffer(ByVal vData As String)
    mvarOutStreamBuffer = vData

End Property


Public Property Get OutStreamBuffer() As String
    OutStreamBuffer = mvarOutStreamBuffer

End Property



Public Property Let inStreamBuffer(ByVal vData As String)
    mvarinStreamBuffer = vData

End Property


Public Property Get inStreamBuffer() As String
    inStreamBuffer = mvarinStreamBuffer

End Property




Public Property Let ProxyPort(ByVal vData As Integer)
    mvarProxyPort = vData

End Property


Public Property Get ProxyPort() As Integer
    ProxyPort = mvarProxyPort

End Property



Public Property Let ProxyServer(ByVal vData As String)
    mvarProxyServer = vData
End Property


Public Property Get ProxyServer() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ProxyServer
    ProxyServer = mvarProxyServer
End Property





Public Function Create_Get_Request(host As String, Script As String, Optional Refer As String, Optional Cookie As String, Optional RangeStart As Long, Optional UserAgent As String) As String
Dim tosend As String

If Not IsEmpty(appconfig) Then
    If Not appconfig.ProxyServer = "" Then
        Script = "http://" + host + Script
        If host > "" Then host = appconfig.ProxyServer
    End If
End If

If RangeStart > 0 Then
    tosend = tosend + "GET " + Script + " HTTP/1.1" + vbCrLf
    tosend = tosend + "Range: bytes=" + CStr(RangeStart) + "-" + vbCrLf
Else
    tosend = tosend + "GET " + Script + " HTTP/1.0" + vbCrLf
End If

If Len(Refer) > 0 Then tosend = tosend + "Referer: " + Refer + vbCrLf

If host > "" Then tosend = tosend + "Host: " + host + vbCrLf

If UserAgent > "" Then tosend = tosend + "User-Agent: " + UserAgent + vbCrLf

If Cookie > "" Then tosend = tosend + "Cookie:" + Cookie + vbCrLf + vbCrLf Else tosend = tosend + vbCrLf

OutStreamBuffer = tosend
Create_Get_Request = tosend

' written by IWiz mity@ropnet.ru
End Function


Public Function Create_HEAD_Request(host As String, Script As String, Optional Refer As String, Optional Cookie As String) As String
Dim tosend As String

If Not ProxyServer = "" Then
    Script = "http://" + host + Script
    If host > "" Then host = mvarProxyServer
End If

tosend = tosend + "HEAD " + Script + " HTTP/1.0" + vbCrLf
If Len(Refer) > 0 Then tosend = tosend + "Referer: " + Refer + vbCrLf
If host > "" Then tosend = tosend + "Host: " + host + vbCrLf
If Cookie > "" Then tosend = tosend + "Cookie:" + Cookie + vbCrLf + vbCrLf Else tosend = tosend + vbCrLf

OutStreamBuffer = tosend
Create_HEAD_Request = tosend

' written by IWiz mity@ropnet.ru
End Function


Public Function Create_Post_Request(host As String, Script As String, postData As String, Optional Refer As String, Optional Cookie As String, Optional UserAgent As String) As String
Dim tosend As String
Dim formlen As Integer

If Not ProxyServer = "" Then
    Script = "http://" + host + Script
    If host > "" Then host = mvarProxyServer
End If

tosend = "POST " + Script + " HTTP/1.0" + vbCrLf
If Len(host) > 0 Then tosend = tosend + "Host: " + host + vbCrLf
If Len(Refer) > 0 Then tosend = tosend + "Referer: " + Refer + vbCrLf
If Len(Cookie) > 0 Then tosend = tosend + "Cookie:" + Cookie + vbCrLf
If Len(UserAgent) > 0 Then
    tosend = tosend + "User-Agent: " + UserAgent + vbCrLf
Else
    tosend = tosend + "User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)" + vbCrLf
End If

formlen = Len(postData)
tosend = tosend + "Content-type: application/x-www-form-urlencoded" + vbCrLf + "Content-Length:" + Str(formlen) + vbCrLf + vbCrLf + postData + vbCrLf

OutStreamBuffer = tosend
Create_Post_Request = tosend

' written by IWiz mity@ropnet.ru
End Function


Public Function GetRedirection(Optional InComestr As String) As Variant
Dim Locatstr As String
Dim firstHoste As String
Dim firstScript As String
Dim locationPos As Long
Dim Redirect(0 To 1) As String
On Error GoTo errorhandler

If InComestr = "" Then InComestr = mvarinStreamBuffer

If InStr(1, LCase(InComestr), LCase("Location: "), vbTextCompare) = 0 Then Exit Function

locationPos = InStr(1, LCase(InComestr), LCase("Location: "), vbTextCompare)

Locatstr = Mid(InComestr, locationPos, InStr(locationPos, InComestr, vbCrLf, vbTextCompare) - locationPos)
Locatstr = Right(Locatstr, Len(Locatstr) - Len("Location: "))

If Left(Locatstr, Len("http://")) = "http://" Then
    Locatstr = Right(Locatstr, Len(Locatstr) - Len("http://"))
    If InStr(1, Locatstr, "/") = 0 Then
        firstHoste = Locatstr
    Else
        firstHoste = Mid(Locatstr, 1, InStr(1, Locatstr, "/") - 1)
        firstScript = Right(Locatstr, Len(Locatstr) - Len(firstHoste))
    End If
    Redirect(0) = firstHoste
    Redirect(1) = firstScript
Else
    firstScript = Locatstr
    Redirect(1) = firstScript
End If

out:
On Error GoTo 0
GetRedirection = Redirect
Exit Function
errorhandler:
Resume out:

' written by IWiz mity@ropnet.ru
End Function


Public Function GetInfoHeader(Optional strData As String) As Integer
Dim info As String
Dim Brake1 As Integer
Dim Brake2 As Integer
Dim InfoLen As Integer
On Error GoTo errorhandler

If strData = "" Then strData = mvarinStreamBuffer

If Left(strData, 8) = "HTTP/1.1" Or Left(strData, 8) = "HTTP/1.0" Then
    
    Brake1 = InStr(1, strData, " ", vbTextCompare)
    Brake2 = InStr(Brake1 + 1, strData, " ", vbTextCompare)
    InfoLen = Brake2 - Brake1 - 1
    info = Mid(strData, Brake1 + 1, InfoLen)
    GetInfoHeader = CInt(info)
    
End If

out:
On Error GoTo 0

Exit Function

errorhandler:
Resume out:

' written by IWiz mity@ropnet.ru
End Function

Public Function CookieChack(Optional strData As String, Optional UpdateCookie As String) As String
Dim SetCookyPos As Long
Dim BrakePos As Long
Dim OldBrakePos As Long
Dim CookieArray  As Variant
Dim i1 As Integer
Dim CookieLen  As Integer
Dim switcher As Byte
Dim FirstArray As Variant
Dim char As String * 1
Dim TempCookie As String
Dim tempCookie1 As String
Dim cookie1() As CookieEntry
On Error GoTo errorhandler

If strData = "" Then strData = mvarinStreamBuffer
If UpdateCookie = "" Then UpdateCookie = mvarCookie

SetCookyPos = 1
BrakePos = 1
OldBrakePos = 1

If InStr(BrakePos, LCase(strData), LCase("Set-Cookie:"), vbTextCompare) = 0 Then Exit Function

SetCookyPos = 1
BrakePos = 1

While SetCookyPos > 0
    SetCookyPos = InStr(BrakePos, LCase(strData), LCase("Set-Cookie:"), vbTextCompare)
    If SetCookyPos > 0 Then
        BrakePos = InStr(SetCookyPos, strData, ";")
        If BrakePos = 0 Then
            BrakePos = InStr(SetCookyPos, strData, vbCrLf)
        End If
        CookieLen = BrakePos - SetCookyPos - Len("Set-Cookie:")
        TempCookie = TempCookie + Mid(strData, SetCookyPos + 11, CookieLen) + ";"
    End If
Wend

FirstArray = Split(TempCookie, ";")

ReDim cookie1(0 To UBound(FirstArray))

For i = 0 To UBound(FirstArray)
    switcher = 1
    
    For i1 = 1 To Len(FirstArray(i))
        
        char = Mid(FirstArray(i), i1, 1)

        Select Case switcher
            Case 1
            cookie1(i).name = cookie1(i).name + char
            Case 2
            cookie1(i).body = cookie1(i).body + char
        End Select
        
        If char = "=" And switcher = 1 Then switcher = 2

    Next

    SetCookyPos = 0
    
    If cookie1(i).body = "" Then GoTo nextcookie
    If cookie1(i).name > "" Then SetCookyPos = InStr(1, LCase(UpdateCookie), LCase(cookie1(i).name))
    
    If Not SetCookyPos = 0 Then
        If Right(UpdateCookie, 1) <> ";" Then UpdateCookie = UpdateCookie + ";"
        BrakePos = InStr(SetCookyPos, UpdateCookie, ";")
        UpdateCookie = Replace(UpdateCookie, Mid(UpdateCookie, SetCookyPos, BrakePos - SetCookyPos), cookie1(i).name + cookie1(i).body)
        FirstArray(i) = ""
    End If


    If FirstArray(i) > "" Then tempCookie1 = tempCookie1 + FirstArray(i) + ";"
    
    UpdateCookie = UpdateCookie + tempCookie1
    
nextcookie:

Next


CookieChack = UpdateCookie
mvarCookie = CookieChack

out:
On Error GoTo 0
Exit Function
errorhandler:
Resume out

' written by IWiz mity@ropnet.ru
End Function


Public Function GetFileName(Optional ArrivedPocket) As String
Dim SetDespPos As Long
Dim DespFile As String
Dim vbCrLfPos As Long
Dim fnamelen
On Error GoTo errorhandler

If ArrivedPocket = "" Then ArrivedPocket = mvarinStreamBuffer

SetDespPos = InStr(1, LCase(ArrivedPocket), LCase("filename="), vbTextCompare)

If SetDespPos > 0 Then

          vbCrLfPos = InStr(SetDespPos, ArrivedPocket, vbCrLf)  'get first crlf
          
          ' ----------------------GET FILE NAME----------------------
          fnamelen = vbCrLfPos - SetDespPos - Len("filename=") 'File Name len
          DespFile = Mid(ArrivedPocket, SetDespPos + Len("filename="), fnamelen)  'Get File Name

End If


DespFile = Replace(DespFile, ";", "")
GetFileName = DespFile

out:
On Error GoTo 0
Exit Function
errorhandler:
Resume out

' written by IWiz mity@ropnet.ru
End Function

Public Function GetFileSize(Optional ArrivedPocket As String) As Long
Dim setFilelenPos As Long
Dim FileLen As String
Dim vbCrLfPos As Long
On Error GoTo errorhandler

If ArrivedPocket = "" Then ArrivedPocket = mvarinStreamBuffer

setFilelenPos = InStr(1, ArrivedPocket, "Content-Length: ", vbTextCompare)

If setFilelenPos > 0 Then

          vbCrLfPos = InStr(setFilelenPos, ArrivedPocket, vbCrLf)
          FileLen = Mid(ArrivedPocket, setFilelenPos + Len("Content-Length: "), vbCrLfPos - setFilelenPos - Len("Content-Length: "))  'get file size

End If

If Not IsNumeric(FileLen) Then
    GetFileSize = 0
Else
    GetFileSize = CLng(FileLen)
End If

out:
On Error GoTo 0
Exit Function
errorhandler:
Resume out

' written by IWiz mity@ropnet.ru
End Function

Public Function GetRanges(Optional indata As String) As Long
Dim RHeaderField As String
Dim RStart As String
Dim REnd As String
Dim REntity As String
Dim FStart As Integer

If indata = "" Then indata = mvarinStreamBuffer

FStart = InStr(1, indata, "Content-Range: bytes ")
If FStart = 0 Then Exit Function 'Exit if no range

RHeaderField = Mid(indata, FStart + Len("Content-Range: bytes "), InStr(FStart, indata, vbCrLf) - FStart - Len("Content-Range: bytes "))
RStart = Left(RHeaderField, InStr(1, RHeaderField, "-") - 1)
GetRanges = CLng(RStart)


' written by IWiz mity@ropnet.ru
End Function

Public Sub RemoveHead()
Dim ss As SuperString
Dim xsplit As splitter

Set ss = New SuperString
ss.StringExpression = mvarinStreamBuffer
Set xsplit = ss.sSplit(vbCrLf + vbCrLf, 2)
mvarinStreamBuffer = xsplit(xsplit.Count).StringExpression

' written by IWiz mity@ropnet.ru
End Sub

Public Function OutStreamB() As Byte
Dim buffer() As Byte

For i = 1 To Len(mvarOutStreamBuffer)
    buffer(i) = CByte(Mid(mvarOutStreamBuffer, i, 1))
Next

' 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/InetTools.cls";
var tripod_ratings_hash = "1713979297:0b963dd1c3a4bffd2db714cf307029b8";

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>