<%
strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("db/simpleBlog.mdb") &";"
strServer = "http://blog.8pixel.net/"


strSQL = "SELECT * FROM T_SETTINGS"

	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.ActiveConnection = strConn
	Rs.Source = strSQL
	Rs.CursorType = 0
	Rs.CursorLocation = 2
	Rs.LockType = 1
	Rs.Open()


' do not change this, use intDisplayLCID below 
InitLCID = 1033
SESSION.LCID = InitLCID

' use this for the date display 
intDisplayLCID = rs("lcid")

' frontpage display modes */
' 0 = show all blogs, 1 = show blogs from last seven days, 2 = last 30 days, 3 = show x number of blogs (intTopCount below) */
intDisplayMode = rs("displaymode")
'how many blogs on your frontpage if intDisplayMode = 3  */
intTopCount = rs("topcount")
' text for comments link */
strCommentText = rs("commenttext")
' text for permanent link text */
permalinktext = rs("permalinktext")
' image url for comments header */
strCommentHeader = rs("commentheader")
' text to appear if no comments have been made */
strNoComments = rs("nocomments")
' text to appear if anonymous commenter */
strNameEmpty = rs("nameempty")
' use "approve comments" feature */
boolApproveComments = rs("approveComments")

' poll ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
' allow people to vote more than once ? */
strPollAllowMultiple = rs("pollallowmultiple")
' 3 strings for text in poll add-on */
strPollText_button = rs("polltext_button")
strPollText_viewRes = rs("polltext_viewres")
strPollText_votes = rs("polltext_votes")



Rs.close()
set Rs = nothing




' 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

%>