For U.S. weather, please enter your Zip Code below:

For International Weather, Select your city below:

Select a City <% 'This pulls all of the possible intl cities and displays them in a pull-down list. Set fs = Server.CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile("d:\inetpub\wwwroot\accuweather\level7_wor2500.txt") do while not ts.AtEndofStream = true line = ts.ReadLine first = 1 last = instr(first, line, "|") numChar = last - first IntlCity = mid(line, first, numChar) Response.write("" & IntlCity & "") loop ts.close %>