<% 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">

<%= list("lname")%> <% if x = 1 then %> <% else Do While Not files.EOF %> <% files.movenext %> <% loop end if %> Click Image to Enlarge ">" 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 ">" 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 ">" 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 %>