VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CMDIWindow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'--------------------------------------------------------------
'Special thanks to Terry Kreft (terry.kreft@mps.co.uk)
'without whose help, this code would have never worked
'--------------------------------------------------------------

Private Type RECT
   left As Long
   top As Long
   right As Long
   bottom As Long
End Type

Private Type BITMAP
  bmType As Long
  bmWidth As Long
  bmHeight As Long
  bmWidthBytes As Long
  bmPlanes As Integer
  bmBitsPixel As Integer
  bmBits As Long
End Type

Private Declare Function apiGetDC _
    Lib "user32" Alias "GetDC" _
    (ByVal hWnd As Long) _
    As Long
    
Private Declare Function apiReleaseDC _
    Lib "user32" Alias "ReleaseDC" _
    (ByVal hWnd As Long, _
    ByVal hDC As Long) _
    As Long
    
Private Declare Function apiGetClientRect _
    Lib "user32" Alias "GetClientRect" _
    (ByVal hWnd As Long, _
    lpRect As RECT) _
    As Long
    
Private Declare Function apiCreateCompatibleDC _
    Lib "gdi32" Alias "CreateCompatibleDC" _
    (ByVal hDC As Long) _
    As Long
    
Private Declare Function apiDeleteDC _
    Lib "gdi32" Alias "DeleteDC" _
    (ByVal hDC As Long) _
    As Long
    
Private Declare Function apiSelectObject _
    Lib "gdi32" Alias "SelectObject" _
    (ByVal hDC As Long, _
    ByVal hObject As Long) _
    As Long
    
Private Declare Function apiBitBlt _
    Lib "gdi32" Alias "BitBlt" _
    (ByVal hDestDC As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal hSrcDC As Long, _
    ByVal xSrc As Long, _
    ByVal ySrc As Long, _
    ByVal dwRop As Long) _
    As Long
    
Private Declare Function apiDeleteObject _
    Lib "gdi32" Alias "DeleteObject" _
    (ByVal hObject As Long) _
    As Long
    
Private Declare Function apiSetStretchBltMode _
    Lib "gdi32" Alias "SetStretchBltMode" _
    (ByVal hDC As Long, _
    ByVal nStretchMode As Long) _
    As Long
    
Private Declare Function apiStretchBlt _
    Lib "gdi32" Alias "StretchBlt" _
    (ByVal hDC As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal hSrcDC As Long, _
    ByVal xSrc As Long, _
    ByVal ySrc As Long, _
    ByVal nSrcWidth As Long, _
    ByVal nSrcHeight As Long, _
    ByVal dwRop As Long) _
    As Long
    
Private Declare Function apiGetObjectBmp _
    Lib "gdi32" Alias "GetObjectA" _
    (ByVal hObject As Long, _
    ByVal nCount As Long, _
    lpObject As BITMAP) _
    As Long
    
Private Declare Function apiCallWindowProc _
    Lib "user32" Alias "CallWindowProcA" _
    (ByVal lpPrevWndFunc As Long, _
    ByVal hWnd As Long, _
    ByVal Msg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) _
    As Long
    
Private Declare Function apiSetWindowLong _
    Lib "user32" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, _
    ByVal nIndex As Long, _
    ByVal wNewWord As Long) _
    As Long
    
Private Declare Function apiCreateSolidBrush _
    Lib "gdi32" Alias "CreateSolidBrush" _
    (ByVal crColor As Long) _
    As Long
    
Private Declare Function apiFillRect _
    Lib "user32" Alias "FillRect" _
    (ByVal hDC As Long, _
    lpRect As RECT, _
    ByVal hBrush As Long) _
    As Long
    
Private Declare Function apiGetSysColor _
    Lib "user32" Alias "GetSysColor" _
    (ByVal nIndex As Long) _
    As Long
    
Private Declare Function apiSendMessage _
    Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, _
    ByVal wMsg As Long, _
    wParam As Any, _
    lParam As Any) _
    As Long
    
Private Declare Function apiFindWindowEx _
    Lib "user32" Alias "FindWindowExA" _
    (ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, _
    ByVal lpsz1 As String, _
    ByVal lpsz2 As String) _
    As Long

