Time based diaplay of images

[mwood]

I have a website for a radio station that uses an access database. I need to be able to pull the image of the dj currently on the air based on the time their show is on. So it will have to call the time from the server.

I have these fields in the database: On_Air_Day, On_Air_Time, Off_Air_Time and On_Air_FP_Image.

So I need to pull the On_Air_FP_Image where On_Air_Day and On_Air_Time are = to the current day and time which is pulled from the servers time. It will continue to display that image until the next On_Air_Day and On_Air_Time are met.

So we may have a dj on the air on monday at 9am so his image is diplayed and at 12pm that same day another dj is on the air so the image changes to his image and so on. That same process is continued every day of the week.

Can someone please help with this.

[mwood]

This is one thing I tried which didn't work.

<%
strSQLQuery = "SELECT * FROM On_Air_Staff where On_Air_Day and On_Air_Time =now()"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQLQuery, conn, 3, 3
%>

<%=rs("On_Air_FP_Image")%>

<%
rs.movenext
loop
%>

[mwood]

Does anyone have any ideas that might help me with this?

[clain]

call a function which gets the image from DB

name the image in sequence ,for eg image 1,image 2, image 3 etc...

add a session variable which stores the image sequence like 1,2,3

call a function to refresh the page in intervals ( use java script settimout() or use ADDheader in asp)

increment the session variable by 1 while calling the querry... done...

cheers happy coding.....

for more clarification Contact me [e-mail]

[jhardman]

This is one thing I tried which didn't work.

<%
strSQLQuery = "SELECT * FROM On_Air_Staff where On_Air_Day and On_Air_Time =now()"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQLQuery, conn, 3, 3
%>

<%=rs("On_Air_FP_Image")%>

<%
rs.movenext
loop
%>

I don't think "now()" is recognized by sql. Also, What are the formats of On_Air_Day and On_Air_Time? it seems pretty unlikely that both will be equal to now(). Try:

dim currentDayOfWeek, currentTime
currentDayOfWeek = weekDay(date)
currentTime = now()
strSQLQuery = "SELECT * FROM On_Air_Staff"
strSQLQuery = strSQLQuery & " WHERE On_Air_Day = " & currentDayOfWeek
strSQLQuery = strSQLQuery & " AND On_Air_Time < " & currentTime
strSQLQuery = strSQLQuery & " AND Off_Air_Time > " & currentTime
response.write "<!-- " & strSQLQuery & " -->" & vbNewLine
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQLQuery, conn, 3, 3
 

After you run, check the comment to see if the query is reasonable.

Please let me know if this helps.

Jared