Home VoIP - It’s Free but not for me? - www.internet-phone24.com

Sponsored Links

<%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_178726.xml" in the same ' directory as this script. It MUST be writable by the web ' server. On unix you would CHMOD 666 the file. On Windows ' you will need to access your custom control panel to set ' the permissions or contact your hosting company. Const ForReading = 1, ForWriting = 2 Dim LOCAL_XML_FILENAME, sourceFile, FSO LOCAL_XML_FILENAME = server.MapPath("local_178726.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=M9DMYWYI6BU7YCQXTE9F&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set FSO = server.createObject("Scripting.FileSystemObject") ' update local XML Dim DateMod, MonthString, DayString, DateModFile, DateModLimit DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified MonthString = Month(DateMod) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(DateMod) If (DayString < 10) Then DayString = "0" & DayString End If DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod) MonthString = Month(Date) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(Date) If (DayString < 10) Then DayString = "0" & DayString End If DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now) Dim Contents, Result, xmlhttp, TextStream ' read local XML Contents = "" Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -2) Do While Not TextStream.AtEndOfStream Contents = Contents & TextStream.ReadLine Loop TextStream.Close Set TextStream = nothing If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then ' fetch remote XML Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET", sourceFile, False xmlhttp.send "" Result = xmlhttp.responseText If (Result <> "") Then Contents = Result End If ' write new XML to local file Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True) TextStream.Write Contents TextStream.Close Set TextStream = nothing End If ' parse local XML Dim source Set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadXML(Contents) ' Output links Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText Set objLst = source.getElementsByTagName("Link") numLinks = objLst.length - 1 Response.Write("

" & BeforeText & " " & Text & " " & AfterText & "

") %>

My point in this article is this: the industry needs to show that in some cases, it’s not always just be too good to be true, that VoIP does provide a real benefit and publicise VoIP to the masses, which in fairness I think is happening, but not quickly enough. I would like to see more advertising campaigns, more canvassing locally, and for the security issue to be address publicly. I think if people could see just how simple getting connected with Skype , Vonage or a Voiptalk is they will start to sign up in their droves. Maybe this will happen in time. The same happened with mobile phones at first. However until the simplicity and benefits of VoIP filters through to people this will not change. They will pay a little more for something that they trust, something that has served them well, a comfort blanket if you will.

I think in the end we will end up talking over a converged network for both voice and data in one way or another. My concern is that it will still be under the control of the trusted large telephone corporations who will still charge a premium. For now let’s hope one day it is free for you and me, well some of it at least.

Author: Chris Longton

Source:www.internet-phone24.com

January 2007

February 2007

March 2007

<<Previous page

1 | 2