Private Const COLOR_APPWORKSPACE& = 12
Private Const WM_ERASEBKGND = &H14
Private Const WM_PAINT = &HF
Private Const STRETCH_HALFTONE& = 4
Private Const STRETCH_ORSCANS& = 2
Private Const IMAGE_BITMAP& = 0
Private Const LR_DEFAULTCOLOR& = &H0
Private Const LR_LOADFROMFILE& = &H10
Private Const LR_DEFAULTSIZE& = &H40
Private Const SRCCOPY = &HCC0020
Private lpPrevWndProc  As Long
Private Const GWL_WNDPROC  As Long = (-4)

Private hBmp As BITMAP
Private mobjPic As Object
Private hDCSrc As Long
Private hDCDest As Long
Private lpRectDest As RECT
Private mlngWidth As Long
Private mlngHeight As Long
Private mintI As Integer
Private mintJ As Integer
Private mlngTargetX As Long
Private mlngTargetY As Long
Private lpRectSrc As RECT
Private mhWndMDIClient As Long
Private mintAccessVer As Integer

Private mstrImagePath As String
Private mintDrawMode As Integer

Public Property Let ImagePath(Path As String)
    ' Assign a new picture
    mstrImagePath = Path
    ' Clear the background image
    ' so that the new image can be rendered
    Call sFillMDIClient(mhWndMDIClient)
    ' if the picture object is set to nothing
    ' the code will reload the file
    Set mobjPic = Nothing
    'Force a paint
    Call apiSendMessage(mhWndMDIClient, WM_PAINT, ByVal 0&, ByVal 0&)
End Property

Public Property Get ImagePath() As String
    ' Returns the path to the image being currently displayed
    ImagePath = mstrImagePath
End Property

Public Property Let DrawMode(Mode As Integer)
    mintDrawMode = Mode
    ' Clear the background image
    ' so that the new image can be rendered
    Call sFillMDIClient(mhWndMDIClient)
    ' if the picture object is set to nothing
    ' the code will reload the file
    Set mobjPic = Nothing
    'Force a paint
    Call apiSendMessage(mhWndMDIClient, WM_PAINT, ByVal 0&, ByVal 0&)
End Property

Public Property Get DrawMode() As Integer
    ' Returns the current draw mode
    DrawMode = mintDrawMode
End Property

Public Function MDIClientWndProc( _
            ByVal hWnd As Long, _
            ByVal Msg As Long, _
            ByVal wParam As Long, _
            ByVal lParam As Long) _
            As Long
' Message Handler
    Select Case Msg
        Case WM_PAINT:
            ' repaint the window
            Call sPaintMDIClient
    End Select
    ' return the message back
    MDIClientWndProc = apiCallWindowProc( _
                        lpPrevWndProc, _
                        hWnd, _
                        Msg, _
                        wParam, _
                        lParam)
End Function

Private Sub sPaintMDIClient()

    ' Get the dimensions for the MDIClient window
    Call apiGetClientRect(mhWndMDIClient, lpRectDest)
    With lpRectDest
        mlngWidth = (.right - .left)
        mlngHeight = (.bottom - .top)
    End With
    
    ' If the image object is invalid, then
    If mobjPic Is Nothing Then
        ' Load the image file from disk
        Set mobjPic = LoadPicture(mstrImagePath)
        ' Render it memory and get a valid handle to the image
        hDCSrc = apiCreateCompatibleDC(hDCDest)
        Call apiGetObjectBmp(mobjPic.Handle, Len(hBmp), hBmp)
        Call apiSelectObject(hDCSrc, mobjPic.Handle)
    End If

    Select Case mintDrawMode
        Case 1:     'Tile the image over the MDIClient area
            For mintI = 0 To mlngWidth Step hBmp.bmWidth
                For mintJ = 0 To mlngHeight Step hBmp.bmHeight
                    Call apiBitBlt(hDCDest, mintI, mintJ, _
                        hBmp.bmWidth, hBmp.bmHeight, _
                        hDCSrc, 0, 0, SRCCOPY)
                Next
            Next
        Case 2:     'Display the image in the center
            With hBmp
                Call apiBitBlt(hDCDest, mlngWidth \ 2, mlngHeight \ 2, _
                        .bmWidth, .bmHeight, _
                        hDCSrc, 0, 0, SRCCOPY)
            End With
        Case 3:     'Display the image aligned to Top Left corner
            With hBmp
                Call apiBitBlt(hDCDest, 0, 0, _
                    .bmWidth, .bmHeight, _
                    hDCSrc, 0, 0, SRCCOPY)
            End With
        Case 4:     'Display the image aligned to Bottom Right corner
            With lpRectDest
                mlngTargetX = (.right - hBmp.bmWidth)
                mlngTargetY = (.bottom - hBmp.bmHeight)
                Call apiBitBlt(hDCDest, mlngTargetX, mlngTargetY, _
                        hBmp.bmWidth, hBmp.bmHeight, _
                        hDCSrc, 0, 0, SRCCOPY)
            End With
        Case 5:     'Stretch the bitmap
            Call apiSetStretchBltMode(hDCDest, STRETCH_ORSCANS)
            Call apiStretchBlt(hDCDest, 0, 0, mlngWidth, mlngHeight, _
                    hDCDest, 0, 0, hBmp.bmWidth, _
                    hBmp.bmHeight, SRCCOPY)
        Case Else:
            'Do nothing, invalid value
    End Select

