John Saunders Photography
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("
    ") 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("
") %>
Visit The Photography Network - PictureSocial
About Me
Based in Gloucestershire and available for all types of photographic assignments - Weddings, events, portraits. Creative and imaginative photographs to suit everyone.

Location:Lechlade, Gloucs
 
Photo:

Welcome
All types of photography assignments undertaken. Call 01367 250222 or 07740 120536 for details.
Enjoy browsing the galleries.
LEAVE SOME FEEDBACK!
Click on BUY PRINT to obtain a copy of any photo or email me for alternative file purchase (e.g. via Paypal)
www.john.saunders@excite.com
Leave a Message
Click here
to get in touch!
Comments
1 comments in this gallery
Click here to read them
Search Gallery
Find:  
Photos   Collections  
Advanced Search
Communities
  • Digital Art
  • Portrait Photography
  • Portrait Photography
  • portraits/studio work
    • Gallery Stats
    Hits (today):0
    Hits (this week):161
    Hits (this month):161
    Hits (this year):15766
    Hits (all-time):42738
    Collections:23
    Browser Configuration
    Optimise Now!
    Change the way photos appear on your browser, to your own taste and connection speed!
    Chatroom
    Click here for my live chatroom!
    Top Photographs This Week
    1 IMG_4309.jpg     Highworth Triathlon 2008  (10)
    2 IMG_4307.jpg     Highworth Triathlon 2008  (9)
    3 IMG_4311.jpg     Highworth Triathlon 2008  (8)
    4 IMG_4312.jpg     Highworth Triathlon 2008  (7)
    5 IMG_4313.jpg     Highworth Triathlon 2008  (7)
    6 IMG_4323.jpg     Highworth Triathlon 2008  (6)
    7 IMG_4339.jpg     Highworth Triathlon 2008  (6)
    8 IMG_4316.jpg     Highworth Triathlon 2008  (6)
    9 IMG_4314.jpg     Highworth Triathlon 2008  (6)
    10 IMG_4349.jpg     Highworth Triathlon 2008  (5)
    Most Recent Collections
    Fairford 10k race 2009 (433 images)
    Photographs of the Fairford 10k road race 7th June 2009
    Digital downloads are available from

    Fairford 10k race 2009
    Felix's 80th Birthday (34 images)
    Bullfrog Blues at the Sun Inn, Marlborough (44 images)
    Highworth Five Mile Race 2009 (711 images)
    Photos from the Highworth Runners 5 Mile Race held on Sunday 19th April 2009
    Highworth Half Marathon 2009 (274 images)
    Photos of the Highworth Invitation Half Marathon Sunday 18th January 2009
    Sally and Mike's Christmas Party 2008 (120 images)
    Pinewood Old Girls Netball vs St Hugh's 2008 (54 images)
    Pinewood Old Boys Rugby vs St Hugh's 2008 (144 images)
    Cerney Wick Stompers 17th Oct 2008 (90 images)
    Davies Wedding extra photos (6 images) Passworded
    Highworth Triathlon 2008 (338 images)
    Davies Wedding Evening Function (72 images) Passworded
    [ More collections | Calendar ]
    Links to other Photographs by John Saunders
    Fairford 10k race 2009 Digital downloads





    Images of France
    Motorcycles
    Wildlife
    General photos
    Aircraft
    Night photos





    Top Photo


    (10 hits)
    Highworth Triathlon 2008
    Links
  • J S Photography
  • Click here to buy John Saunders Photography stock photos at Imagefile.com
  • John Saunders Stock Photography portfolio on NFZ
  • istockphoto.com
  • BLOG
    • Groups
  • Portraits
    • Connections

    Visitor Map
    Create your own visitor map!
    eXTReMe Tracker

    © John Saunders
    Gallery hosted by Fotopic.Net - get your own photo gallery now!
    07957