<%
DIM strConn, conn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & server.mappath("./includes/clickblog.mdb") & "';Persist Security Info=False"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn

Function ChkString(vstring)
	 if vstring = "" then vstring = " "
	 ChkString = Replace(vstring, "'", "''")
End Function

Function IsoDate(theDate)
   If IsDate(theDate) = True Then
      DIM theDay, theMonth, theYear
      theDay = Day(theDate)
      theMonth = Month(theDate)
      theYear   = Year(theDate)
      IsoDate = theYear & _
         "-" & Right(Cstr(theMonth + 100),2) & _
         "-" & Right(Cstr(theDay + 100),2)
   Else
      IsoDate = Null
   End If
End Function

Function RevDate(theDate)
DIM theDay, theMonth, theYear
theDay = Right(theDate,2)
theYear = Left(theDate,4)
theMonth = Mid(theDate,6,2)

RevDate = dateserial(theYear, theMonth, theDay)
End Function

%>