<% strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("../db/SimpleBlog.mdb") &";" ' do not change this, use intDisplayLCID below InitLCID = 1033 SESSION.LCID = InitLCID ' use this for the date display intDisplayLCID = 1033 ' clean up: move functions to func. include file function dateToInt(theDate) ' changes selected date to integer, number of minutes from given date in compareStamp if instr(theDate,".") => 1 Then theDate = replace(theDate,".","/") end if compareStamp = "01/01/01 12:00:00" dateToInt = DateDiff("n",compareStamp,formatdatetime(theDate,vbshortdate)) end function function IntToDate(theInt) ' changes integer to date compareStamp = "01/01/01 12:00:00" IntToDate = DateAdd("n",theInt,compareStamp) end function function DisplayDate(theDate) SESSION.LCID = intDisplayLCID DisplayDate = Day(theDate) & " " & monthName(month(theDate)) & " " & Year(theDate) SESSION.LCID = InitLCID end function %>