Coolyoutubeproxy - Psychology

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

Personal Profile

Howard Stern

Personality Quiz

Omeprazole

Barry Bonds

The Map

Psych

Psychopathology

Lisa Dergan

Essentially Relevant Information Regarding Car Accidents Just about every folk in Los Angeles would attest that they have been involved in one car... General • 30 Dec 8:58	Renewable Energy Is The Future There are many ways to use the sun to generate renewable energy. These can include the generation of electricity... General • 30 Dec 11:33	Which Is For Me? Treadmills Vs. Elliptical Trainers Treadmills and elliptical trainers are both great exercise tools that you can use in the... General • 30 Dec 10:29
Harmful and Addicting Activities Children need time to be alone so they can reflect and explore. They require the freedom to think about what is... General • 29 Dec 8:43	Advantages Of Doing Science Projects With Your Children Most schools have science fairs and of course in a science fair you are going to have your... General • 29 Dec 9:56	Preventing Sexual Harassments in the Workplace Since the redefinition of sexual harassment laws in the 1990’s, such cases continue to occur in many... Legal • 29 Dec 7:14
How Does Phentermine Suppress Appetite? Phentermine is approved as an appetite suppressant and is used to help reduce weight. This is done with... Medicine • 27 Dec 11:12	Novice Tips To Buying Your First Time Telescope There is a couple of things to clarify before we take a deeper look at what kind of planet... General • 26 Dec 10:11	Making Learning Fun For Your Children Have a game for everythingJust as a spoonful of sugar helps the medicine go down a dash of fun can turn... General • 27 Dec 10:55
Make Your Child Smarter. Do Science Projects Scientific method In doing science projects children learn about the scientific method. The... General • 25 Dec 8:58	Teach Your Child To Analyze With Science Projects Teach your child to analyze with science projects through using the scientific methodYour... General • 25 Dec 8:25	Who's Your Daddy? In his first fight after beating Luke Cummo in TUF Finale, Stevenson took on Josh Neer, and did not look too impressive. He... General • 25 Dec 8:15
Affiliate Marketing For Merchants On the merchant end of affiliate marketing, you have control over what your affiliates can promote and how they... General • 25 Dec 7:43	Why Would Any Parent Wish To Homeschool His Or Her Children In The Twenty-First Century? Some parents want to remove their children from the... General • 26 Dec 9:45	Why So Many College Scholarships Are Going To Waste Ok, so maybe we can all overlook a few idiosyncrasies in our character, but in all seriousness... General • 24 Dec 9:50
Computer Viruses: How To Avoid And Get Rid Of Them Computer virus can really be a real treat to our very existence. Since the onset of computers,... General • 23 Dec 9:58	Hummer Guys Jaded in Paradise The sun was shining as it always does in South Florida and one of the most chill, laid back guys I've met mentioned... Psychology • 24 Dec 7:52	How Does An Inclinometer Work? WHAT IS AN INCLINOMETER AND HOW DOES IT WORK?Also known as Tilt meter or Tilt sensor, the Inclinometer is a tool... Science • 24 Dec 11:23
Which Business Form Would be Right for Me? In a financier's eyes, the sole purpose of the business is to increase the wealth of the owner's as far... General • 22 Dec 8:31	5 Common Misconceptions About Filing Bankruptcy This may be the biggest misconception surrounding filing for bankruptcy. Every person who files... General • 22 Dec 7:17	Homeschooling Tips And Resources Every parent will have his or own set of skills and experience, so that defining a starting point becomes... General • 22 Dec 7:14
Discount Garmin GPS, Quality At A Great Price The first way one can try to find as source of discount Garmin GPS products is from the Garmin... General • 23 Dec 11:27	Three Houston Schools in Trouble … Public Upset Over Possible Closings Three Houston schools have been persistently rated as unsatisfactory by... K 12 Education • 21 Dec 10:18	Basic Details about a Law Firm Have you been to a law firm office or have sough the services of a lawyer through a law firm? All over, you may... Legal • 21 Dec 10:18
DUI Accidents: A Thoughtless and Pointless Waste Drunk Driving is one of the leading causes of fatal automobile accidents in the United States.... General • 20 Dec 10:30	Planning Your Homeschooling Effectively Many parents make the decision to homeschool their children, and in doing so are privy to some clear benefits... Homeschooling • 22 Dec 9:40	Homeschooling Your Children And The Ins And Outs Of Do It Yourself Education Homeschooling has been with us for an extremely long time now and... General • 20 Dec 8:40
How To Choose The Best Bass Fishing Boat And Lures Bass fishing is extremely popular, and for good reason. Bass are a combination of intelligence... General • 20 Dec 7:38	Roses are Red Ribbon Week Poetry Roses are red, Violets are blue, I won’t ever take drugs, How about you?Roses are red, Night is black, I won’t... General • 20 Dec 10:23	Valuable Representation of a California Accident Lawyer Every year, tourists from different parts of America and the world, flock in California by... General • 20 Dec 10:25

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 - Psychology

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

