Firefox add ons, articles and news

Home \| Site Map \| This Site Is For Sale \| Develop Your Domain Names
	Firefox add ons, articles and news

<%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_270677.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_270677.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=1E7F6Y47I4IK3YHRXNNB&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 & "

") %>
Using Firefox Add-ons
Do you use Mozilla`s Firefox web browser?

AllPeers Offers Mozilla Firefox Bundle to Simplify Growth of Private File Sharing Networks
Firefox® with AllPeers Adds Social Features to Popular Web Browser and Enhances Sharing with Family and Friends

Mozilla Firefox Free Download Proves that Good Things Come for Free
The official name of the Mozilla Application Suite developed by the Mozilla Foundation. It is also the public and original name but got changed recently to SeaMonkey suite. In informal terms, the name found usage in combination with other phrases related to the now-defunct Netscape Communications Corporation and the various application software that were related to it.

What Makes Mozilla's Firefox Attractive?
If you're much of a tech geek, you probably have at least heard of the "browser war" between Microsoft's Internet Explorer and Mozilla's Firefox. For years, Microsoft Internet Explorer has had a near monopoly on the browser market. Sure, they had a little competition from Netscape, but not much. That has all changed with Firefox. Mozilla's Firefox has put a large dent in the IE market share.