<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(server.mappath("/links/advance"))

dim dt, mostrecent
dt = "1/1/2000"

for each x in fo.files
  if  datediff("d", dt, x.datecreated) > 0 then 
	  dt = x.datecreated
	  mostrecent = x.name
  end if
next
set fo=nothing
set fs=nothing

response.redirect("/links/advance/" & mostrecent)

%>