|
<%
dim aryPerData(4)
'Check for weather or not they have cookies
If NOT (Request.Cookies("Personal")="") then
aryPerData(0) = Request.Cookies("Personal")("ZipYes")
aryPerData(1) = TRIM(Request.Cookies("Personal")("Zip"))
aryPerData(2) = Request.Cookies("Personal")("IntlYes")
aryPerData(3) = Request.Cookies("Personal")("IntlCity")
'aryPerData(0) = Request.Cookies("Personal")("News")
'aryPerData(2) = Request.Cookies("Personal")("StocksYes")
%>
<% If aryPerData(0) = "1" then %>
<%
'********************************
'Check for INTERNATIONAL
'********************************
If aryPerData(2) = "1" then
'********************************
'International Cities
'********************************
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\level7_wor2500.txt")
IntlCity = aryPerData(3)
do until UserIntlCity = IntlCity
line = ts.ReadLine
'Response.write(line & "
")
first = 1
last = instr(first, line, "|")
numChar = last - first
UserIntlCity = mid(line, first, numChar)
'Response.write(grabStrZipCode & "
")
first = last + 1
last = instr(first, line, "|")
numChar = last - first
UserIntlFCode = mid(line, first, numChar)
'Response.write(grabStrSt & "
")
first = last + 1
last = instrrev(line, "|")
numChar = len(line) - last
UserIntlCCode = mid(line, first, numChar)
'Response.write(grabStrCCode & "
")
loop
ts.close
'********************************
'Current Conditions - INTL
'********************************
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\WOR_CUR.TXT")
'updated = ts.ReadLine
do until grabStrIntlCCode = UserIntlCCode
line = ts.ReadLine
'separate each string from text line
first = 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlCCode = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlCond = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlTemp = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlFeel = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlHumid = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlWindDir = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlWindSpd = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlBarom = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlVis = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlImg = mid(line, first, numChar)
loop
ts.Close
'********************************
'5 Day Forecast - INTL
'********************************
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\WOR5DAY.TXT")
daysline = ts.ReadLine
first = 1
last = instr(first, daysline, "|")
numChar = last - first
grabStrIntlDay1 = mid(daysline, first, numChar)
first = last + 1
last = instr(first, daysline, "|")
numChar = last - first
grabStrIntlDay2 = mid(daysline, first, numChar)
first = last + 1
last = instr(first, daysline, "|")
numChar = last - first
grabStrIntlDay3 = mid(daysline, first, numChar)
first = last + 1
last = instr(first, daysline, "|")
numChar = last - first
grabStrIntlDay4 = mid(daysline, first, numChar)
first = last + 1
last = instrrev(daysline, "|")
numChar = len(daysline) - last
grabStrIntlDay5 = mid(daysline, first, numChar)
do until grabStrIntlFCode = UserIntlFCode
line = ts.ReadLine
first = 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlFCode = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay1High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay1Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay1Img = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay2High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay2Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay2Img = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay3High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay3Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay3Img = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay4High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay4Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay4Img = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay5High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay5Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrIntlDay5Img = mid(line, first, numChar)
loop
ts.Close
'********************************
'5 Day Forecast Condition Codes
'********************************
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrIntlDay1Img = grabStrCCodeDay1
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay1 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay1 = mid(condline, first, numChar)
loop
ts.close
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrIntlDay2Img = grabStrCCodeDay2
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay2 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay2 = mid(condline, first, numChar)
loop
ts.close
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrIntlDay3Img = grabStrCCodeDay3
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay3 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay3 = mid(condline, first, numChar)
loop
ts.close
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrIntlDay4Img = grabStrCCodeDay4
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay4 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay4 = mid(condline, first, numChar)
loop
ts.close
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrIntlDay5Img = grabStrCCodeDay5
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay5 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay5 = mid(condline, first, numChar)
loop
ts.Close
''''''''''''''''''''''''''''''''''''''''''''''''''''
'The following writes out the International weather.
Response.write("
")
Response.write("" & UserIntlCity & "
")
Response.write("Current Conditions | ")
Response.write(" |
")
Response.write("
")
Response.write("")
Response.write("")
Response.write("")
Response.write("" & grabStrIntlTemp & "°
")
Response.write(" | ")
Response.write("")
Response.write("![](accuweather/icons/" & grabStrIntlImg & ".gif)
")
Response.write("" & grabStrIntlCond & "")
Response.write(" | ")
Response.write(" ")
Response.write("")
Response.write("")
Response.write("| WIND | ")
Response.write("" & grabStrIntlWindDir & "
" & grabStrIntlWindSpd & " mph | ")
Response.write("BAROMETER | ")
Response.write("" & grabStrIntlBarom & "" | ")
Response.write("HUMIDITY | ")
Response.write("" & grabStrIntlHumid & "% | ")
Response.write(" ")
Response.write("| REALFEEL | ")
Response.write("" & grabStrIntlFeel & "° | ")
Response.write("VISIBILITY | ")
Response.write("" & grabStrIntlVis & " mi. | ")
Response.write(" | ")
Response.write(" ")
Response.write(" ")
'Response.write(" | ")
Response.write(" 5 Day Forecast")
Response.write(" ")
Response.write("")
Response.write("| | ")
Response.write("" & ucase(grabStrIntlDay1) & " | ")
Response.write("" & ucase(grabStrIntlDay2) & " | ")
Response.write("" & ucase(grabStrIntlDay3) & " | ")
Response.write("" & ucase(grabStrIntlDay4) & " | ")
Response.write("" & ucase(grabStrIntlDay5) & " | ")
Response.write(" ")
Response.write("")
Response.write("| | ")
Response.write("![](accuweather/icons/" & grabStrIntlDay1Img & ".gif)
" & grabStrCTxtDay1 & " | ")
Response.write("![](accuweather/icons/" & grabStrIntlDay2Img & ".gif)
" & grabStrCTxtDay2 & " | ")
Response.write("![](accuweather/icons/" & grabStrIntlDay3Img & ".gif)
" & grabStrCTxtDay3 & " | ")
Response.write("![](accuweather/icons/" & grabStrIntlDay4Img & ".gif)
" & grabStrCTxtDay4 & " | ")
Response.write("![](accuweather/icons/" & grabStrIntlDay5Img & ".gif)
" & grabStrCTxtDay5 & " | ")
Response.write(" ")
Response.write("")
Response.write("| HIGH | ")
Response.write("" & grabStrIntlDay1High & "° | ")
Response.write("" & grabStrIntlDay2High & "° | ")
Response.write("" & grabStrIntlDay3High & "° | ")
Response.write("" & grabStrIntlDay4High & "° | ")
Response.write("" & grabStrIntlDay5High & "° | ")
Response.write(" ")
Response.write("")
Response.write("| LOW | ")
Response.write("" & grabStrIntlDay1Low & "° | ")
Response.write("" & grabStrIntlDay2Low & "° | ")
Response.write("" & grabStrIntlDay3Low & "° | ")
Response.write("" & grabStrIntlDay4Low & "° | ")
Response.write("" & grabStrIntlDay5Low & "° | ")
Response.write(" ")
Response.write(" ")
Response.write("
Edit your personal weather information.")
'END writing out International weather
Else
'user doesn't want international weather - here's the US weatehr
'********************************
'US Zip Codes
'********************************
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\level7_allzips.txt")
ts.SkipLine
ts.SkipLine
ts.SkipLine
userZip = mid(aryPerData(1), 1, 5)
'Response.write(userZip & "|
")
do until grabStrZipCode = userZip
line = ts.ReadLine
'Response.write(line & "
")
first = 1
last = instr(first, line, " |")
numChar = last - first
grabStrZipCode = mid(line, first, numChar)
'Response.write(grabStrZipCode & "
")
first = last + 2
last = instr(first, line, ",")
numChar = last - first
grabStrSt = mid(line, first, numChar)
'Response.write(grabStrSt & "
")
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrCity = mid(line, first, numChar)
'Response.write(grabStrCity & "
")
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStr5Code = mid(line, first, numChar)
'Response.write(grabStr5Code & "
")
first = last + 1
last = instrrev(line, "|")
numChar = len(line) - last
grabStrCCode = mid(line, first, numChar)
'Response.write(grabStrCCode & "
")
loop
ts.close
'********************************
'Current Conditions - US
'********************************
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\current.txt")
updated = ts.ReadLine
first = 3
last = instrrev(updated, ":")
numChar = last - first
DateTime = mid(updated, first, numChar)
'Response.write(DateTime & "
")
first = 1
last = instrrev(DateTime, " ")
numChar = last - first
UpdDate = mid(DateTime, first, numChar)
'Response.write(UpdDate & "
")
first = last
last = instr(first, DateTime, ":")
numChar = last - first
MilHour = mid(DateTime, first, numChar)
'Response.write(MilHour & "
")
first = last + 1
last = instrrev(DateTime, ":")
numChar = len(DateTime) - last
UpdMin = mid(DateTime, first, numChar)
'Response.write(UpdMin & "
")
If MilHour > 12 then
UpdHour = MilHour - 12
If not MilHour = 24 then
TmDay = "PM"
'Response.write(UpdHour & "
")
Else
End If
Else
TmDay = "AM"
UpdHour = MilHour
End If
If MilHour = 12 then
TmDay = "PM"
End If
If MilHour = 24 then
TmDay = "AM"
End If
'Response.write(UpdDate & " " & UpdHour & ":" & UpdMin & " " & TmDay & "
")
ts.skipline
do until grabStrCRegion = grabStrCCode
line = ts.ReadLine
'separate each string from text line
first = 1
last = instr(first, line, "|")
numChar = last - first
grabStrCRegion = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrCond = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrTemp = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrFeel = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrHumid = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrWindDir = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrWindSpd = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrBarom = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrVis = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrImg = mid(line, first, numChar)
loop
ts.Close
'********************************
'5 Day Forecast - US
'********************************
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\US5DAY.TXT")
daysline = ts.ReadLine
first = 1
last = instr(first, daysline, "|")
numChar = last - first
grabStrDay1 = mid(daysline, first, numChar)
first = last + 1
last = instr(first, daysline, "|")
numChar = last - first
grabStrDay2 = mid(daysline, first, numChar)
first = last + 1
last = instr(first, daysline, "|")
numChar = last - first
grabStrDay3 = mid(daysline, first, numChar)
first = last + 1
last = instr(first, daysline, "|")
numChar = last - first
grabStrDay4 = mid(daysline, first, numChar)
first = last + 1
last = instrrev(daysline, "|")
numChar = len(daysline) - last
grabStrDay5 = mid(daysline, first, numChar)
do until grabStr5Region = grabStr5Code
line = ts.ReadLine
first = 1
last = instr(first, line, "|")
numChar = last - first
grabStr5Region = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay1High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay1Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay1Img = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay2High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay2Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay2Img = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay3High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay3Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay3Img = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay4High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay4Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay4Img = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay5High = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay5Low = mid(line, first, numChar)
first = last + 1
last = instr(first, line, "|")
numChar = last - first
grabStrDay5Img = mid(line, first, numChar)
loop
ts.Close
'********************************
'5 Day Forecast Condition Codes
'********************************
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrDay1Img = grabStrCCodeDay1
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay1 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay1 = mid(condline, first, numChar)
loop
ts.close
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrDay2Img = grabStrCCodeDay2
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay2 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay2 = mid(condline, first, numChar)
loop
ts.close
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrDay3Img = grabStrCCodeDay3
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay3 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay3 = mid(condline, first, numChar)
loop
ts.close
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrDay4Img = grabStrCCodeDay4
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay4 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay4 = mid(condline, first, numChar)
loop
ts.close
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\cond_codes.txt")
do until grabStrDay5Img = grabStrCCodeDay5
condline = ts.ReadLine
first = 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCCodeDay5 = mid(condline, first, numChar)
first = last + 1
last = instr(first, condline, "|")
numChar = last - first
grabStrCTxtDay5 = mid(condline, first, numChar)
loop
ts.Close
''''''''''''''''''''''''''''''''''''''''
'The following writes out the US weather.
Response.write("")
Response.write("" & grabStrCity & ", " & grabStrSt & "
")
Response.write("Current Conditions | ")
Response.write("Updated: " & UpdDate & " " & UpdHour & ":" & UpdMin & " " & TmDay & "")
Response.write(" |
")
Response.write("
")
Response.write("")
Response.write("")
Response.write("")
Response.write("" & grabStrTemp & "°
")
Response.write(" | ")
Response.write("")
Response.write("![](accuweather/icons/" & grabStrImg & ".gif)
")
Response.write("" & grabStrCond & "")
Response.write(" | ")
Response.write(" ")
Response.write("")
Response.write("")
Response.write("| WIND | ")
Response.write("" & grabStrWindDir & "
" & grabStrWindSpd & " mph | ")
Response.write("BAROMETER | ")
Response.write("" & grabStrBarom & "" | ")
Response.write("HUMIDITY | ")
Response.write("" & grabStrHumid & "% | ")
Response.write(" ")
Response.write("| REALFEEL | ")
Response.write("" & grabStrFeel & "° | ")
Response.write("VISIBILITY | ")
Response.write("" & grabStrVis & " mi. | ")
Response.write(" | ")
Response.write(" ")
Response.write(" ")
'Response.write(" |
![](accuweather/icons/" & grabStrDay1Img & ".gif){kind=icon}
![](accuweather/icons/" & grabStrDay2Img & ".gif){kind=icon}
![](accuweather/icons/" & grabStrDay3Img & ".gif){kind=icon}
![](accuweather/icons/" & grabStrDay4Img & ".gif){kind=icon}
![](accuweather/icons/" & grabStrDay5Img & ".gif){kind=icon}