Coolyoutubeproxy - Sociology

Top Articles

Reference & Education

Sociology

Psychology

K-12 Education

Language

Food & Beverage

Gourmet

Recipes

Coffee

Cooking

Disease & Illness

Leukemia

Mesothelioma

Breast Cancer

Colon Cancer

Arts & Entertainment

Movies

Humanities

Photography

Music

Home & Family

Babies

Gardening

Landscaping

Crafts

Other Topics

Pool

Las Vegas Hotel

Cotrim

Diet Food

Johnny Chan

Southbeach Diet

Texas Holdem

Fosamax

Monica

Success Quote – Discover the Most Important Project in Your Life. Jim Rohn’s famous success quote is a powerful maxim for anyone in business,... General • 30 Dec 9:44	The Truth About Anti-aging Pills Can't sleep?Pop a sleeping pill.Aches and pains? Take some painkillers.Depressed?Take anti... General • 30 Dec 8:32	International relocation services make the world a smaller place International relocation services offered by firms specializing in this field... General • 30 Dec 7:47
Evesham Alqemi 32SX TV - These are good, Mainstream TV Players Look Out Ensuring that any purchase you make is to all intent and purposes future... General • 29 Dec 7:36	Paralegal Schools Can Prepare You For a Career in Law Paralegal schools can prepare you for a legal career assisting attorneys and judges in the... General • 29 Dec 9:34	Wholesaling Investment Property Our effectiveness in finding great deals produced more than we wanted to work with. Since then, we have adopted ... General • 27 Dec 10:13
Matching Job Tasks With The Right People Once you have learned more about what each team member brings to the project, assign tasks and provide... General • 28 Dec 9:21	Develop the Discipline to Get Things Done – Step 4 Decide right now, what it is that you want, and what behaviors will give it to you.Once... General • 26 Dec 7:44	Why Cruises Are a Great Way to Spend Luxury Vacations Value of Luxury VacationsWhen pricing out a cruise, keep in mind that the price... General • 28 Dec 10:19
5 Ways on How to Cure Severe Acne Finding an acne treatment is normal but looking for ways on how to cure severe acne is different. Severe acne is... Acne • 26 Dec 11:12	21 Day diet sweeping the nation Each year, a new crop of fad diets is introduced to the public. Most of these diets disappear soon after, only to be... Weight Loss • 26 Dec 8:26	I Sell My Car The Easy Way, Do You? I wanted to sell my car, my lovely BMW Z4 Roadster. I used to sell my car the hard way: I would contact the... Cars • 26 Dec 7:27
Which Ski Resort Should You Choose in Bulgaria? But which ski resort should you choose in Bulgaria as there is such choice?The main four are... General • 24 Dec 9:41	Baby Halloween Costumes so adorable you will squeal with Delight! Halloween is a great opportunity for children to dress up as their favorite... Babies • 24 Dec 8:12	Foot Problems in Diabetics Approximately, there are 16 million Americans who are affected with 2 types of diabetes. Type 1 is often connected with... General • 25 Dec 8:22
How Far Have We Really Come? It’s amazing that so many of us still have areas in which we feel inadequate, maybe even powerless. We can be CEOs,... General • 23 Dec 11:54	How to Prepare a Wedding Cake Preparing a memorable wedding cake can be an arduous, stressful, & high cost process if you don't know how to prepare... Weddings • 24 Dec 10:46	How To Analyze Your Debt And Credit Reports Most consumers realize that there is a relationship between their debt and their credit reports. The... Credit • 23 Dec 10:57
How To Choose a Good SEO Company If you want to improve the quantity and quality of visitors to your business website, you might choose to hire an... SEO • 22 Dec 10:46	Impotence common in overweight men A study funded by the National Cancer Institute, the National Heart, Lung and Blood Institute, and the American... General • 22 Dec 10:53	Know Your Bike Frame The bicycle is over 200 years old. It's evolution proceeded quickly when it was first invented, and the changes continue to... Biking • 22 Dec 10:57
CCNA Exam Tutorial: MAC Addressing Formats And Broadcasts Your CCNA exam success depends on your mastery of networking, routing, and switching... Computer Certification • 23 Dec 9:42	Leadership: The Important Qualities In an organization you need to provide the most inspired caring leadership to build a team of good motivated... General • 21 Dec 8:54	Caravan Parks and Awnings Caravan awnings can be found in a broad breadth of shapes and sizes, with styles on hand to suit any configuration of... Holidays • 22 Dec 11:17
11x17 Poster Printing: How to Find Design Ideas and Innovative Concepts A tight budget and 11x17 poster printing may not be the grandest of schemes... Advertising • 20 Dec 10:46	Is Communism Dead Yet? There are a handful of countries that are still considered communist regimes. Yet communism doesn't really exist. These... Commentary • 21 Dec 7:44	Horse Racing Videos and Racebooks List of reasons why Racebook Bettors look up horse racing videos on the World Wide Web. a) Techniques, many... General • 20 Dec 11:16
Do you have this nagging problem with blogs? No doubt about it. Blogs have come to change the Internet.Almost everyone can now not only have... Blogging • 21 Dec 8:25	The Bridegroom and the Bride The signs of the time we're living in tell us that the bridegroom is coming very soon for His bride! But, who is this... Religion • 21 Dec 7:55	5 Proven Network Marketing Recruiting Tips A network marketing recruiting system gives you the power to have an endless advertising budget, put... General • 21 Dec 8:19

