Weather

You know what it's like. You can't catch a wave from your lounge. No waves and you're just a lizard like the rest. So we've put together the Fukwit weather page, the forecast for the best surf spots. Always happy to help we've also put in some handy hints about what you could wear while your there. There's being cool or being cold you know!

Please Select your area <% For i = 0 TO UBOUND (arrTowns,1) If intTownSelect = arrTowns(i,0) Then %> <%=arrTowns(i,1)%> <%Else%> <%=arrTowns(i,1)%> <% End IF Next %>

<% 'Loop through each ROW eleement to display data For i = 0 To (intNoOfElements-1) Set objHdl = objLst.item(i) 'Ok First Lets use Instr to find out where thw word max is Dim intMaxInStr, intMaxTemp, strClothingType, strClothingText intMaxInStr = inStr(objHdl.childNodes(2).text,"Max") 'Response.Write(intMaxInStr) 'Now lets find out what the Max Temperature is intMaxTemp = Mid(objHdl.childNodes(2).text,intMaxInStr + 5,2) 'Response.Write intMaxTemp 'What clothing should they wear Dim strClothingTextMens,strClothingTextWomens,strClothingTypeMens,strClothingTypeWomens strClothingTextMens = "Blokes" strClothingTextWomens = "Girls" Select Case intMaxTemp Case "1C","2C","3C","4C","5C","6C","7C","8C","9C" strClothingTypeMens = "http://www.fukwit.co.uk/menswear2.html" strClothingTypeWomens = "http://www.fukwit.co.uk/womenswear4.html" 'strClothingText = "Need to stay Warm, but look cool then check out these Fukwit ideas" Case "10","11","12","13","14" strClothingTypeMens = "http://www.fukwit.co.uk/menswear3.html" strClothingTypeWomens = "http://www.fukwit.co.uk/womenswear3.html" 'strClothingText = "It ain't gonna be too cold. Check out what you should be wearing" Case Else strClothingTypeMens = "http://www.fukwit.co.uk/menswear.html" strClothingTypeWomens = "http://www.fukwit.co.uk/womenswear.html" 'strClothingText = "Look cool and stay cool - Check out the selection" End Select Response.Write "" 'This will Display the Day Response.Write "" 'This will Display Weather Description Response.Write "" 'This will Display What clothes i shall wear link Response.Write "" 'This will Dispaly more details link Response.Write "" 'This will Display Directory Text 'response.Write "" Next 'Now we need to add disclaimer text. This is very important and must always be present Response.Write "" Response.Write "" Response.Write "" %>

Day	Weather Forecast	What shall i be wearing?	More Detailed Weather Info
" 'Response.Write ("") Response.Write (objHdl.childNodes(0).text) Response.Write "	" Response.Write(objHdl.childNodes(2).text & " ") Response.Write "	" 'Response.Write(objHdl.childNodes(1).text) Response.Write "" & strClothingTextMens & "  " Response.Write "" & strClothingTextWomens & "" Response.Write "	" Response.Write ("More Detail") Response.Write "	" 'If values in the XML are Emtpy you can use this to check for a NULL value 'if Not IsNull(objHdl.childNodes(1)) then 'You can also use this method to return the XML (Select Single Node) as opposed to childNodes - Up to you really! 'strDirectoryText = objHdl.selectSingleNode("title").text 'response.Write strDirectoryText 'end if 'response.Write "
" 'We no longer want to use the item eleement - we now want to get the data from the channel element Set objLst = objXML.getElementsByTagName("channel") Set objHdl = objLst.item(0) 'Write out Powered by Message and disclaimer Response.Write(objHdl.childNodes(2).text & ". " & objHdl.childNodes(4).text & ". " &" " & "Powered By: " & objHdl.childNodes(7).text ) Response.Write "

If you want more Surf Reports then check out the BBC website