wp7ec74e81.png
wp68c732a5.png
wp1d706659.png
wp124cd223.png
wp7a34271a.png

© 2007 IBS Communications Limited

wp353d2935.png
Sponsored Links
Internet phone services
wp2f44d597_0f.jpg
<%@ 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("
    ") For i = 0 To numLinks Set objLink = objLst.item(i) Set objLinkChildren = objLink.childNodes URL = "" Text = "" BeforeText = "" AfterText = "" For Each linkNode In objLinkChildren If linkNode.nodeName = "URL" Then URL = linkNode.text End If If linkNode.nodeName = "Text" Then Text = linkNode.text End If If linkNode.nodeName = "BeforeText" Then BeforeText = linkNode.text End If If linkNode.nodeName = "AfterText" Then AfterText = linkNode.text End If Next Response.Write("
  • " & BeforeText & " " & Text & " " & AfterText & "
    • ") Next Response.Write("
") %>
wp230977ec.jpg
wp14c2154c.png
wp928932ba.png
wp30bc7985.png

January 2007

February 2007

March 2007

 

wpbb1d1309.png

VoIP Phone Companies - What Are The Most Popular Voice Over IP Companies?

Voice over Internet Protocol, or VoIP services have become increasingly popular in the last few years. With the number of providers increasing so rapidly how do you keep track of which ones are good and which aren't? Read on to find out more ...

 

Introduction to Voice Over IP (VOIP) Phone Service

There is a new revolution going on in landline communication and it is called Voice Over Internet Protocol, or VoIP for short. This article introduces VoIP and describes how switching to VoIP for residential phone service can save you a bundle of money. Read on to find out more...

VoIP Security Threats Explained

It is true, having your voice and data running on the same infrastructure leaves your telecommunications particularly vulnerable to all the security threats inherent in an IP network. Viruses, Trojan Horses, and worms can all wreak havoc on a network, and having your voice network go down for even the shortest time is intolerable for most business. Read on to find out more...

Advantages of the VoIP Phone

Are you tired of paying too much for your long distance calls? If you make domestic or International long distance telephone calls you should consider subscribing to VoIP. VoIP subscribers are able to make and receive calls the same way as they would over conventional phone lines, but at a much lower cost than traditional long distance carriers for long distance and international phone calls. Read on to find out more....

 

VoIP Phone Hardware - What Hardware Do I Need To Setup My VoIP phone?

Most VoIP companies sell all the hardware needed to set up and begin using a VoIP service from a home computer. In the event that you are buying separate components for setting up a home VoIP service there is some installation to be done and a minimum amount of VoIP hardware needed. Read on to find out more...

 

Home VoIP - It’s Free but not for me?

Why when the majoritory of todays advertising on voip is based around free call s and free services is there still  a distrust  and a reluctance to move from mobiles and PSTN land lines. This article looks into the reasons why people are still shy of moving to a voip line. Read on to find out more....