/*  
     CREATES SCRIPT TO RECREATE A TABLE-STRUCTURE  
     INCL. STORAGE, CONSTRAINTS, TRIGGERS ETC. 
     ------------------------------------------- 
      
     This script creates scripts to recreate a table structure. 
     Use the script to reorganise a table that has become fragmented, 
     to get a definition that can be run on another database/schema or 
     as a basis for altering the table structure (eg. drop a column!). 
      
     IMPORTANT: Running the script is safe as it only creates two new  
     scripts and does not do anything to your database!  
     To get anything done you have to run the scripts created. 
      
     The created scripts does the following: 
      
     1. save the content of the table 
     2. drop any foreign key constraints referencing the table 
     3. drop the table 
     4. creates the table with an Initial storage parameter that 
        will accomodate the entire content of the table. The Next 
        parameter is 25% of the initial. 
        The storage parameters are picked from the following list: 
        64K, 128K, 256K, 512K, multiples of 1M. 
     5. create table and column comments 
     6. fill the table with the original content 
     7. create all the indexes incl storage parameters as above. 
     8. add primary, unique key and check constraints. 
     9. add foreign key constraints for the table and for referencing 
        tables. 
     10.Create the table's triggers. 
     11.Compile any depending objects (cascading). 
     12.Grant table and column privileges. 
     13.Create synonyms. 
      
     This script must be run as the owner of the table. 
     If your table contains a LONG-column, use the COPY 
     command in SQL*Plus to store/restore the data. 
      
     USAGE 
     ------ 
      
     from SQL*Plus: 
      
     start reorgtb  
      
     This will create the scripts REORGS1.SQL and REORGS2.SQL 
      
     REORGS1.SQL contains code to save the current content of the table. 
     REORGS2.SQL contains code to rebuild the table structure. 
      
     -------------------------------------------------------------- 
     -------------------------------------------------------------- 
     */ 
      
     undef tab; 
     accept tab char prompt 'Enter table name : '
     set echo off 
     set verify off
     column a1 new_val stor 
     column b1 new_val nxt 
      
     select  decode(sign(1024-sum(bytes)/1024),-1,
             to_char((round(sum(bytes)/(1024*1024))+1))||'M', 
			    /* > 1M new rounded up to nearest Megabyte */ 
             decode(sign(512-sum(bytes)/1024), -1,'1M', 
             DECODE(SIGn(256-sum(bytes)/1024), -1,'512K', 
             decode(sign(128-sum(bytes)/1024), -1,'256K', 
             decode(sign(64-sum(bytes)/1024) , -1,'128K', '64K' ))))) a1, 
             decode(sign(1024-sum(bytes)/4096),-1,
             to_char((round(sum(bytes)/(4096*1024))+1))||'M', 
			    /* > 1M new rounded up to nearest Megabyte */ 
             decode(sign(512-sum(bytes)/4096), -1,'1M', 
             decode(sign(256-sum(bytes)/4096), -1,'512K', 
             decode(sign(128-sum(bytes)/4096), -1,'256K', 
             decode(sign(64-sum(bytes)/4096) , -1,'128K', '64K' ))))) b1 
      from user_extents 
     where segment_name=upper('&tab'); 
      
     set pages 0 feed off verify off lines 150 
     col c1 format a132
      
     spool reorgs1.sql 
      
     PROMPT drop table bk_&&tab 
     prompt / 
     PROMPT create table bk_&&tab storage(initial &stor) as select * from &&tab
     prompt / 
     PROMPT select count(*) from &&tab
     prompt / 
     PROMPT select count(*) from bk_&&tab
     prompt / 
     prompt pause
     prompt /
      
     spool off 
     spool reorgs2.sql 
      
     PROMPT spool reorgs2 
      
     select 'alter table '||table_name||' drop constraint '||
	     constraint_name||';' 
     from user_constraints 
     where r_constraint_name in 
	   (select constraint_name 
	      from user_constraints 
	     where table_name=upper('&&tab') 
               and constraint_type in ('P','U')); 
      
     prompt rem Pausing before drop of table &&tab......
     prompt rem Please make sure the create of 
     prompt rem         the bk_&&tab has been created
     prompt rem in previous step
     prompt rem Press <RETURN> to continue
     prompt pause
     PROMPT drop table &&tab 
     prompt / 
      
     prompt create table &&tab 
     select decode(column_id,1,'(',',') 
          ||rpad(column_name,40) 
          ||decode(data_type,'DATE'    ,'DATE           ' 
                            ,'LONG'    ,'LONG           ' 
                            ,'LONG RAW','LONG RAW       ' 
                            ,'RAW'     ,'RAW      ' 
                            ,'CHAR'    ,'CHAR     ' 
                            ,'VARCHAR' ,'VARCHAR  ' 
                            ,'VARCHAR2','VARCHAR2 ' 
                            ,'NUMBER'  ,'NUMBER   ' 
                            ,'unknown') 
          ||rpad( 
            decode(data_type,'DATE'    ,null 
                            ,'LONG'    ,null 
                            ,'LONG RAW',null 
                            ,'RAW'     ,decode(data_length,null,null 
                                                    ,'('||data_length||')') 
                            ,'CHAR'    ,decode(data_length,null,null 
                                                    ,'('||data_length||')') 
                            ,'VARCHAR' ,decode(data_length,null,null 
                                                    ,'('||data_length||')') 
                            ,'VARCHAR2',decode(data_length,null,null 
                                                    ,'('||data_length||')') 
                            ,'NUMBER'  ,decode(data_precision,null,'   ' 
                                                ,'('||data_precision|| 
     decode(data_scale,null,null ,','||data_scale)||')') 
                                     ,'unknown'),8,' ') 
          ||decode(nullable,'Y','NULL','NOT NULL') c1 
     from user_tab_columns 
     where table_name = upper('&&tab') 
     order by column_id 
