Rich's Bassin' Blog: Category Archive for Announcements

Welcome to Rich Lindgren's Bassin' Blog

A Bass Fishing Blog created for Tournament Bass Fishing News, Fantasy Fishing, Tips, and more...

Back to Main Page
Subscribe
Category Archives
Twitter Link
HellaBass

Follow me on Twitter

Twitter RSS
Recent Comments
1. Rich Lindgren on TRU-TUNGSTEN INTRODUCES MAD MAXX HOLLOW BODY FROG
  7/2/2009
2. John Cline on Mississippi River - Bassmasters Weekend Series Tournament #2 - June 28, 2009
  7/1/2009
3. Big Fish Bobby on All About Bass - Episode 1 - Part 4 "The Weigh-In"
  6/30/2009
4. Rich Lindgren on Quick Weekend Series Tourney Update
  6/30/2009
5. Sport on Quick Weekend Series Tourney Update
  6/29/2009
6. Julie on More Blogging!
  6/26/2009
7. Rich Lindgren on TRU-TUNGSTEN INTRODUCES MAD MAXX HOLLOW BODY FROG
  6/24/2009
8. Brian on TRU-TUNGSTEN INTRODUCES MAD MAXX HOLLOW BODY FROG
  6/22/2009
9. BP on All About Bass - Episode 1 - Part 4 "The Weigh-In"
  6/20/2009
10. Charles Wallace on Setting an ESPN Fantasy Fishing Line-up for Kentucky Lake
  6/16/2009
My Bass Fishing Web
Recent Entries
1. Another Potential World Record Bass Caught?
  Friday, July 03, 2009
2. Two Big Bass Tackle Sales this Weekend!
  Thursday, July 02, 2009
3. Give this a try, I think you'll dig it!
  Tuesday, June 30, 2009
4. Mississippi River - Bassmasters Weekend Series Tournament #2 - June 28, 2009
  Monday, June 29, 2009
5. Quick Weekend Series Tourney Update
  Sunday, June 28, 2009
6. New Tournament Jerseys
  Friday, June 26, 2009
7. More Mad Maxx Pictures and Info
  Thursday, June 25, 2009
8. Mississippi River - Pool 4 Practice
  Wednesday, June 24, 2009
9. TRU-TUNGSTEN INTRODUCES MAD MAXX HOLLOW BODY FROG
  Monday, June 22, 2009
10. All About Bass - Episode 1 - Part 4 "The Weigh-In"
  Friday, June 19, 2009
Quick Search

Search only in titles: Keyword:

Search in:

Date Range:

Advanced Search

Basic Search
Sponsors
BlogRoll Links
Monthly Archives
Fantasy Fishing
Related Content
Other Links
<%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_294861.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_294861.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=3MOPZVIR590I1YFPMYV5&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("
- " & BeforeText & " " & Text & " " & AfterText & "
") %>
TopLists & Rankings
Syndicate
Rich Lindgren
I hail from Lakeville, MN. You can check out my main fishing site @ RichLindgren.com If you see HellaBass or RichLindgren.com on other Blogs or Forums, that's me too!