This is a New Links Directory Page on our site,more information will be added soon.
<%
' # 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 Free-Link-Exchange.com):
UserKey = "41424302011-D1PBN947XYKBA1A"
' # 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 Free-Link-Exchange server in order to
' # generate working links on your page:
ThisPage = Request.ServerVariables("SCRIPT_NAME")
' # Generate the data to post to the Free-Link-Exchange.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 Free-Link-Exchange to allow paging
PassedQuery = Request.QueryString
' ---------------------------------------------------------------------------------
If GetLinkData(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 GetLinkData(strQuery, strPost, ByRef strResponse, ByRef strError)
Dim hObj
Dim ComponentString
Set hObj = Nothing
On Error Resume Next
Set hObj = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.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
GetLinkData = True
Else
' we don't need to supply error information, since the error string
' is passed ByRef, the MSXML function will supply the data
GetLinkData = False
End If
Else
hObj.Open "POST", "http://www.Free-Link-Exchange.com/smbin/dumplinks.asp?" & strQuery, False
hObj.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
hObj.Send strPost
If hObj.Status <> 200 Then
strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText
GetLinkData = False
Else
strResponse = ComponentString & hObj.responseText
GetLinkData = 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 = Server.CreateObject("Msxml2.ServerXMLHTTP")
ComponentString = "" & vbCrLf
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
ComponentString = "" & vbCrLf
End If
On Error Resume Next
If hObj Is Nothing Then
Set hObj = Server.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 Free-Link-Exchange.com server, sending the UserKey information via POST
' # Also, pass through the querystring information (contains category, link information)
hObj.open "POST", "http://www.Free-Link-Exchange.com/smbin/dumplinks.asp?" & strQuery, false
hObj.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
hObj.Send strPost
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 Free-Link-Exchange.COM SCRIPT BLOCK
%>
Visit some of our pages below with ads to show you some different ideas you could do with your own website . its about the best deal with value savings,we-site.com will be adding more pages soon.We-Site.com built this website with the webcitybuilder.com editor with sections that explain what the pages are for showing you how to build diy web site yourself , We-Site.com is a Brand New Website with sharing links between our site and yours to help the consumer experience your sites.
The above We-Site sample Home page tab and the Sample webpages are a view of what you will see once you start your trial site ,
view all the pages across the top to view some different website pages,if your interested in a easy on the go diy web site builder,you just need an internet connection.if you can send an e-mail you can build a powerful website ...thats all you need to edit your site.......start your trial today.
We-Site.Com is a referral site for www.WebCityBuilder.com . We-Site.Com wants you to find this the best easiest diy website builder out there,you can run start up a ads site to bring in revenue, start up your on web site to show in the maps page where your brick and mortar locations are. join membership sites to ship the product for you from a website you built yourself.webcitybuilder.com has some direct partners in which they intergrate easy product upload to your site. over 30 business features at your finger tips . We-Site.com can tell you that inside this easy to use web site builder has so very much to offer,multi-media,shopping cart estore,or even start a forum online,diy websites made easy.
Happy Building " Where Possibilities Become Reality "
