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