Microsoft JET Database Engine error

[Pablo]

Hello,

I am getting the following error on my code:

Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression.

Personeelsnummer.Asp, line 220

The code.

    <%
        Set oRs=Server.CreateObject("adodb.recordset")
        Pn=Request("ZoekPersNr")
        strSQL = "SELECT P_Tussenvoegsel, P_Achternaam FROM tbl_peroonsgegevens_zld WHERE PersNr= '" & Pn & "'"
        oRs.Open strSQL, MyConn
        if NOT oRs ("P_Achternaam") = " " then
              Response.Write "<tr><td><font size=""2"" face=""Verdana""><b>Partnernaam</font></b></td><td height=""20""><font size=""2"">"&  oRs ("P_Tussenvoegsel")& " "&  oRs ("P_Achternaam") &"</font></td> </tr>"
        end if
    %>    

Its a MSaccess 2003 database and frontpage 2003 website.

Line 220 is

oRs.Open strSQL, MyConn

Many Thanks.

[MikeTheBike]

Hi

I'm just guessing but I suspect that PersNr is a numeric field; if so then change you sql to

strSQL = "SELECT P_Tussenvoegsel, P_Achternaam FROM tbl_peroonsgegevens_zld WHERE PersNr= " & Pn 
 

ie. remove th apostrophies, there are only require for text fields.

HTH


MTB