%
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
<%
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
%>