<% 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
Site Navigation
Home
Projects & Information
   »General Information
   »Wind turbine Projects
   »The F&P Smartdrive
   »Electronic projects
   »Microcontroller projects
   »Miscellaneous
Kits & Parts
   »Basicly Natural Pty Ltd
   »PVC & Aluminium blades
   »Scale model farm windmills
   »Price Watch
Discussion Forums

Handy Links
   »Wind
   »Solar
   »Electric Vehicles
   »Electronics
   »Micro Controllers
   »General Interrest
About TheBackShed
Getting Started
Privacy Policy
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 %>