<% Select Case Request("d") Case "shortdate" Response.Write(getengdate(now())) Case "lngdate" Response.Write(Left(Replace(GetDateT(), "-", ""), 8)&Right("00"&Replace(Time(), ":", ""), 6)) End Select %>