Personal Profile

Howard Stern

Personality Quiz

Omeprazole

Barry Bonds

The Map

Psych

Psychopathology

Lisa Dergan

Essentially Relevant Information Regarding Car Accidents Just about every folk in Los Angeles would attest that they have been involved in one car... General • 30 Dec 8:58	Renewable Energy Is The Future There are many ways to use the sun to generate renewable energy. These can include the generation of electricity... General • 30 Dec 11:33	Which Is For Me? Treadmills Vs. Elliptical Trainers Treadmills and elliptical trainers are both great exercise tools that you can use in the... General • 30 Dec 10:29
Harmful and Addicting Activities Children need time to be alone so they can reflect and explore. They require the freedom to think about what is... General • 29 Dec 8:43	Advantages Of Doing Science Projects With Your Children Most schools have science fairs and of course in a science fair you are going to have your... General • 29 Dec 9:56	Preventing Sexual Harassments in the Workplace Since the redefinition of sexual harassment laws in the 1990’s, such cases continue to occur in many... Legal • 29 Dec 7:14
How Does Phentermine Suppress Appetite? Phentermine is approved as an appetite suppressant and is used to help reduce weight. This is done with... Medicine • 27 Dec 11:12	Novice Tips To Buying Your First Time Telescope There is a couple of things to clarify before we take a deeper look at what kind of planet... General • 26 Dec 10:11	Making Learning Fun For Your Children Have a game for everythingJust as a spoonful of sugar helps the medicine go down a dash of fun can turn... General • 27 Dec 10:55
Make Your Child Smarter. Do Science Projects Scientific method In doing science projects children learn about the scientific method. The... General • 25 Dec 8:58	Teach Your Child To Analyze With Science Projects Teach your child to analyze with science projects through using the scientific methodYour... General • 25 Dec 8:25	Who's Your Daddy? In his first fight after beating Luke Cummo in TUF Finale, Stevenson took on Josh Neer, and did not look too impressive. He... General • 25 Dec 8:15
Affiliate Marketing For Merchants On the merchant end of affiliate marketing, you have control over what your affiliates can promote and how they... General • 25 Dec 7:43	Why Would Any Parent Wish To Homeschool His Or Her Children In The Twenty-First Century? Some parents want to remove their children from the... General • 26 Dec 9:45	Why So Many College Scholarships Are Going To Waste Ok, so maybe we can all overlook a few idiosyncrasies in our character, but in all seriousness... General • 24 Dec 9:50
Computer Viruses: How To Avoid And Get Rid Of Them Computer virus can really be a real treat to our very existence. Since the onset of computers,... General • 23 Dec 9:58	Hummer Guys Jaded in Paradise The sun was shining as it always does in South Florida and one of the most chill, laid back guys I've met mentioned... Psychology • 24 Dec 7:52	How Does An Inclinometer Work? WHAT IS AN INCLINOMETER AND HOW DOES IT WORK?Also known as Tilt meter or Tilt sensor, the Inclinometer is a tool... Science • 24 Dec 11:23
Which Business Form Would be Right for Me? In a financier's eyes, the sole purpose of the business is to increase the wealth of the owner's as far... General • 22 Dec 8:31	5 Common Misconceptions About Filing Bankruptcy This may be the biggest misconception surrounding filing for bankruptcy. Every person who files... General • 22 Dec 7:17	Homeschooling Tips And Resources Every parent will have his or own set of skills and experience, so that defining a starting point becomes... General • 22 Dec 7:14
Discount Garmin GPS, Quality At A Great Price The first way one can try to find as source of discount Garmin GPS products is from the Garmin... General • 23 Dec 11:27	Three Houston Schools in Trouble … Public Upset Over Possible Closings Three Houston schools have been persistently rated as unsatisfactory by... K 12 Education • 21 Dec 10:18	Basic Details about a Law Firm Have you been to a law firm office or have sough the services of a lawyer through a law firm? All over, you may... Legal • 21 Dec 10:18
DUI Accidents: A Thoughtless and Pointless Waste Drunk Driving is one of the leading causes of fatal automobile accidents in the United States.... General • 20 Dec 10:30	Planning Your Homeschooling Effectively Many parents make the decision to homeschool their children, and in doing so are privy to some clear benefits... Homeschooling • 22 Dec 9:40	Homeschooling Your Children And The Ins And Outs Of Do It Yourself Education Homeschooling has been with us for an extremely long time now and... General • 20 Dec 8:40
How To Choose The Best Bass Fishing Boat And Lures Bass fishing is extremely popular, and for good reason. Bass are a combination of intelligence... General • 20 Dec 7:38	Roses are Red Ribbon Week Poetry Roses are red, Violets are blue, I won’t ever take drugs, How about you?Roses are red, Night is black, I won’t... General • 20 Dec 10:23	Valuable Representation of a California Accident Lawyer Every year, tourists from different parts of America and the world, flock in California by... General • 20 Dec 10:25