<% Dim adoCon Dim rs Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\webs\hells1\fpdb\HAMC_Anniv_Dates.mdb" set rs = adoCon.Execute ("SELECT DateDiff('yyyy',[newdate],Date()) AS Years, tblAnniv_Dates.Charter FROM tblAnniv_Dates WHERE (DatePart('m',[newdate]))=(Datepart('m',date())) ORDER BY DateDiff('yyyy',[newdate],Date());") %>

Congratulations Hells Angels Prospect Charter Stateline Enfield Connecticut !!!!
Click on the Death Head Logo Below to Enter Site
           
 

<%= date()%>