Royalty Free Images CosmoLinks.org <%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_304291.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_304291.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=1OJKKVQ2XDWM7GT7DNP9&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("") %>
Visit The Photography Network - PictureSocial
Fotolia Ruff Wear Cell Phone Chargers Stock photography by John+Saunders at Alamy
John Saunders Photography
2009
 

Wed 21st Oct 2009
Private folder (P)

Sat 3rd Oct 2009
Mike Buss 48hr Treadmill run

Wed 23rd Sep 2009
Highworth Triathlon 2009
 

Wed 2nd Sep 2009
Out of the Blues at the Crown, Cerney Wick

Sun 23rd Aug 2009
Highworth Pram Race 2009

Sun 7th Jun 2009
Fairford 10k race 2009
 

Tue 21st Apr 2009
Highworth Five Mile Race 2009

Mon 19th Jan 2009
Highworth Half Marathon 2009
[ index | top of page ]
2008
 

Tue 23rd Sep 2008
Highworth Triathlon 2008

Visitor Map
Create your own visitor map!
eXTReMe Tracker