Reading God’s Word daily is the key to understanding who He is. This Scripture Reading Guide is designed to help you read through the entire Bible in one year. Follow along, and allow the Word of God to renew your mind and life... Daily!

<%

' Build connection string to the database
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("it00010/it00010.mdb")

' Create an instance of AspGrid
Set Grid = Server.CreateObject("Persits.Grid")

' Creates the process for Validation when record saved
Grid.FormOnSubmit = "return Validate();"

' Create ADO Connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect

' Pass external connection object to grid
Grid.Connection = Conn

' Specify SQL statement to select fields to display
Grid.SQL = "select ID, Date, Morning, Evening from tbl_Bible WHERE DATE = DATE() ORDER BY Date"

' Specify maximum number of rows to display
Grid.MaxRows = 0

' Hide column specified
Grid.Cols("ID").Hidden = True
Grid.Cols("Date").Hidden = True

' Disables edit on column specified
Grid("ID").ReadOnly = True
Grid("Date").ReadOnly = True
Grid("Evening").ReadOnly = True

' Set attributes
Grid.Table.CellSpacing = 0
Grid.Table.CellPadding = 2
Grid.Table.Width = 225
Grid.Table.Border = 0

' Specify location of button images
Grid.ImagePath = "images/grid/"

' Enable sorting
Grid.ColRange(3, 7).CanSort = False

' Prevents the Delete Button from appearing
Grid.CanDelete = False
Grid.DeleteButtonOnClick = "Are you sure you want to delete this item?"

' Enable edits and additions to table data
Grid.CanEdit = False
Grid.CanAppend = False

' Set column captions for proper field names
Grid("Evening").Caption = "Evening"

' Format field input sizes
Grid("Date").InputSize = 10

' Format Date fields to common format
Grid.Cols("Date").FormatDate "%b %d"

' Setup Drop Down menu for fields
' The numbers on the end are the column to be displayed and the column to be stored
' Grid("Day").AttachForeignTable "select ID, Day from tbl_DaysOfWeek", 2, 2

' Create details link for view selected record function
Grid.Cols("Evening").AttachExpression "  {{Evening}}"
Grid.Cols("Morning").AttachExpression "  {{Morning}}"

' ------------- Begin Table Formatting Code ------------

' Format Header
Grid.ColRange(1, 10).Header.BGColor = ""
Grid.ColRange(1, 10).Header.Font.Face = "Verdana, Arial, Helvetica, sans-serif"
Grid.ColRange(1, 10).Header.Font.Size = "2"
Grid.ColRange(1, 10).Header.Font.Color = "000000"
Grid.Cols(0).Header.BGColor = ""
Grid.Cols(999).Header.BGColor = ""

' Format Body font
Grid.ColRange(1, 10).Cell.Font.Face = "Verdana, Arial, Helvetica, sans-serif"
Grid.ColRange(1, 10).Cell.Font.Size = "2"
' Grid.ColRange(1, 10).Cell.Align = "CENTER"

' Format Control Areas
Grid.Cols(0).Cell.BGColor = ""
Grid.Cols(0).Cell.AltBGColor = ""
Grid.Cols(999).Cell.BGColor = ""
Grid.Cols(999).Cell.AltBGColor = ""

' Format Footer
Grid.Cols(0).Header.Align = "Center"
Grid.Cols(1).Header.Align = "Center"
Grid.Cols(999).Footer.Align = "CENTER"
Grid.Cols(0).Footer.BGColor = "#FFFFFF"
Grid.Cols(999).Footer.BGColor = "#FFFFFF"

' Sets alternating row colors
Grid.ColRange(1, 10).Cell.BGColor = ""
Grid.ColRange(1, 10).Cell.AltBGColor = ""

' ------------- End Table Formatting Code ------------

' Display grid
Grid.Display

' Disconnect
Grid.Disconnect

' Destroy Grid object
Set Grid = Nothing
Set Conn = Nothing

%>
View/Download:
One Year Scripture Reading Guide