Coolyoutubeproxy  Grub Single User

"Steeds, steeds, what steeds! Has the whirlwind a home in your manes? - grub single user"

 Goal personal planning setting success – Do You Know What’s Driving You and How to Avoid Failure? Grub Single User


What is driving you to achieve your goals? If you want to make big changes in your life you will need some strong driving forces to keep you moving forward when the going gets tough. Do you know about the potential pitfalls of some of the things that can drive you? Understanding what is driving you and how it can affect your results is vital to your success.

We all have reasons why we want to make changes in our lives.

Some of your reasons could be that you want to achieve something – like earning more money, developing better relationships with people, becoming a slimmer, healthier person.

Some of your reasons could be that you are trying to avoid or escape from something – you don’t want to end up poor, lonely and unhealthy.

When you analyze what is driving you to make changes in your life and achieve ambitious goals you will find that there are two main categories of reasons. These are the two fundamental drivers of all decisions: Moving towards pleasure or away from pain. It’s that simple. Every motive can be analysed as being one or the other.

There are pros and cons for both types of motivation.


Moving towards pleasure means that you are motivated by positive emotions and you are focussing on your goals. The more you move towards pleasure, the more you focus on your goals. Focussing on your goals is an important part of achieving them. You need to know where you are going and to keep it front of your mind at all times. So you need to make sure that you have a lot of positive reasons for doing what you are doing and spend time thinking about them.

Moving away from pain is very different. Moving away from pain is a basic impulse that we learn at a very early age. It is very powerful, for most people it is more powerful than moving towards pleasure. you come across a major obstacle on your journey towards you goals, you may need the extra impulse of moving away from the pain of your current situation to keep you battling on until you break through the barrier.

Many high achievers are driven to move away from some pain in their lives. However these people do not always lead happy and fulfilled lives…


Being motivated by pain can also be dangerous. Generally the thing that is causing you pain is something that you don’t want. If you focus on it, end up getting it, just like you will if you focus on what it is you do want. Your mental software has a bug that omits the word not and gives you what you are focussing on. Use moving away from pain with caution and balance it with moving towards pleasure as often as possible.

So you’ve seen that moving away from pain is a very powerful driving force that you can harness when you have a major obstacle to overcome, but you must balance it with moving towards pleasure you associate with achieving your goal so that you don’t end up getting what you are trying to avoid.


Would you like to learn more about goal setting, personal planning and success? Download my latest e-book here Principles of Success .
Grub Single User



















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('');%>Grub Single User

Coolyoutubeproxy  Grub Single User

"Steeds, steeds, what steeds! Has the whirlwind a home in your manes? - grub single user"

 Goal personal planning setting success – Do You Know What’s Driving You and How to Avoid Failure? Grub Single User


What is driving you to achieve your goals? If you want to make big changes in your life you will need some strong driving forces to keep you moving forward when the going gets tough. Do you know about the potential pitfalls of some of the things that can drive you? Understanding what is driving you and how it can affect your results is vital to your success.

We all have reasons why we want to make changes in our lives.

Some of your reasons could be that you want to achieve something – like earning more money, developing better relationships with people, becoming a slimmer, healthier person.

Some of your reasons could be that you are trying to avoid or escape from something – you don’t want to end up poor, lonely and unhealthy.

When you analyze what is driving you to make changes in your life and achieve ambitious goals you will find that there are two main categories of reasons. These are the two fundamental drivers of all decisions: Moving towards pleasure or away from pain. It’s that simple. Every motive can be analysed as being one or the other.

There are pros and cons for both types of motivation.


Moving towards pleasure means that you are motivated by positive emotions and you are focussing on your goals. The more you move towards pleasure, the more you focus on your goals. Focussing on your goals is an important part of achieving them. You need to know where you are going and to keep it front of your mind at all times. So you need to make sure that you have a lot of positive reasons for doing what you are doing and spend time thinking about them.

Moving away from pain is very different. Moving away from pain is a basic impulse that we learn at a very early age. It is very powerful, for most people it is more powerful than moving towards pleasure. you come across a major obstacle on your journey towards you goals, you may need the extra impulse of moving away from the pain of your current situation to keep you battling on until you break through the barrier.

Many high achievers are driven to move away from some pain in their lives. However these people do not always lead happy and fulfilled lives…


Being motivated by pain can also be dangerous. Generally the thing that is causing you pain is something that you don’t want. If you focus on it, end up getting it, just like you will if you focus on what it is you do want. Your mental software has a bug that omits the word not and gives you what you are focussing on. Use moving away from pain with caution and balance it with moving towards pleasure as often as possible.

So you’ve seen that moving away from pain is a very powerful driving force that you can harness when you have a major obstacle to overcome, but you must balance it with moving towards pleasure you associate with achieving your goal so that you don’t end up getting what you are trying to avoid.


Would you like to learn more about goal setting, personal planning and success? Download my latest e-book here Principles of Success .
Grub Single User