Whammy : good, better, ....
My code for the second question:
dim conEvents
set conEvents=server.CreateObject("adodb.connection")
conEvents.Open("provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("businesses.mdb"))
dim rsUpcomming
set rsUpcomming= server.CreateObject("adodb.recordset")
dim currentdate, enddate
currentdate = date()
enddate= DateAdd("d", 7, date()) 'enddate returns actual date + 6 days.
'display calendar strates here
dim sql
sql="select Event_Name, ID, Start_Date from events where End_Date >= #thedate# and Start_Date <= #stopdate# order by Start_Date asc"
sql=replace(sql,"thedate",currentdate)
sql=replace(sql,"stopdate",enddate)
rsUpcomming.Open sql, conEvents
if rsUpcomming.EOF=true then
response.write("<font color='red'><b>No upcomming events for this week</b></font><br><br>")
else
do while rsUpcomming.EOF=false
if rsUpcomming.Fields("Start_Date") <= date () then
response.write("<font color='red'>Today : <a href=eventinfo.asp?eventID=" &rsUpcomming.Fields("ID") & ">" & rsUpcomming.Fields("Event_Name") & "</a></font><br>")
else
response.write("<a href=eventinfo.asp?eventID=" &rsUpcomming.Fields("ID") & ">" & rsUpcomming.Fields("Event_Name") & "</a><br>")
end if
rsUpcomming.MoveNext
loop
end if
'display calendar ends here
rsUpcomming.Close
set rsUpcomming=nothing
conEvents.Close
set conEvents = nothing
Pure coïncidence. Wrote it this week for someone else.
Advantages :
-number of days can be easily modifyed by user (using a form with a field to select number of days + replace 7 with variable in script)
-also displays current events that started in the past an stil run for more then six days
- dates are displayed as link so you can open a page with info about that event