%@ Page Language="vb" %> <%@ Import Namespace="System" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Data.OleDb" %> <% Dim mm as string = "2" Dim dd as string = "1" Dim yyyy as string = "2007" Dim status as string = "0" %>