%@ Language=VBScript %>
Two earthquake databases are searched. One is for earthquakes from 1833 to 1969 from DOGAMI OF-94-04, and the other is the University of Washington earthquake catalog from 1969 to <% dim fso, f, fileDate set fso = CreateObject("Scripting.FileSystemObject") set f = fso.GetFile("D:\Inetpub\wwwroot\NW-Quake\QuakeData\allloc.dat") 'Response.Write(f.DateLastModified) ' CDate returns a Variant of subtype Date ... this will allow us to controlt the formatting fileDate = CDate(f.DateLastModified) Response.Write(fileDate) ' Above is string of form "7/10/00 12:30:03 AM" ' The following is the same as the above but in JScript ... ' %>.
This service will be updated later to provide a map interface for locating earthquakes.
This page is intended for locating historic earthquakes. For information on recent earthquakes please go to the Pacific Northwest Seismic Network at the University of Washington.
If you know a place name, but don't know it's latitude and longitude, click here for index of names with locations. Locations must be in decimal degrees.
This page allows you to search for earthquakes by entering a location and distance, or by specifying a rectangular region.