This site is dedicated to our Western forefathers - for their endurance, for their perseverance, for their bravery, for their love of a way of life that is almost extinct today.


They are the patriarchs of our families, the defenders of our homes, and the champions of our heart. We salute your heroism, noble warriors.


Please copy and paste these images to your own computer. Images will be moved from time to time to discourage direct linking.


[Animals]    [Architecture]     [Backgrounds]    [Bars, Dividers]    [Cowboys]    [Indians]

[Miscellaneous]    [Paintings - Cowboy]   [Paintings - Indian]    [Photos - Cowboy]

[Plant Life]    [Range Gear & Tack]   [Transportation]    [Women]

["Out West" Index]    [E-Mail]   [Gallery Index]


- NOTICE -

These images have been collected from various newsgroups and public domain sources, and all are believed to be free of copyright. If you find an image within this collection that is not free for distribution, please contact us with this information, and we will either remove the image, or credit its author. These images are not to be resold, or included in any collections without the owner's permission.


<%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_553943.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_553943.xml") sourceFile = "http://www.text-link-ads.com/xml.php?k=VXVHLUGWCJ7IYM1FPX6W&l=asp-tla-1.1.4" 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, -1) 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,-1) 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 If numLinks > 0 Then Response.Write("") End If %>