trying to pull data from ms access with no success.
[u]error message:</u>
Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/calendars/ccl/list_form.asp, line 22

[u]code</u>
Option Explicit
Response.Expires = 0

Dim objConn, objRs, Sql
Dim strConnection, courtdate

courtdate = Request.QueryString("cdate")

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("diary.mdb")
objConn.Open strConnection

Set objRs = Server.CreateObject("ADODB.Recordset")
Set objRs.ActiveConnection = objConn

Sql = "SELECT id, crtdate, crttime, cnumber, text_field, etype "
Sql = Sql & "FROM diary "
Sql = Sql & "WHERE crtdate= '" & courtdate & "' "
objRs.Open Sql, objConn

Will keep trying to figure, any help would be grealty appreciated.

Mike

Mike

__________________
Mike

Hi,

 try this


Sql = "SELECT id, crtdate, crttime, cnumber, text_field, etype "
Sql = Sql & "FROM diary "
Sql = Sql & "WHERE crtdate=#" & courtdate & "#"



In Access, date is surrounded by # not '


----------
Rajani

I assume that "crtdate" in MS Access is a date field.

 If so, your problem will be solved by using the code below.

try by converting that into date type like..

If courtdate <> "" Then
   courtdate = cDate(courtdate)
End If


Thanks
Suresh

Thanks guys for the info. But about two hours after posting topic I figured out what needed to be done and it was exactly what you guys mentioned.

Again thanks for help.

Mike