A "Something of the Day" Script (Sequential Order)

[admin]

Have you ever thaught of displaying the "something of the day" such as quote of the day, picture of the day, receipe of the day, that changes at midnight each day automatically in a successive manner (Not Random)

Here's the code for it.


<%
Dim intDays,intStart,rsSite,rsTopNumber,objConn,strConn

'The connection string, change the path to your database
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("YourDB.mdb") & ";"

set objConn = server.createobject("ADODB.connection")
objConn.open strConn
set rsTopNumber=objConn.execute("select count(*) from tblXXX")
intCount = rsTopNumber(0)
rsTopNumber.close
set rsTopNumber=Nothing

intDays = DatePart("y",now)

intStart = intdays Mod intCount
intStart = intStart + 1

Dim RecordsetDay
Dim RecordsetDay_numRows

Set RecordsetDay = Server.CreateObject("ADODB.Recordset")
RecordsetDay.ActiveConnection = strConn
RecordsetDay.Source = "SELECT * FROM tblXXX WHERE ID = " + Replace(intStart, "'", "''") + ""
RecordsetDay.CursorType = 0
RecordsetDay.CursorLocation = 2
RecordsetDay.LockType = 1
RecordsetDay.Open()

RecordsetDay_numRows = 0
%>


By Anas Elhalabi