<% 'This file starts out as WxTags.htx. The WeatherLink software replaces tags of the form ' with current data, names the resulting file WxTags.asp, and uploads it 'to the web site. 'The purpose of this is to initialize a number of VBScript variables with data from the weather 'station. The file WxTags.asp is included in other ASP files which use the variables. wlDate="" wlTime="" wlUTCTime="" wlUTCDate="" wlStationDate="" wlStationTime="" wlStationName="" wlStationCity="" wlStationState="" wlStationElevation="" wlSunriseTime="" wlSunsetTime="" 'Set default lat/lon. wlStationLatitude = "----" wlStationLongitude = "----" 'Note: StationLatitude and StationLongitude contain the double-quote (") chaacter. 'To assign these values to VBScript variables, it is necessary either to put them in a separate 'text file, and have the script read from the file into the variables, or else hard code 'the values as in the following commented-out example. (Note the double double-quote.) ' wlStationLatitude = " 40° 07' 59"" N" ' wlStationLongitude = " 75° 03' 03"" W" 'Create FileSystemObject object Set FS = Server.CreateObject("Scripting.FileSystemObject") 'Read lat/lon from file latlon.txt if it exists if FS.FileExists(Server.MapPath("latlon.txt")) then Set TF = FS.OpenTextFile(Server.MapPath("latlon.txt"),1) if not TF.AtEndOfStream then wlStationLatitude = TF.ReadLine if not TF.AtEndOfStream then wlStationLongitude = TF.ReadLine TF.Close set TF=nothing end if 'Release FileSystemObject object set FS=nothing wlTempUnit="" wlHumUnit="" wlWindUnit="" wlBarUnit="" wlRainUnit="" wlRateUnit="" wlAirDensityUnit="" wlEMCUnit="" wlInsideTemp="" wlHiInsideTemp="" wlLowInsideTemp="" wlHiInsideTempTime="" wlLowInsideTempTime="" wlHiMonthlyInsideTemp="" wlLowMonthlyInsideTemp="" wlHiYearlyInsideTemp="" wlLowYearlyInsideTemp="" wlOutsideTemp="" wlHiOutsideTemp="" wlLowOutsideTemp="" wlHiOutsideTempTime="" wlLowOutsideTempTime="" wlHiMonthlyOutsideTemp="" wlLowMonthlyOutsideTemp="" wlHiYearlyOutsideTemp="" wlLowYearlyOutsideTemp="" wlInsideHumidity="" wlHiInsideHumidity="" wlLowInsideHumidity="" wlHiInsideHumidityTime="" wlLowInsideHumidityTime="" wlHiMonthlyInsideHumidity="" wlLowMonthlyInsideHumidity="" wlHiYearlyInsideHumidity="" wlLowYearlyInsideHumidity="" wlOutsideHumidity="" wlLowHumidity="" wlHiHumidity="" wlLowHumTime="" wlHiHumTime="" wlHiMonthlyHumidity="" wlLowMonthlyHumidity="" wlHiYearlyHumidity="" wlLowYearlyHumidity="" wlBarometer="" wlBarTrend="" wlLowBarometer="" wlHiBarometer="" wlLowMonthlyBarometer="" wlHiMonthlyBarometer="" wlLowYearlyBarometer="" wlHiYearlyBarometer="" wlLowBarometerTime="" wlHiBarometerTime="" wlWindSpeed="" wlWind10Avg="" wlHiWindSpeed="" wlHiWindSpeedTime="" wlHiMonthlyWindSpeed="" wlHiYearlyWindSpeed="" wlWindDir="" wlWindDirection="" wlWindChill="" wlLowWindchill="" wlLowWindchillTime="" wlLowMonthlyWindchill="" wlLowYearlyWindchill="" wlTotalRain="" wlDailyRain="" wlMonthlyRain="" wlStormRain="" wlRainRate="" wlHiRainRate="" wlHiRainRateTime="" wlHiRainRateHour="" wlHiMonthlyRainRate="" wlHiYearlyRainRate="" wlOutsideDewPt="" wlHiDewpoint="" wlLowDewpoint="" wlHiDewpointTime="" wlLowDewpointTime="" wlHiMonthlyDewpoint="" wlLowMonthlyDewpoint="" wlHiYearlyDewpoint="" wlLowYearlyDewpoint="" wlInsideDewPt="" wlOutsideHeatIndex="" wlHiHeatindex="" wlHiHeatindexTime="" wlHiMonthlyHeatindex="" wlHiYearlyHeatindex="" wlInsideHeatIndex="" wlTHW="" wlEMC="" wlAirDensity="" wlForecastStr = "" wlMoonPhaseStr = "" wlWindAvg1 = "" wlWindAvg2 = "" wlWindAvg5 = "" wlWindAvg10 = "" wlWindHigh1 = "" wlWindHigh2 = "" wlWindHigh5 = "" wlWindHigh10 = "" %>