<%@LANGUAGE="VBSCRIPT"%>
<%
response.buffer=true
function valData(this)
if len(this) > 0 then
this = trim(this)
valData = this
end if
end function
function fncGetDate(varDate)
if month(varDate) < 10 then
tmpMonth = "0" & month(varDate)
else
tmpMonth = month(varDate)
end if
if day(varDate) < 10 then
tmpDay = "0" & day(varDate)
else
tmpDay = day(varDate)
end if
tmpDate = tmpMonth & "/" & tmpDay & "/" & year(date)
fncGetDate = tmpDate
end function
function fncTextCond(ID)
valData(ID)
Select Case ID
Case 01
str = "Sunny"
Case 02
str = "Mostly Sunny"
Case 03
str = "Partly Sunny"
Case 04
str = "Occasional Clouds"
Case 05
str = "Hazy Sunshine"
Case 06
str = "Mostly Cloudy"
Case 07
str = "Cloudy"
Case 08
str = "Overcast"
Case 11
str = "Fog"
Case 12
str = "Showers"
Case 13
str = "Cloudy w/ Showers"
Case 14
str = "Partly Sunny w/ Showers"
Case 15
str = "T-Storms"
Case 16
str = "Mostly Cloudy w/ Storms"
Case 17
str = "Partly Sunny w/ Storms"
Case 18
str = "Rain"
Case 19
str = "Flurries"
Case 20
str = "Partly Cloudy w/Flurries"
Case 21
str = "Partly Sunny w/ Flurries"
Case 22
str = "Snow"
Case 23
str = "Mostly Cloudy w/ Snow"
Case 24
str = "Ice"
Case 25
str = "Sleet"
Case 26
str = "Freezing Rain"
Case 29
str = "Rain to Snow"
Case 30
str = "Hot"
Case 31
str = "Cold"
Case 32
str = "Windy"
Case 33
str = "Clear"
Case 34
str = "Mostly Clear"
Case 35
str = "Partly Clear"
Case 36
str = "Intermittant Clouds"
Case 37
str = "Hazy Moonlight"
Case 38
str = "Mostly Cloudy"
Case 39
str = "Partly Cloudy w/ Showers"
Case 40
str = "Mostly Cloudy w/ Showers"
Case 41
str = "Partly Cloudy w/ Storms"
Case 42
str = "Mostly Cloudy w/ Storms"
Case 43
str = "Partly Cloudy w/ Flurries"
Case 44
str = "Partly Cloudy w/ Snow"
End Select
fncTextCond = str
end function
%>
<%ON ERROR RESUME NEXT%>
<%
function fncGetDate(varDate)
if month(varDate) < 10 then
tmpMonth = "0" & month(varDate)
else
tmpMonth = month(varDate)
end if
if day(varDate) < 10 then
tmpDay = "0" & day(varDate)
else
tmpDay = day(varDate)
end if
tmpDate = tmpMonth & "/" & tmpDay & "/" & year(vardate)
fncGetDate = tmpDate
end function
function fncGetDay(tmpDate)
theDay = weekday(tmpDate)
Select Case theDay
Case 1
d = "Sunday"
Case 2
d = "Monday"
Case 3
d = "Tuesday"
Case 4
d = "Wednesday"
Case 5
d = "Thursday"
Case 6
d = "Friday"
Case 7
d = "Saturday"
End Select
fncGetDay = d
end function
function fncGetMonth(tmpDate)
theMonth = month(tmpDate)
Select Case theMonth
Case 1
m = "January"
Case 2
m = "February"
Case 3
m = "March"
Case 4
m = "April"
Case 5
m = "May"
Case 6
m = "June"
Case 7
m = "July"
Case 8
m = "August"
Case 9
m = "September"
Case 10
m = "October"
Case 11
m = "November"
Case 12
m = "December"
End Select
fncGetMonth = m
end function
%>
AccessNorthGa.com - North Georgia's Newsroom
<%
datToday = Date()
intThisYear = Year(datToday) 'current year
intThisMonth = Month(datToday) 'current month
intThisDay = Day(datToday) 'current day
strMonthName = MonthName(intThisMonth) 'Name of month
%>
