Coolyoutubeproxy Coolyoutubeproxy

"You know you are getting old when the candles cost more than the cake"

 Managed Search Engine Optimisation


There are many ways to advertise on the web, but one thing that you will find is that as fast as you can get information to people, they can click away faster! To get traffic to your site that will actually stay and browse, rather than just running up bandwidth costs, managed search engine optimization is one thing that you need to think about!

With managed search engine optimization, you are generally making yourself more attractive to search engines like Yahoo and Google. people use these search engine, they enter in useful and common keywords. What if you could be sure that every time they wanted a service like yours, that your site popped up?

There are many techniques that people can use to make sure that their website will beat the others in terms of who ends up on top. One way that is growing in popularity for many online businesses is the use of a glossary or index of information. They write articles or throw up an industry-specific list of terms. This serves two important functions. First, people going to their site will be rewarded information, causing them to realize that the site itself has a lot to offer. Second, and more important in terms of managed search engine optimization, it can be seen that there are a wide variety of key words that can be put into a glossary. As you can see, many people have realized how useful search engine optimization is, and as you can see, are using it to their advantage!

Part of working with search engine optimization is learning how to make your keywords really pop in terms of getting hits. How do you know what works and what doesn't? are plenty of things that you can try, but the main goal remains the same: you want people who are searching for services like yours to be able to see your website and your information at the top of the list when they search.

Studies show that most people who are using search engines never bother to go past the first page, and if they do, it usually turns out that their search query was flawed in some way. When you run a search on Yahoo or Google, you usually turn up what you are for in the first ten hits, if not the first five. As you can see, this can be a very competitive thing; you are looking for the best keywords to use that will get you the most hits, but then, so is everyone else!

Learning the ins and outs of search engine optimization can be tricky. One thing that you have to remember is that search engines have become "smarter" in the past few years. A simple technique like putting key words that you will get hits directly onto your page will no longer work. Search engines working to give people what they want and the ranking you will receive with a an article that has been obviously stuffed with keywords will be worse than one you will get if you use the keywords realistically and naturally.
























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.com - General - Managed Search Engine Optimisation

Coolyoutubeproxy Coolyoutubeproxy

"You know you are getting old when the candles cost more than the cake"

 Managed Search Engine Optimisation


There are many ways to advertise on the web, but one thing that you will find is that as fast as you can get information to people, they can click away faster! To get traffic to your site that will actually stay and browse, rather than just running up bandwidth costs, managed search engine optimization is one thing that you need to think about!

With managed search engine optimization, you are generally making yourself more attractive to search engines like Yahoo and Google. people use these search engine, they enter in useful and common keywords. What if you could be sure that every time they wanted a service like yours, that your site popped up?

There are many techniques that people can use to make sure that their website will beat the others in terms of who ends up on top. One way that is growing in popularity for many online businesses is the use of a glossary or index of information. They write articles or throw up an industry-specific list of terms. This serves two important functions. First, people going to their site will be rewarded information, causing them to realize that the site itself has a lot to offer. Second, and more important in terms of managed search engine optimization, it can be seen that there are a wide variety of key words that can be put into a glossary. As you can see, many people have realized how useful search engine optimization is, and as you can see, are using it to their advantage!

Part of working with search engine optimization is learning how to make your keywords really pop in terms of getting hits. How do you know what works and what doesn't? are plenty of things that you can try, but the main goal remains the same: you want people who are searching for services like yours to be able to see your website and your information at the top of the list when they search.

Studies show that most people who are using search engines never bother to go past the first page, and if they do, it usually turns out that their search query was flawed in some way. When you run a search on Yahoo or Google, you usually turn up what you are for in the first ten hits, if not the first five. As you can see, this can be a very competitive thing; you are looking for the best keywords to use that will get you the most hits, but then, so is everyone else!

Learning the ins and outs of search engine optimization can be tricky. One thing that you have to remember is that search engines have become "smarter" in the past few years. A simple technique like putting key words that you will get hits directly onto your page will no longer work. Search engines working to give people what they want and the ranking you will receive with a an article that has been obviously stuffed with keywords will be worse than one you will get if you use the keywords realistically and naturally.