%@ Language=VBScript %> <% Option Explicit %> <% Dim strTown, strMonths, strIndexes, strDisplayMonth, strDisplayMonthLc, arrIndex, arrMonth, arrAlpha, strOneMonth, strMonthsMedian, strCookiePresent strMonthsMedian = "Median,January,February,March,April,May,June,July,August,September,October,November,December,October,early May" 'store strMonthsMedian in array arrAlpha which will be accessed by the numeric in arrMonth in order 'to get the alpha month value. arrAlpha = Split(strMonthsMedian, ",", -1, 1) 'Get the cookies. "TownValues" defines the where in the calendar a particular month lies for the area 'it relates to. '"MonthValues" is sequenced to permit relacement of the median month (hardcoded throughout) with 'the month number for the current area. strTown = (Request.Cookies("WeatherTown")("Town")) strMonths = (Request.Cookies("WeatherTown")("TownValues")) strIndexes = (Request.Cookies("WeatherTown")("MonthValues")) strDisplayMonth = (Request.Cookies("WeatherTown")("CurrentMonth1")) arrIndex = Split(strIndexes, ",",-1,1) 'Has the user eneterd a location - if so use relevant months, if not use median months. If Request.Cookies("WeatherTown").HasKeys then arrMonth = Split(strMonths, ",", -1, 1) ' strDisplayMonth = arrMonth(6) strCookiePresent = "Y" else arrMonth = Split(strMonthsMedian, ",", -1, 1) strDisplayMonth = arrMonth(6) strCookiePresent = "N" end If strDisplayMonthLc = strDisplayMonth %>
|
|
|||||||
|
|
| ||||||
|
UK Weather Settings USA Weather Settings |
|||||||
CLICK HERE FOR NEXT DECIDUOUS SHRUB PAGE
|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||