<% sortby = Request.QueryString("sortby") Set dbase = Server.CreateObject("ADODB.Connection") dbase.Open "gallery" if sortby = "name" then Set List = dbase.Execute(" SELECT * FROM gallery order by lname ") label = "Name" elseif sortby = "cdate" then Set List = dbase.Execute("SELECT * FROM gallery order by cdate desc") label = "Date" else Set List = dbase.Execute("SELECT * FROM gallery order by hits desc") label = "Hits" end if %> , ASTER, Advanced Spaceborne Thermal Emission and Reflection Radiometer, Image Gallery, Images, Remote, Sensing, Spectra, Spectral, Radiometer, Reflectance, Reflection, Thermal, Emission, Emissivity, Terra, EOS-AM1, EOS, MODIS, MISR, CERES,MOPITT, Satellite, Spectral Imager, Imager, Geology, Remote Sensing, spaceborne, mineral mapping, mapping, geological mapping, VNIR, SWIR, TIR, sun synchronous, Jet Propulsion Laboratory, JPL, NASA, National Aeronautics and Space Administration, asterweb.jpl.nasa.gov"> ASTER Image Gallery List by <%=label%>
<% x = 0 hits = 0 Do While Not List.EOF x = x+1 hits = list("hits") + hits if list("rotation") then %> <% end if List.movenext loop %>
# Name Hits Date
<%= x %> "><%= list("lname") %> <%= FormatNumber(list("hits"), 0, 0, -1, -1) %> <%= FormatDateTime(list("cdate"),2) %>
Total: <%=FormatNumber(hits, 0, 0, -1, -1) %>

Please give credit for these images to:
NASA/GSFC/METI/ERSDAC/JAROS,
and U.S./Japan ASTER Science Team