%@ Language=VBScript%> <% dim last,y,m,d,m1,d1 y=year(date) m=month(date) d=day(date) m1="-"+right("0" + cstr(m),2) d1="-"+right("0" + cstr(d),2) last = y&m1&d1 %>