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