Addera = "SELECT * FROM mess where vems = '" & Session("id") & "' AND last = 0"
Frågan#1
har en grejj om man har nya gb inlägg och mess ..
men det blir error
KOD:
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db.mdb")&";pwd=*******"
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM mess where vems = " &Session("id") &" AND last = 0"
rs.Open Addera, Connect, 3, 3
mess=rs.recordcount
if mess ="0" then
Response.Write "<a href='las_mess.asp' target='main'><img src='ejmail.bmp' border='0' alt='inga nya mail :('></a>"
else
Response.Write "<a href='las_mess.asp' target='main'><img src='nyttmail2.bmp' border='0' alt='" & mess & "nya/nytt brev :)'></a>"
end if
rs.close
FELET:
Aktivitet
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/server/cool/onlinevanner.asp, line 47