Climate Change Weathering Heights - Roger Hill's Weather Forecasting Service

<% Option Explicit Response.Buffer = True %> <% Dim ThisDay, ThisDate ThisDate = Date ThisDay = WeekdayName(Weekday(ThisDate)) %> <% 'define variables for use in writing forecasts and routing Dim int_day_dev, int_hour_dev, int_year_dev, int_day_kdr, int_hour_kdr, int_year_kdr Dim str_nws_dev, str_am_dev, str_pm_dev, str_tonight_dev, str_need_dev, str_head_dev, str_tomorrow_dev, str_tomnite_dev, str_extended_dev Dim str_nws_kdr, str_am_kdr, str_pm_kdr, str_tonight_kdr, str_need_kdr, str_head_kdr, str_tomorrow_kdr, str_tomnite_kdr, str_extended_kdr Dim strQuery 'as query string strQuery = "SELECT * FROM forecast" conn_wdev.open "dsn=wdevnews" set cmd_wdev.activeconnection = conn_wdev rsForecast_wdev.Open strQuery,conn_wdev Do While Not rsForecast_wdev.EOF int_day_dev = rsForecast_wdev("day") int_hour_dev = rsForecast_wdev("hour") int_year_dev = rsForecast_wdev("year") str_nws_dev = rsForecast_wdev("nws") str_am_dev = rsForecast_wdev("am") str_pm_dev = rsForecast_wdev("pm") str_tonight_dev = rsForecast_wdev("tonight") str_need_dev = rsForecast_wdev("need") str_head_dev = rsForecast_wdev("head") str_tomorrow_dev = rsForecast_wdev("tomorrow") str_tomnite_dev = rsForecast_wdev("tomnite") str_extended_dev = rsForecast_wdev("extended") rsForecast_wdev.MoveNext loop conn_wdev.close set conn_wdev = nothing strQuery = "SELECT * FROM forecast" conn_wkdr.open "dsn=wkdrnews" set cmd_wkdr.activeconnection = conn_wkdr rsForecast_wkdr.Open strQuery,conn_wkdr Do While Not rsForecast_wkdr.EOF int_day_kdr = rsForecast_wkdr("day") int_hour_kdr = rsForecast_wkdr("hour") int_year_kdr = rsForecast_wkdr("year") str_nws_kdr = rsForecast_wkdr("nws") str_am_kdr = rsForecast_wkdr("am") str_pm_kdr = rsForecast_wkdr("pm") str_tonight_kdr = rsForecast_wkdr("tonight") str_need_kdr = rsForecast_wkdr("need") str_head_kdr = rsForecast_wkdr("head") str_tomorrow_kdr = rsForecast_wkdr("tomorrow") str_tomnite_kdr = rsForecast_wkdr("tomnite") str_extended_kdr = rsForecast_wkdr("extended") rsForecast_wkdr.MoveNext loop conn_wkdr.close set conn_wkdr = nothing %> Climate Change Weathering Heights - Roger Hill's Weather Forecasting Service