<%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_6728.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. Option Explicit Const ForReading = 1, ForWriting = 2 Dim LOCAL_XML_FILENAME, sourceFile, FSO LOCAL_XML_FILENAME = server.MapPath("local_6728.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=CCQKRDS3BBQTGEPGMVPB&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, xmlhttp, TextStream If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET", sourceFile, False xmlhttp.send "" Contents = xmlhttp.responseText Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True) TextStream.Write Contents TextStream.Close Set TextStream = nothing Contents = "" End If ' read local XML 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 ' 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("") Next Response.Write("

" & BeforeText) Response.Write(" " & Text & " " & AfterText) Response.Write("

") %>

Fundraising Resources • Art Fundraising • Best Fundraising Programs • Candles • Candy Fundraising • Consultants • Cookie Dough • Cookbook Fundraising • Discount Cards/Books • Fundraising Auctions • Fundraising Books • Fundraising sites • Magazine Fundraising • Merchandise Fundraising • Pizza Fundraiser • Popcorn Fundraiser • School Fundraising • Scratch Cards • Sports Fundraising • Fundraising Software • Computers & Technology • Education Grants • Fundraising Books • Fundraising Resources • Government Resources • Fundsnet Shopping • Fundraising Blog • Site Map