|
|
|
| Promotion Of People, Products & Services |
Kandu New Listed Promotions
Click Here: Listen To The Best Digital Urban Music
Click Here: Listen To The Best Digital Global Music
|
|
| Credits: Artist Allan P. Mallard "Smart Arts" Print |
Directory Quality Reciprocol Link Exchanges
Free Link Exchange Resources
Click Here: The Best Free Links
Join MakeMeGoogle, the FREE Link Exchange and get 800 inbound links to your website for only 2 minutes work.
Free Link Exchange and Directory
Business Directory - Web directory of multiple
business, leisure, and shopping categories. Features static text links, banner image links, quality categorization, and unique,
colorful navigation.
Click Here 1st Important Website Promotion Information.
SearchMonster Web Directory
Add
Your URL FREE, Boost Your Web Site Traffic & Rankings
Free Url Submission
Free Search Engine Optimization
Several excellent resources on the subject of optimization & marketing
for search engines are available from SEOmoz
a free, open resource for beginners and professionals alike.
Link Exchange
Link Exchange
#1 Free
Link Exchange Directory On The Web - Link Market
Have you ever tried to exchange links, swap links, or trade links?
Was it hard? Use link market instead; - it is easy to use, free and very smart. It will save you hours of work.
LinkPartners.com
The Easy Way to
Find Link Swap Partners
123ExchangeLinks.com - Find Quality Link Exchange
Partners
Free Link Exchange - Find link partners fast and easily at SimplyLinking.comNeed Reciprocal Links? - Easily find link partners at SimplyLinking.com
Linking code:
Internet Marketing
Link exchange and Internet
marketing ideas to increase your traffic - Linkalizer
Click Here: Affordable Website Banners
The Free Directory UK
Get Quality Exposure & Build Your Site's Traffic
Who links to me?
<%
' # THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION.
' # PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED.
' # Dimensioning variables - DO NOT MODIFY!
Dim UserKey
Dim ThisPage
Dim CategoryColumns
Dim LinksPerPage
Dim OpenInNewWindow
Dim PostingString
Dim PassedQuery
Dim AllowSearch
Dim ErrorString
Dim ResultString
' # // Finished dimensioning variables.
' # MODIFY THE VARIABLES BELOW:
' # Enter your user key below (provided to you by GotLinks.com):
UserKey = "G7E7-G15L-99AP"
' # The following variable defines how many columns are used to display categories
CategoryColumns = 2
' # The following variable defines how many links to display per page
LinksPerPage = 25
' # The following variable defines whether links are opened in a new window
' # (1 = Yes, 0 = No)
OpenInNewWindow = 1
' # The following variable determines whether the search function is enabled
' # for your links page (1 = Yes, 0 = No)
AllowSearch = 1
' # DO NOT MODIFY ANYTHING IN THIS BLOCK!!
' ---------------------------------------------------------------------------------
' # The following variable is sent to the GotLinks server in order to
' # generate working links on your page:
ThisPage = Request.ServerVariables("SCRIPT_NAME")
' # Generate the data to post to the GotLinks.com server
PostingString = "&UserKey=" & UserKey
PostingString = PostingString & "&ScriptName=" & ThisPage
PostingString = PostingString & "&CatCols=" & CategoryColumns
PostingString = PostingString & "&LinksPerPage=" & LinksPerPage
PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow
PostingString = PostingString & "&AllowSearch=" & AllowSearch
' # pass through any querystring data to GotLinks to allow paging
PassedQuery = Request.QueryString
' ---------------------------------------------------------------------------------
If GetGotLinksData(PassedQuery, PostingString, ResultString, ErrorString) Then
Response.Write ResultString
Else
' here we are just dumping error info to the page. You can clean this up to
' fit your site
Response.Write ErrorString
End If
Function GetGotLinksData(strQuery, strPost, ByRef strResponse, ByRef strError)
Dim hObj
Dim ComponentString
Set hObj = Nothing
On Error Resume Next
Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = CreateObject("WinHttp.WinHttpRequest.5")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
If TryMSXML(strQuery, strPost, strResponse, strError) Then
' the MSXML function will return the data
GetGotLinksData = True
Else
' we don't need to supply error information, since the error string
' is passed ByRef, the MSXML function will supply the data
GetGotLinksData = False
End If
Else
hObj.Open "GET", "http://www.gotlinks.com/engine.php?" & strQuery & strPost, False
hObj.Send
If hObj.Status <> 200 Then
strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText
GetGotLinksData = False
Else
strResponse = ComponentString & hObj.responseText
GetGotLinksData = True
End If
End If
End Function
Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError)
Dim hObj
Set hObj = Nothing
' let's see if the server supports the XMLHTTP component, various versions
On Error Resume Next
Set hObj = CreateObject("Msxml2.ServerXMLHTTP")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
Set hObj = CreateObject("Microsoft.XMLHTTP")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
strError = "No support for HTTP requests found."
TryMSXML = False
Else
' # Open connection to GotLinks.com server, sending the UserKey information via POST
' # Also, pass through the querystring information (contains category, link information)
hObj.open "GET", "http://www.gotlinks.com/engine.php?" & strQuery & strPost, false
hObj.Send
If hObj.status <> 200 Then
' # error!
strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'"
TryMSXML = False
Else
' # We should have received the links information from the server,
' # the following line will return the data by reference:
strResponse = ComponentString & hObj.responseText
TryMSXML = True
End If
Set hObj = Nothing
End If
End Function
' # //FINSIHED GotLinks.COM SCRIPT BLOCK
%>
|
