D
Dan Matthews
Hey everybody,
I have an 2000 Access database that stores job listings from potential
employers for a school. I would like to be able to display the date
on a webpage the last time the database was updated (inputed through
asp natch'). The database is not updated everyday so that won't work
but something like the database was updated on Monday 11/24/2003, I
would want it to say "New job listings as of Monday, 11/24/2003" if it
were checked on Tuesday or whenever.
The database uses an "Entry Date" column for every job entered so I
figure that would be the key for this function (unless there is
something better to use).
Currently I have:
<%
Dim Connect, Jobs
Set Connect=Server.CreateObject("ADODB.Connection")
Connect.Open "careers1"
Set Jobs = Connect.Execute (_
"SELECT * FROM [JOB LIST] WHERE (([JOB LIST].[Entry Date])=Date())")
do until Jobs.EOF
%>
<p class="text"><font color="red">New job listings as of
<%=Jobs("Entry Date")%></font>
<% Jobs.MoveNext
loop %>
but that only displays new jobs if they have been entered on the
current day. I need to have the date of the last job entered to be
viewed. Any help would be appreciated.
If you have any questions, please ask.
Dan Matthews, MCP
Technology Manager
Green Hall, University of Kansas
(785) 864-9267
(e-mail address removed)
http://www.people.ku.edu/~dmatthew/
I have an 2000 Access database that stores job listings from potential
employers for a school. I would like to be able to display the date
on a webpage the last time the database was updated (inputed through
asp natch'). The database is not updated everyday so that won't work
but something like the database was updated on Monday 11/24/2003, I
would want it to say "New job listings as of Monday, 11/24/2003" if it
were checked on Tuesday or whenever.
The database uses an "Entry Date" column for every job entered so I
figure that would be the key for this function (unless there is
something better to use).
Currently I have:
<%
Dim Connect, Jobs
Set Connect=Server.CreateObject("ADODB.Connection")
Connect.Open "careers1"
Set Jobs = Connect.Execute (_
"SELECT * FROM [JOB LIST] WHERE (([JOB LIST].[Entry Date])=Date())")
do until Jobs.EOF
%>
<p class="text"><font color="red">New job listings as of
<%=Jobs("Entry Date")%></font>
<% Jobs.MoveNext
loop %>
but that only displays new jobs if they have been entered on the
current day. I need to have the date of the last job entered to be
viewed. Any help would be appreciated.
If you have any questions, please ask.
Dan Matthews, MCP
Technology Manager
Green Hall, University of Kansas
(785) 864-9267
(e-mail address removed)
http://www.people.ku.edu/~dmatthew/