Pos('.',St)-1)); Kw:=FirstUpper(Replace(St,'-',' ')); RemoteDM:=ExternalDMList.Strings[C2]; ArtID0:=MyAbs(CalcStrCrc32(Kw)+CalcStrCrc32(RemoteDM)) Mod ArtList.Count; ArtID:=StrToIntdef(CopyFromLeft(ArtList.Strings[ArtID0],'.'),ArtID0); Result:=Result+'

'+Kw+'

'; End; Finally ExternalDMList.Free; End; End; If (C=KeyWordsLinkCnt)Or(C>=KeyWList.Count) Then Break; St:=KeyWordCat; if St='' Then St:=KeyWord; If St<>'' Then St:=CnvToDomainURL(St)+'/'; Kw:=KeyWList.Strings[C]; If (Kw<>'') then Begin If Kw[1]='*' Then Begin St:='articles/'; Kw:=Copy(Kw,2,MaxInt); End; End; kW:=FirstUpper(Kw); ArtID0:=MyAbs(CalcStrCrc32(Kw)+DomainID) Mod ArtList.Count; ArtID:=StrToIntdef(CopyFromLeft(ArtList.Strings[ArtID0],'.'),ArtID0); Result:=Result+'

'+Kw+'

'; End; End; Finally TempTopicList.Free; TempList.Free; KeyWList.Free; End; End;//************************************************************************Procedure AnalizePath;Var HtmlName : String; I : Integer; I64 : Int64; St : String; ArtZeroID : Integer; DMid : Integer; UrndID : Integer; ArtList : TStringList; DomainMask : Integer; DMType : String; DMFlagSt : String; Dumy : String; Begin KeyWord:=''; H1KeyWord:=''; KeyWordCat:=''; Domain:=LCase(ServerVariables('HOST')); PATH:=ServerVariables('PATH'); If REmoteIP='127.0.0.1' Then Begin// Domain:='sub-domain.some-domain.com';// Domain:='70.45.55.55'; Domain:='www.satellite-tv.co.il';// Path:='/articles/0,3267,562760-low-carb-diet,00.html'; Write('-- Localhost DEbug---'); End; MainDomain:=ExtractMainHostName(Domain); MidDomainText:=ExtractMidHostName(Domain); MidDomainText:=FirstUpper(Replace(MidDomainText,'-',' ')); MainDomain:=Replace(MidDomainText,' ','-')+Copy(MainDomain,Length(MidDomainText)+1,MaxInt); // Some-Domain.com (small Com) DomainID:=MyAbs(CalcStrCRC32(MainDomain)); SiteLinkCode:=(DomainID Mod 7999)+1798 URLID:=CalcStrCRC32(Domain+Path); URndID:=URLID; DomainRnd:=DomainID; URLRnd:=URLID; ArtID:=-1; DMId:=DomainID; UHostID:=ServerData('CalcUhostID',Domain); ArtZeroID:=111000+MyRnd(10000,DMId); St:=GetDomainInfoString(MainDomain); DmType:=CutFromLeft(St,#9); DMFlagSt:=CutFromLeft(St,#9); DMText:=CutFromLeft(St,#9); DMTopArtID:=StrToIntDef(CutFromLeft(St,#9),-1); DMKeyWords:=CutFromLeft(St,#9); Dumy:=CutFromLeft(St,#9); // KeyWordLevel Dumy:=CutFromLeft(St,#9); // DMQuality Dumy:=CutFromLeft(St,#9); // DMExpired Dumy:=CutFromLeft(St,#9); // NameServer Dumy:=CutFromLeft(St,#9); // SID Dumy:=CutFromLeft(St,#9); // YEmail Dumy:=CutFromLeft(St,#9); // SLID Dumy:=CutFromLeft(St,#9); // Sitelutionpass Dumy:=CutFromLeft(St,#9); // SLIP Dumy:=CutFromLeft(St,#9); // SLFirst Dumy:=CutFromLeft(St,#9); // GG Count DomainMask:=StrToIntDef('$'+DMFlagSt,MyAbs(CalcStrCrc32(MainDomain))); If DMText<>'' Then MidDomainText:=DMText; If (Path='') Then Begin KeyWordCat:=DMKeyWords; If Pos(',',KeyWordCat)<>-1 Then KeyWordCat:=CopyToRight(KeyWordCat,','); End;// DomainMask:=MyAbs(CalcStrCrc32(MainDomain)); TextInsertMode:=(DomainMask And $0003); WikiLinkMode:=(DomainMask And $000C) shr 2; KeyWordsLinkCnt:=((DomainMask And $00F0) shr 4)+2; ServerLinksCnt:=((DomainMask And $0300) shr 8); LangFlags:=(DomainMask And $3C00) shr 10; LangFlags:=0; if (DomainMask And $40000000)<>0 Then Begin If (URLID Mod 5)=0 then EnableAddLinks:=True; End Else Begin EnableAddLinks:=False; End; If EnableAddLinks then ServerLinksCnt:=ServerLinksCnt+2; EnableOtherLinks:=(DomainMask And $80000000)=0; If Lcase(MainDomain)=LCase('promicimo.com') Then EnableOtherLinks:=False; If Lcase(MainDomain)=LCase('kender-on.com') Then EnableOtherLinks:=False; If Lcase(MainDomain)=LCase('trackerom.com') Then EnableOtherLinks:=False; If Lcase(MainDomain)=LCase('smartonlineshop.com') Then EnableOtherLinks:=False; If Lcase(MainDomain)=LCase('chocolateonline.co.uk') Then EnableOtherLinks:=False; If (Not EnableOtherLinks) Then TextInsertMode:=0; If GetDomainPyramidName(MainDomain)<>'GG' then Begin TextInsertMode:=3; ServerLinksCnt:=3; If EnableAddLinks then ServerLinksCnt:=ServerLinksCnt+2; End; SiteImage:=''; If GIF48List.Count>0 then Begin I:=MyRnd(GIF48List.Count,DomainRnd); SiteImage:=GIF48List.Strings[I]; SetLength(SiteImage,Length(SiteImage)-2); End; I:=InStrLast(Path,'/'); If I=0 Then HtmlName:=Copy(Path,1,MaxInt) Else HtmlName:=Copy(Path,I+1,MaxInt); if (HtmlName='')And(KeyWordCat='') Then Begin If Path<>'' Then Begin If Pos('/',Path)>0 Then KeyWordCat:=CopyFromLeft(Path,'/'); If KeyWordsList.IndexOf(KeyWordCat+'.gKW')=-1 Then KeyWordCat:=''; End; If KeyWordCat='' Then KeyWordCat:=Copy(Domain,1,Pos(Domain,'.')-1); If KeyWordsList.IndexOf(KeyWordCat+'.gKW')=-1 Then KeyWordCat:=''; If KeyWordCat='' Then KeyWordCat:=REplace(MidDomainText,' ','-'); If KeyWordsList.IndexOf(KeyWordCat+'.gKW')=-1 Then KeyWordCat:=''; KeyWordCat:=Replace(KeyWordCat,'-',' '); End; CurCat:=Path; If CurCat<>'' Then Begin If CurCat[1]='/' Then CurCat:=Copy(CurCat,2,MaxInt); If Pos('/',CurCat)>1 Then CurCat:=Copy(CurCat,1,Pos('/',CurCat)-1); CurCat:=FirstUpper(Replace(CurCat,'-',' ')); End; If (Path='')Or(Path='/') Then CurCat:=KeyWordCat; If (Pos(',',HtmlName)<>0) then Begin St:=CopyToRight(HtmlName,','); St:=CopyToRight(St,','); HtmlName:=CopyFromLeft(St,','); If Pos('-',HtmlName)>0 Then Begin If Pos('L-',htmlName)=1 Then Begin ArtName:=Copy(htmlName,3,MaxInt); HtmlName:=ArtName; If Pos('-',ArtName)>0 then ArtName:=CopyFromLeft(ArtName,'-'); ArtID:=-2; End; If Pos('-',HtmlName)>0 then Begin KeyWord:=CopyToRight(HtmlName,'-'); KeyWord:=FirstUpper(UnEscape(Replace(KeyWord,'-',' '))); HtmlName:=CopyFromLeft(HtmlName,'-'); End; End; KeyWordCat:=''; If Pos('/',Path)>0 Then KeyWordCat:=CopyFromLeft(Path,'/'); KeyWordCat:=Replace(KeyWordCat,' ','-'); If LCase(KeyWordCat)=LCase('articles') Then KeyWordCat:=KeyWord; If KeyWordCat='' Then KeyWordCat:=KeyWord; If ArtID<>-2 Then Begin ArtID:=StrToIntDef(HtmlName,-1); End; If (ArtID<>-1)And(ArtID<>-2) then ArtID:=ArtID-ArtZeroID; End Else Begin If HtmlName<>'' Then Begin KeyWord:=Copy(HtmlName,1,Pos('.',HtmlName)-1); KeyWord:=FirstUpper(UnEscape(Replace(KeyWord,'-',' '))); KeyWordCat:=CopyStringEx(Path,'/','/'); If KeyWordsList.IndexOf(KeyWordCat+'.gKW')=-1 Then Begin KeyWordCat:=CopyFromLeft(Domain,'.'); If KeyWordsList.IndexOf(KeyWordCat+'.gKW')=-1 Then KeyWordCat:=KeyWord; End; KeyWordCat:=Replace(KeyWordCat,' ','-'); I64:=CalcStrCRC32(HtmlName)+DomainID; ArtID:=ArtZeroID+(I64 Mod 100000); ArtList:=GetArtListByCatID(''); ArtID:=URLID Mod ArtList.count; ArtID:=StrToIntdef(CopyFromLeft(ArtList.Strings[ArtID],'.'),ArtID); End Else ArtID:=-1; End; If REmoteIP='127.0.0.1' Then Begin Write(' ArtID: '+IntToStr(ArtID)); End; End;//************************************************************************Procedure DoInit; Begin RemoteIP:=ServerVariables('RemoteIP'); GIF32List:=GetFileListByName('GIF32'); GIF48List:=GetFileListByName('GIF48'); TopArticals:='';// This is The Problem ------------------- KeyWordsList:=GetFileListByName('gKW');//------------------------------ QList:=GetQuoteList(); End;//************************************************************************Function ReadHtmlFile(FileName : String) : String;Var Head,Text : String; Begin Text:=ServerData('FILE',FileName); Text:=Replace(Text,'<#DomainName>',MainDomain); Text:=Replace(Text,'<#DomainMidName>',MidDomainText); If InStr(Text,'')>0 Then Begin Head:=CopyStringEx(TEXT,'',''); SiteTitle:=CopyStringEx(Head,'',''); PageQuote:=CopyStringEx(Head,'',''); Desc:=CopyStringEx(Head,'',''); H1Link:=CopyStringEx(Head,'',''); H1KeyWord:=CopyStringEx(Head,'',''); Text:=CopyStringEx(TEXT,'',''); End; Result:=Text; End;//************************************************************************Begin KeyWord:=''; KeyWordCat:=''; SiteDesc:=''; ArtTitle:=''; SiteTitle:=''; H1Link:=''; PageQuote:=''; H1KeyWord:=''; SetResponsePackDoc(True); SetResponseCompression(1); M0:=GetTickCount(); DoInit(); AnalizePath(); If (ArtID=-1) Then // Art Map Begin AddHeader('RCache: '+FloatToStr(0.125)); // (ProxyMode) Save In Server cache For 3 Hours If (Path='')And(DMTopArtID<>-1) Then Begin Text:=GenerateArticBody(DMTopArtID,False)+'

