Make your own free website on Tripod.com

Klubworld:

Our Purpose
Home
Our Purpose
Becoming a Member
Contact Us
.
.
.

Here we will explain the purpose of our organization and our mission statement.

Organization Purpose and Mission Statement:

The purpose of this organization is to increase the popularity of our common interests which is bringing together like minded business people all over the world of any race, gender, age, creed, religion, etc.
 
  • We all have one thing in common and that is, we are open minded and want to succeed in Online Business.
  • We are all honest and believe in doing honest, ethical and legal business without ripping off people by way of scam or online tricks.
  • We do not believe in subscribing to any recurring subscription fees just for newsletters or ebooks
  • We do not believe that people should be restricted to join a good organisation by requesting for exorbitant joining fee. That is to say, we believe in affordability.
  • We understand that most people who turn to Internet Business are already broke and want to get out of debts with low cost investments but with high income earning potentials
  • We believe that a genuine business yielding a steady income of just $1 a day can exponentially lead someone to becoming a millionaire within a short space of time. Again, reason for NOT having to rip-off people to get rich quickly overnight.
  • We hope to add new members DAILY so we will be able to grow and expand together happily.
  • We also want to have fun while when we are together and working on projects of our choice. By developing relationships and friendships, among the members.

Our Mission statement is that we shall all succeed working together sharing our views, ideas and experiences and exposing any of the scams there on the Internet conning people with their "Get Rich Quickly" pie in the sky schemes.

Our mission is to further promote the interests of our organization and our members to the community. We strive to make a difference by educating the public and expanding our reach.

<% ' ****************do not modify the variables below****************** Dim GLKey Dim GLPage Dim GLCatCol Dim GLLPP Dim GLNW Dim GLPS Dim GLPQ Dim GLAS Dim Err Dim GLResult Dim GLCategory ' ******************************************************************** ' You may change the variables below to customize the look and feel of ' your links page ' ******************************************************************** ' This option defines the number of columns used to display categories GLCatCol = 2 ' This option defines the number of links displayed per page GLLPP = 25 ' This option defines whether links are opened in a new web browser window ' (1 = Yes, 0 = No) GLNW = 1 ' TThis option determines whether the search function is enabled ' for your links page (1 = Yes, 0 = No) GLAS = 1 ' ******************************************************************** ' *****Please DO NOT make any edits or changes to the code below****** ' ******************************************************************** GLKey = "PQ59-3X0D-Z277" GLPage = Request.ServerVariables("SCRIPT_NAME") GLPS = "&UserKey=" & GLKey & "&ScriptName=" & GLPage & "&CatCols=" & GLCatCol & "&LinksPerPage=" & GLLPP & "&OpenInNewWindow=" & GLNW & "&AllowSearch=" & GLAS GLPQ = Request.QueryString GLCategory = Request.QueryString("cnm") Function GetGotLinksData(HTTPQuery, PostStr, ByRef Resp, ByRef Er) Dim HttpReqObj Dim ComponentString Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetGotLinksData = False Else HttpReqObj.open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetGotLinksData = False Else Resp = ComponentString & HttpReqObj.responseText GetGotLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://www.gotlinks.com/engine2.php?" & HTTPQuery & PostStr, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetGotLinksData = False Else Resp = HttpReqObj.responseText GetGotLinksData = True End If End If End Function %> Klubworld for Home Based Business Opportunity <%=Category%> Link Partners <% If GetGotLinksData(GLPQ, GLPS, GLResult, Err) Then Response.Write GLResult Else ' here we are just dumping error info to the page. You can clean this up to ' fit your site Response.Write Err End If %>