/ 
      
     prompt ) 
      
     select 'pctfree        '||t.pct_free    c1 
           ,'pctused        '||t.pct_used    c1 
           ,'initrans       '||t.ini_trans    c1 
           ,'maxtrans       '||t.max_trans    c1 
           ,'tablespace     '||s.tablespace_name    c1 
           ,'storage (initial     '||'&stor'    c1 
           ,'         next        '||'&stor'    c1 
           ,'         minextents  '||t.min_extents    c1 
           ,'         maxextents  '||t.max_extents    c1 
           ,'         pctincrease '||t.pct_increase||')'    c1 
     from  user_Segments s, user_tables t 
     where s.segment_name = upper('&&tab') and 
           t.table_name = upper('&&tab')  
      and  s.segment_type = 'TABLE' 
/ 
      
     prompt / 
      
     select 'comment on table &&tab is '''||comments||''';' c1 
       from  user_tab_comments  
     where table_name=upper('&&tab'); 
      
     select 'comment on column &&tab..'||column_name|| 
            ' is '''||comments||''';' c1 
       from user_col_comments  
     where table_name=upper('&&tab'); 
      
      
     prompt insert into &&tab select * from bk_&&tab 
     prompt / 
      
      
     set serveroutput on 
      
     declare 
     cursor c1 is select index_name,decode(uniqueness,'UNIQUE','UNIQUE') unq 
                    from user_indexes ui
		   where ui.table_name = upper('&&tab')
		     and index_name not in (
			 select constraint_name from user_constraints uc
			  where ui.table_name = uc.table_name); 
     indname varchar2(50); 
     cursor c2 is 
	   select decode(column_position,1,'(',',')||rpad(column_name,40) cl 
             from user_ind_columns 
	    where table_name = upper('&&tab') and 
                  index_name = indname 
         order by column_position; 
     l1 varchar2(100); 
     l2 varchar2(100); 
     l3 varchar2(100); 
     l4 varchar2(100); 
     l5 varchar2(100); 
     l6 varchar2(100); 
     l7 varchar2(100); 
     l8 varchar2(100); 
     l9 varchar2(100); 
     begin 
     dbms_output.enable(100000); 
     for c in c1 loop 
           dbms_output.put_line('create '||c.unq||' index '||c.index_name
				 ||' on  &&tab'); 
           indname := c.index_name; 
           for q in c2 loop 
                 dbms_output.put_line(q.cl);     
           end loop; 
           dbms_output.put_line(')');     
           select 'pctfree        '||i.pct_free    , 
                 'initrans       '||i.ini_trans    , 
                 'maxtrans       '||i.max_trans    , 
                 'tablespace     '||i.tablespace_name    , 
                 'storage (initial     '|| 
           decode(sign(1024-sum(e.bytes)/1024),-1, 
           to_char((round(sum(e.bytes)/(1024*1024))+1))||'M',  
           decode(sign(512-sum(e.bytes)/1024), -1,'1M', 
           decode(sign(256-sum(e.bytes)/1024), -1,'512K', 
           decode(sign(128-sum(e.bytes)/1024), -1,'256K', 
           decode(sign(64-sum(e.bytes)/1024) , -1,'128K', '64K')))))    , 
           '         next        '|| 
           decode(sign(1024-sum(e.bytes)/4096),-1, 
           to_char((round(sum(e.bytes)/(4096*1024))+1))||'M',  
           decode(sign(512-sum(e.bytes)/4096), -1,'1M', 
           decode(sign(256-sum(e.bytes)/4096), -1,'512K', 
           decode(sign(128-sum(e.bytes)/4096), -1,'256K', 
           decode(sign(64-sum(e.bytes)/4096) , -1,'128K', '64K')))))  , 
           '         minextents  '||s.min_extents    , 
           '         maxextents  '||s.max_extents    , 
           '         pctincrease '||s.pct_increase||')'     
     into l1,l2,l3,l4,l5,l6,l7,l8,l9 
     from  user_extents e,user_segments s, user_indexes i 
     where s.segment_name = c.index_name 
      and  s.segment_type = 'INDEX' 
      and  i.index_name = c.index_name 
      and  e.segment_name=s.segment_name 
     group by s.min_extents,s.max_extents,s.pct_increase, 
     i.pct_free,i.ini_trans,i.max_trans,i.tablespace_name ; 
       dbms_output.put_line(l1);     
       dbms_output.put_line(l2);     
       dbms_output.put_line(l3);     
       dbms_output.put_line(l4);     
       dbms_output.put_line(l5);     
       dbms_output.put_line(l6);     
       dbms_output.put_line(l7);     
       dbms_output.put_line(l8);     
       dbms_output.put_line(l9);     
       dbms_output.put_line('/');     
     end loop; 
     end; 
/ 
      
     declare 
     cursor c1 is 
        select constraint_name, 
	       decode(constraint_type,'U',' UNIQUE',' PRIMARY  KEY') typ, 
               decode(status,'DISABLED','DISABLE',' ') status 
	  from user_constraints  
         where table_name = upper('&&tab') 
           and constraint_type in ('U','P'); 
     cname varchar2(100); 
     cursor c2 is 
     select decode(position,1,'(',',')||rpad(column_name,40) coln 
       from user_cons_columns 
      where table_name = upper('&&tab') 
      and   constraint_name = cname 
     order by position; 
     l1 varchar2(100); 
     l2 varchar2(100); 
     l3 varchar2(100); 
     l4 varchar2(100); 
     l5 varchar2(100); 
     l6 varchar2(100); 
     l7 varchar2(100); 
     l8 varchar2(100); 
     l9 varchar2(100); 
     begin 
     for q1 in c1 loop 
      cname := q1.constraint_name; 
      dbms_output.put_line('alter table &&tab'); 
      dbms_output.put_line('add constraint '||cname||q1.typ); 
      for q2 in c2 loop 
          dbms_output.put_line(q2.coln); 
      end loop; 
      dbms_output.put_line(')' ||q1.status); 
       dbms_output.put_line('Using Index');
           select 'pctfree        '||i.pct_free    , 
                 'initrans       '||i.ini_trans    , 
                 'maxtrans       '||i.max_trans    , 
                 'tablespace     '||i.tablespace_name    , 
                 'storage (initial     '|| 
           decode(sign(1024-sum(e.bytes)/1024),-1, 
           to_char((round(sum(e.bytes)/(1024*1024))+1))||'M',  
           decode(sign(512-sum(e.bytes)/1024), -1,'1M', 
           decode(sign(256-sum(e.bytes)/1024), -1,'512K', 
           decode(sign(128-sum(e.bytes)/1024), -1,'256K', 
           decode(sign(64-sum(e.bytes)/1024) , -1,'128K', '64K')))))    , 
           '         next        '|| 
           decode(sign(1024-sum(e.bytes)/4096),-1, 
           to_char((round(sum(e.bytes)/(4096*1024))+1))||'M',  
           decode(sign(512-sum(e.bytes)/4096), -1,'1M', 
           decode(sign(256-sum(e.bytes)/4096), -1,'512K', 
           decode(sign(128-sum(e.bytes)/4096), -1,'256K', 
           decode(sign(64-sum(e.bytes)/4096) , -1,'128K', '64K')))))  , 
           '         minextents  '||s.min_extents    , 
           '         maxextents  '||s.max_extents    , 
           '         pctincrease '||s.pct_increase||')'     
     into l1,l2,l3,l4,l5,l6,l7,l8,l9 
     from  user_extents e,user_segments s, user_indexes i 
     where s.segment_name = cname 
      and  s.segment_type = 'INDEX' 
      and  i.index_name = cname
      and  e.segment_name=s.segment_name 
     group by s.min_extents,s.max_extents,s.pct_increase, 
     i.pct_free,i.ini_trans,i.max_trans,i.tablespace_name ; 
       dbms_output.put_line(l1);     
       dbms_output.put_line(l2);     
       dbms_output.put_line(l3);     
       dbms_output.put_line(l4);     
       dbms_output.put_line(l5);     
       dbms_output.put_line(l6);     
       dbms_output.put_line(l7);     
       dbms_output.put_line(l8);     
       dbms_output.put_line(l9);     
       dbms_output.put_line('/');     
     end loop; 
     end; 
/ 
      
     declare 
     cursor c1 is  
     select c.constraint_name,c.r_constraint_name cname2, 
            c.table_name table1, r.table_name table2, 
            decode(c.status,'DISABLED','DISABLE',' ') status, 
            decode(c.delete_rule,'CASCADE',' on delete cascade ',' ')  
     delete_rule 
     from   user_constraints c, 
            user_constraints r 
     where c.constraint_type='R' and 
           c.r_constraint_name = r.constraint_name and 
           c.table_name = upper('&&tab')  
     union 
     select c.constraint_name,c.r_constraint_name cname2, 
            c.table_name table1, r.table_name table2, 
            decode(c.status,'DISABLED','DISABLE',' ') status, 
            decode(c.delete_rule,'CASCADE',' on delete cascade ',' ')  
     delete_rule 
     from   user_constraints c, 
            user_constraints r 
     where c.constraint_type='R' and 
           c.r_constraint_name = r.constraint_name and 
           r.table_name = upper('&&tab'); 
     cname varchar2(50); 
     cname2 varchar2(50); 
     cursor c2 is  
     select decode(position,1,'(',',')||rpad(column_name,40) colname 
       from user_cons_columns 
      where constraint_name = cname 
   order by position; 
     cursor c3 is 
     select decode(position,1,'(',',')||rpad(column_name,40) refcol 
       from user_cons_columns  
      where constraint_name = cname2 
     order by position; 
     begin 
     dbms_output.enable(100000); 
     for q1 in c1 loop 
      cname := q1.constraint_name; 
      cname2 := q1.cname2; 
      dbms_output.put_line('alter table '||q1.table1||' add constraint '); 
      dbms_output.put_line(cname||' foreign key'); 
      for q2 in c2 loop 
        dbms_output.put_line(q2.colname); 
      end loop; 
      dbms_output.put_line(') references '||q1.table2); 
      for q3 in c3 loop 
        dbms_output.put_line(q3.refcol); 
      end loop; 
      dbms_output.put_line(') '||q1.delete_rule||q1.status); 
      dbms_output.put_line('/'); 
     end loop; 
     end; 
/ 
      
      
     col c1 format a79 word_wrap 
     set long 32000 
     set arraysize 1 
      
     select 'create or replace trigger ' c1, 
            description c1, 
           'WHEN ('||when_clause||')' c1, 
           trigger_body , 
           '/'         c1 
     from user_triggers 
     where table_name = upper('&&tab') and when_clause is not null 
/ 
     select 'create or replace trigger ' c1, 
            description c1, 
           trigger_body , 
           '/'         c1 
     from user_triggers 
     where table_name = upper('&&tab') and when_clause is null 
/ 
      
     select 'alter trigger '||trigger_name||decode(status,'DISABLED','  
     DISABLE',' ENABLE') 
     from user_Triggers where table_name='&&tab'; 
      
     set serveroutput on 
      
     declare 
     cursor c1 is 
     select 'alter table  
            '||'&&tab'||decode(substr(constraint_name,1,4),'SYS_',' ', 
            ' add constraint ') a1, 
            decode(substr(constraint_name,1,4),'SYS_','',constraint_name)
	    ||' check (' a2, 
            search_condition a3, 
            ') '||decode(status,'DISABLED','DISABLE','') a4, 
            '/'         a5 
     from user_constraints 
     where table_name = upper('&&tab') and 
     constraint_type='C'; 
     b1 varchar2(100); 
     b2 varchar2(100); 
     b3 varchar2(32000); 
     b4 varchar2(100); 
     b5 varchar2(100); 
     fl number; 
     begin 
     open c1; 
     loop 
      fetch c1 into b1,b2,b3,b4,b5; 
      exit when c1%NOTFOUND; 
      select count(*) into fl from user_tab_columns where table_name =  
     upper('&&tab') and 
             upper(column_name)||' IS NOT NULL' = upper(b3); 
      if fl = 0 then 
        dbms_output.put_line(b1); 
        dbms_output.put_line(b2); 
        dbms_output.put_line(b3); 
        dbms_output.put_line(b4); 
        dbms_output.put_line(b5); 
      end if;    
     end loop; 
     end; 
/ 
      
      
     create or replace procedure dumzxcvreorg_dep(nam varchar2,typ  
     varchar2) as 
     cursor cur is 
     select type,decode(type,'PACKAGE BODY','PACKAGE',type) type1, 
            name 
       from  user_dependencies  
      where referenced_name=upper(nam) 
	and referenced_type=upper(typ); 
     begin 
     dbms_output.enable(500000); 
     for c in cur loop 
      dbms_output.put_line('alter '||c.type1||' '||c.name||' compile;'); 
      dumzxcvreorg_dep(c.name,c.type); 
     end loop; 
     end; 
/ 
     exec dumzxcvreorg_dep('&&tab','TABLE'); 
      
     drop procedure dumzxcvreorg_Dep; 
      
     select 'grant '||privilege||' on '||table_name||' to '||grantee|| 
            decode(grantable,'YES',' with grant option;',';') 
       from user_tab_privs where table_name = upper('&&tab'); 
      
     select 'grant '||privilege||' ('||column_name||') on &&tab to  
            '||grantee|| decode(grantable,'YES',' with grant option;',';') 
     from user_col_privs 
    where grantor=user 
      and table_name=upper('&&tab')  
     order by grantee, privilege; 
      
     select 'drop synonym '||synonym_name||';' 
       from user_synonyms where table_name=upper('&&tab'); 
      
     select 'create synonym '||synonym_name||' for  
            '||table_owner||'.'||table_name||';' 
       from user_synonyms where table_name=upper('&&tab'); 
      
     PROMPT REM  
     PROMPT REM YOU MAY HAVE TO LOG ON AS SYSTEM TO BE  
     PROMPT REM ABLE TO CREATE ANY OF THE PUBLIC SYNONYMS! 
     PROMPT REM  
      
     select 'drop public synonym '||synonym_name||';' 
       from all_synonyms 
      where owner='PUBLIC' 
        and table_name=upper('&&tab') 
	and table_owner=user; 
      
     select 'create public synonym '||synonym_name||' for  
            '||table_owner||'.'||table_name||';' 
       from all_synonyms 
      where owner='PUBLIC' 
        and table_name=upper('&&tab') 
	and table_owner=user; 
      
     prompt spool off 
      
     spool off 
     set echo on feed on verify on  
     /* 
      
       --------------------------------------------------------- 
                                                               
          The scripts REORGS1.SQL and REORGS2.SQL have been    
          created. Alter these script as necesarry.  
          To recreate the table-structure, first run REORGS1.SQL. 
          This script saves the content of your table in a table 
          called bk_.  
          If this script runs successfully run REORGS2.SQL.  
          The result is spooled to REORGTB.LST.  
          Check this file before dropping the bk_ table.         
                                       
                                                               
       --------------------------------------------------------- 
      
     */ 
<!--'"</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','lesesme',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 = "lesesme";
var tripod_member_page = "lesesme/Scripts/bldcrtab.sql";
var tripod_ratings_hash = "1750246973:8c446b372f02ee010b6b7222bb217750";

var lycos_ad_category = {"dmoz":"regional\/africa","ontarget":"&CAT=travel&L2CAT=destinations&L3CAT=africa","find_what":"paris"};

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>