<% name = Request.QueryString("name") response.redirect "http://asterweb.jpl.nasa.gov/gallery-detail.asp?name=" & name Set dbase = Server.CreateObject("ADODB.Connection") dbase.Open "gallery" Set List = dbase.Execute("SELECT * FROM gallery WHERE name = '" & name & "'") dbase.execute("update gallery set hits = " & (list("hits") + 1) & " where name = '" & name & "'") set files = dbase.execute("select * from picture where name = '" & name & "' order by sort") x = 0 Do While Not files.EOF x = x + 1 files.movenext loop files.movefirst desc = list("ldesc") desc = replace(desc,"""","") %> , 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("lname")%>
<%= list("lname")%> <% if x = 1 then %> <% else Do While Not files.EOF %> <% files.movenext %> <% loop end if %>
Click Image to Enlarge
"><%=files(" border="4" src="images/med/<%if files("movie") then %><%=files("thumb")%><%else%><%=files("file")%><%end if%>">
 ( <%= ucase(right(files("file"),3))%>) ( <%=files("size")%>) ( <%=files("resol")%> )
Click Image to Enlarge
"><%=files(" border="4" src="images/med/<%if files("movie") then %><%=files("thumb")%><%else%><%=files("file")%><%end if%>">
 ( <%= ucase(right(files("file"),3))%>) ( <%=files("size")%>) ( <%=files("resol")%> )
<% if not files.eof then %>
Click Image to Enlarge
"><%=files(" border="4" src="images/med/<%if files("movie") then %><%=files("thumb")%><%else%><%=files("file")%><%end if%>">
 ( <%= ucase(right(files("file"),3))%>) ( <%=files("size")%>) ( <%=files("resol")%> ) <% files.movenext end if %>
<%=desc%>
<% dbase.close %>