| 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("
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
Mozilla Firefox Free Download Proves that Good Things Come for Free
What Makes Mozilla's Firefox Attractive?
|
| Home | Site Map | This Site Is For Sale | Develop Your Domain Names |