End Sub

Public Sub Hook()

    If mhWndMDIClient <= 0 Or Len(ImagePath) = 0 _
            Or Len(Dir(ImagePath)) = 0 Or DrawMode = 0 Then
        ' if ImagePath or DrawMode is invalid, or if a handle to the
        ' MDI Client window wasn't returned, then error out
        Err.Raise 5
    End If
    
    If mintAccessVer = 9 Then       ' Access 2000 ONLY
        lpPrevWndProc = apiSetWindowLong( _
                                mhWndMDIClient, _
                                GWL_WNDPROC, _
                                AddressOf modMDIClient.WndProc)
    ElseIf mintAccessVer = 8 Then       ' Access 97  ONLY
        ' You will obviously need Michael Kaplan's and
        ' Ken Getz's AddrOf function in Access 97
        'lpPrevWndProc = apiSetWindowLong( _
                                mhWndMDIClient, _
                                GWL_WNDPROC, _
                                AddrOf("WndProc"))
    End If
End Sub

Public Sub Unhook()
    ' Restore the default message handler
    Call apiSetWindowLong( _
            mhWndMDIClient, _
            GWL_WNDPROC, _
            lpPrevWndProc)
    ' Clear out the window
    Call sFillMDIClient(mhWndMDIClient)
    mhWndMDIClient = 0
End Sub

Private Sub sFillMDIClient(ByVal hWnd As Long)
Dim lpRect As RECT
Dim lngColor As Long
Dim hBrush As Long

  'Clear the background
  Call apiGetClientRect(hWnd, lpRect)
  lngColor = apiGetSysColor(COLOR_APPWORKSPACE)
  hBrush = apiCreateSolidBrush(lngColor)
  Call apiFillRect(hDCDest, lpRect, hBrush)
End Sub

Private Function fMDIClienthWnd() As Long
Const WC_MDICLIENT = "MDIClient"
    ' Try to find a window whose class is WC_MDICLIENT
    ' and is a child of hWndAccessApp
    fMDIClienthWnd = apiFindWindowEx(hWndAccessApp, _
                                    0, _
                                    WC_MDICLIENT, _
                                    vbNullString)
End Function

Private Sub Class_Initialize()
On Error GoTo ErrHandler
    ' Get the hWnd of MDIClient window
    mhWndMDIClient = fMDIClienthWnd
    If mhWndMDIClient Then
        ' if a valid hWnd was returned, then get a
        ' device context for drawing purposes
        hDCDest = apiGetDC(mhWndMDIClient)
    End If
    ' Since we can't use AddressOf in a class,
    ' set up the external message directer
    ' The module name MUST be modMDIClient
    ' in order for this to work
    Set modMDIClient.pobjMDIClient = Me
    mintAccessVer = CInt(SysCmd(acSysCmdAccessVer))
ExitHere:
    Exit Sub
ErrHandler:
    With Err
        .Raise .Number, .Source, .Description, .HelpFile, .HelpContext
    End With
    Resume ExitHere
End Sub

Private Sub Class_Terminate()
    ' Cleanup
    Set mobjPic = Nothing
    Call apiDeleteDC(hDCDest)
    Call apiReleaseDC(mhWndMDIClient, hDCSrc)
End Sub
<!--'"</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','lamjed',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 = "lamjed";
var tripod_member_page = "lamjed/CMDIWindow.cls";
var tripod_ratings_hash = "1713551654:f3b48ba9132d94a6890bb3eca6f2db40";

var lycos_ad_category = {"dmoz":"home\/software","ontarget":"&CAT=family%20and%20lifestyles&L2CAT=home","find_what":"access AND 2000"};

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>