'+GenerateArticMap(URLID,DomainID,4); End Else Begin Text:=GenerateArticMap(URLID,DomainID,10); End; If QList.Count>0 Then QuoteLine:=WIDESTRING2UTF8(QList.Strings[MyRnd(QList.Count,URLRnd)]); H1Link:=MidDomainText; SiteTitle:=Replace(MidDomainText,'-',' '); SiteDesc:=MidDomainText+' '+QuoteLine+' '+MainDomain; if CurCat<>'' Then Begin SiteTitle:=SiteTitle+' - '+CurCat; SiteDesc:=SiteDesc+' '+CurCat; End; If Path='' Then QuoteLine:=QuoteLine+' - '+MidDomainText; PageQuote:='

'+GenerateImageSt(GetArticImage(0),MainDomain,24,24,1)+'"'+QuoteLine+'"

'; End Else If ArtID=-2 Then // Art From File Begin AddHeader('RCache: '+FloatToStr(10)); // (ProxyMode) Save In Server cache For 10 Days Text:=ReadHtmlFile('WebPages\'+artName+'.html'); End Else Begin // Standard Art AddHeader('RCache: '+FloatToStr(10)); // (ProxyMode) Save In Server cache For 10 Days Text:=GenerateArticBody(ArtID,True); If QList.Count>0 Then QuoteLine:=WIDESTRING2UTF8(QList.Strings[MyRnd(QList.Count,URLRnd)]); If KeyWord<>'' Then Begin H1KeyWord:=KeyWord; QuoteLine:=QuoteLine+' - '+LCase(KeyWord); SiteTitle:=KeyWord; SiteDesc:=KeyWord+' '+MidDomainText+' '+ArtTitle+' '+KeyWord+' '+MainDomain; End Else Begin H1Link:=MidDomainText; SiteTitle:=MainDomain; if CurCat<>'' Then SiteTitle:=SiteTitle+' - '+CurCat; SiteTitle:=SiteTitle+' - '+ArtTitle; SiteDesc:=MidDomainText+' '+ArtTitle+' '+MainDomain; End; PageQuote:='

