Here's a listing of the actual code that returns the error:
...
<%
Dim rsItems
strSQL = "SELECT * FROM Item " & _
"WHERE ExpirationDate > #" & FormatDateTime(Now,2) & "# " & _
"AND ItemStatus = 'Active';"
Set rsItems = Server.CreateObject("ADODB.Recordset")
rsItems.Open strSQL, objConn
If Not rsItems.EOF Then
...
Line 24, where the ExpirationDate is checked to be larger than FormatDateTime cause the error..
I am using an Access-database, in which the property ExpirationDate is in the same format as FormatDateTime(Now,2).
What could be wrong here ?
Arild
|