 |
 |
|
 |
|
|
|
|
|
ShopforT1 Related Links
Welcome to the ShopforT1.com Link Exchange. Place your
links for free in the appropriate telecom category below and within minutes (after we review your link
back to us), your URL will appear in our directory. Increase Your Google PageRank by
improving your link popularity - FREE!
|
|
|
<%
' # 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 PowerLinks.com):
UserKey = "4202412522005-J2D4MU3Z2I"
' # 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 PowerLinks server in order to
' # generate working links on your page:
ThisPage = Request.ServerVariables("SCRIPT_NAME")
' # Generate the data to post to the PowerLinks.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 PowerLinks to allow paging
PassedQuery = Request.QueryString
' ---------------------------------------------------------------------------------
If GetPowerLinksData(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 GetPowerLinksData(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
GetPowerLinksData = True
Else
' we don't need to supply error information, since the error string
' is passed ByRef, the MSXML function will supply the data
GetPowerLinksData = False
End If
Else
hObj.Open "POST", "http://www.powerlinks.com/bin/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
GetPowerLinksData = False
Else
strResponse = ComponentString & hObj.responseText
GetPowerLinksData = 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 PowerLinks.com server, sending the UserKey information via POST
' # Also, pass through the querystring information (contains category, link information)
hObj.open "POST", "http://www.powerlinks.com/bin/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 POWERLINKS.COM SCRIPT BLOCK
%>
|
|
Find a T1 Line Price in Seconds
Written by - Zang Chu, Staff Writer
Why shouldn't shopping for a dedicated internet service be as simple
as shopping for a plane trip to Mexico? In the past the process of getting pricing
for dedicated internet service has been anything but simple but that has just changed.
Today getting a t1 service quote is as simple as entering your information and hitting "enter". With Geoquote software brokers are now offering real-time T1 prices just like you had hoped you could get when you started your search.
Geoquote is a software recently released that allows brokers to give real-time pricing to those seeking service. The software is doing for the telecom industry what Sabre did for the travel industry. In the 60's AMR, the parent company of American Airlines created a software and then began licensing it to the public. This software backed by massive databases was spun off in the form of "Sabre" which owns Travelocity and licenses this software to travel brokers and websites.
If the creators of Geoquote follow the same path as Sabre, this software will be the industry standard and brokers will have to use this software to enable their customer to get quotes in real time. While some brokers are able to run a profitable business without giving out real-time informaion these brokers will soon see their profitability reduce as they spend more time gathering information than actually dealing with customers. If you're currently searching for service, make sure you find a broker that uses Geoquote software.
|
|
|
|
|