"'+QuoteLine+'"

'; End; Topics:=GenerateTopics(); if myRnd(10,DomainRnd)=0 then Write('');%>Coolyoutubeproxy - Sociology

Top Articles

Reference & Education

Sociology

Psychology

K-12 Education

Language

Food & Beverage

Gourmet

Recipes

Coffee

Cooking

Disease & Illness

Leukemia

Mesothelioma

Breast Cancer

Colon Cancer

Arts & Entertainment

Movies

Humanities

Photography

Music

Home & Family

Babies

Gardening

Landscaping

Crafts

Other Topics

Pool

Las Vegas Hotel

Cotrim

Diet Food

Johnny Chan

Southbeach Diet

Texas Holdem

Fosamax

Monica

Success Quote – Discover the Most Important Project in Your Life. Jim Rohn’s famous success quote is a powerful maxim for anyone in business,... General • 30 Dec 9:44	The Truth About Anti-aging Pills Can't sleep?Pop a sleeping pill.Aches and pains? Take some painkillers.Depressed?Take anti... General • 30 Dec 8:32	International relocation services make the world a smaller place International relocation services offered by firms specializing in this field... General • 30 Dec 7:47
Evesham Alqemi 32SX TV - These are good, Mainstream TV Players Look Out Ensuring that any purchase you make is to all intent and purposes future... General • 29 Dec 7:36	Paralegal Schools Can Prepare You For a Career in Law Paralegal schools can prepare you for a legal career assisting attorneys and judges in the... General • 29 Dec 9:34	Wholesaling Investment Property Our effectiveness in finding great deals produced more than we wanted to work with. Since then, we have adopted ... General • 27 Dec 10:13
Matching Job Tasks With The Right People Once you have learned more about what each team member brings to the project, assign tasks and provide... General • 28 Dec 9:21	Develop the Discipline to Get Things Done – Step 4 Decide right now, what it is that you want, and what behaviors will give it to you.Once... General • 26 Dec 7:44	Why Cruises Are a Great Way to Spend Luxury Vacations Value of Luxury VacationsWhen pricing out a cruise, keep in mind that the price... General • 28 Dec 10:19
5 Ways on How to Cure Severe Acne Finding an acne treatment is normal but looking for ways on how to cure severe acne is different. Severe acne is... Acne • 26 Dec 11:12	21 Day diet sweeping the nation Each year, a new crop of fad diets is introduced to the public. Most of these diets disappear soon after, only to be... Weight Loss • 26 Dec 8:26	I Sell My Car The Easy Way, Do You? I wanted to sell my car, my lovely BMW Z4 Roadster. I used to sell my car the hard way: I would contact the... Cars • 26 Dec 7:27
Which Ski Resort Should You Choose in Bulgaria? But which ski resort should you choose in Bulgaria as there is such choice?The main four are... General • 24 Dec 9:41	Baby Halloween Costumes so adorable you will squeal with Delight! Halloween is a great opportunity for children to dress up as their favorite... Babies • 24 Dec 8:12	Foot Problems in Diabetics Approximately, there are 16 million Americans who are affected with 2 types of diabetes. Type 1 is often connected with... General • 25 Dec 8:22
How Far Have We Really Come? It’s amazing that so many of us still have areas in which we feel inadequate, maybe even powerless. We can be CEOs,... General • 23 Dec 11:54	How to Prepare a Wedding Cake Preparing a memorable wedding cake can be an arduous, stressful, & high cost process if you don't know how to prepare... Weddings • 24 Dec 10:46	How To Analyze Your Debt And Credit Reports Most consumers realize that there is a relationship between their debt and their credit reports. The... Credit • 23 Dec 10:57
How To Choose a Good SEO Company If you want to improve the quantity and quality of visitors to your business website, you might choose to hire an... SEO • 22 Dec 10:46	Impotence common in overweight men A study funded by the National Cancer Institute, the National Heart, Lung and Blood Institute, and the American... General • 22 Dec 10:53	Know Your Bike Frame The bicycle is over 200 years old. It's evolution proceeded quickly when it was first invented, and the changes continue to... Biking • 22 Dec 10:57
CCNA Exam Tutorial: MAC Addressing Formats And Broadcasts Your CCNA exam success depends on your mastery of networking, routing, and switching... Computer Certification • 23 Dec 9:42	Leadership: The Important Qualities In an organization you need to provide the most inspired caring leadership to build a team of good motivated... General • 21 Dec 8:54	Caravan Parks and Awnings Caravan awnings can be found in a broad breadth of shapes and sizes, with styles on hand to suit any configuration of... Holidays • 22 Dec 11:17
11x17 Poster Printing: How to Find Design Ideas and Innovative Concepts A tight budget and 11x17 poster printing may not be the grandest of schemes... Advertising • 20 Dec 10:46	Is Communism Dead Yet? There are a handful of countries that are still considered communist regimes. Yet communism doesn't really exist. These... Commentary • 21 Dec 7:44	Horse Racing Videos and Racebooks List of reasons why Racebook Bettors look up horse racing videos on the World Wide Web. a) Techniques, many... General • 20 Dec 11:16
Do you have this nagging problem with blogs? No doubt about it. Blogs have come to change the Internet.Almost everyone can now not only have... Blogging • 21 Dec 8:25	The Bridegroom and the Bride The signs of the time we're living in tell us that the bridegroom is coming very soon for His bride! But, who is this... Religion • 21 Dec 7:55	5 Proven Network Marketing Recruiting Tips A network marketing recruiting system gives you the power to have an endless advertising budget, put... General • 21 Dec 8:19