<% if issue="" then Set Conn = Server.CreateObject("ADODB.Connection") MdbFilePath = "C:\hshome\hammerti\logs\rth.mdb" Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MdbFilePath sql="select max(date_issued) as currentdate from articles" Set RS = Conn.Execute(SQL) if not rs.eof then issue=rs.fields("currentdate") currentdate=FriendlyDate(issue) RS.Close Set RS=Nothing end if Conn.Close Set Conn = Nothing end if %> Welcome to Hamilton. (You Are Being Watched.) - Raise the Hammer

Welcome to Hamilton. (You Are Being Watched.)

(Return to the article.)

Raise The Hammer © 2004 | Contact Us
<% Function FriendlyDate(datestring) current_date_array=split(datestring,"/") if left(current_date_array(1),1)="0" then current_date_array(1)=right(current_date_array(1),1) if left(current_date_array(2),1)="0" then current_date_array(2)=right(current_date_array(2),1) for i=0 to 2 current_date_array(i)=cint(current_date_array(i)) next 'i FriendlyDate=left(monthname(current_date_array(1)),3) & ". " & current_date_array(2) & ", " & current_date_array(0) End Function Function stripHTMLtags(htmlstring) Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "<[^>]+>" .IgnoreCase = True .Global = True End With stripHTMLtags = RegularExpressionObject.Replace(htmlstring," ") Set RegularExpressionObject = nothing End Function %>