I am trying to select only recordsets from a database were the date field is the same as todays date
database:
| EventID | Date |
Code that i have problems with:
Code:
<%
'Declares Variables
Dim dbName2
Dim ObjConn2
Dim events
'Sets Up Database Connection
dbName2 = "/fpdb/events.mdb"
ObjConn2 = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(dbName2)
'Connects to Database
Set events = Server.CreateObject("ADODB.RecordSet")
events.Open "SELECT * FROM Events Where date="&date(),ObjConn2,1,2
Do While Not events.EOF
Response.Write("<div align=center><Strong>"&events("Time")&": </Strong>"&events("GameDesc")&"")
events.MoveNext
Loop
events.close
Set events = Nothing
%>