<% Blog=checkitnum(request.querystring("Blog")) BlogFeed="None" if Blog=1 then BlogFeed="phill-ax320" if Blog=2 then BlogFeed="ax400-1" Function checkitNum(tempT1) tempT2=Cstr(tempT1 & "") tempT3=trim(tempT2) if isnumeric(tempT3)=false then tempT3="0" checkitNum=tempT3*1 end Function Function getXML(sourceFile, styleSheet) dim styleFile dim source, style styleFile = Server.MapPath(styleSheet) Dim xmlhttp Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") xmlhttp.Open "GET", sourceFile, false xmlhttp.Send set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadxml(xmlhttp.ResponseText) set style = Server.CreateObject("Microsoft.XMLDOM") style.async = false style.load(styleFile) getXML = source.transformNode(style) set source = nothing set style = nothing End Function %>
Home Page
  Home  |  Contents  |  Forum
Print
Blogs
<% If BlogFeed="None" then %>

Below are some blog feeds from members of TheBackShed's forum. This is a new feature on TheBackShed.com, and I'll add to it over the next few months.

Phills AX 320 build

Phills AX 400 build

Glenns Rants

Its my web site, and I'll rant if I want to!

     
<% else %>
<% response.write "

<<Back to the Blog index.

" response.write getXML("http://" & BlogFeed & ".tumblr.com/rss","XMLStyle.xsl") end if %>