Antingen har du glömt att inkludera adovbs.inc på sidan eller så kan du göra så här:
<%
Set objConnect = Server.CreateObject("ADODB.Connection")
objConnect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("sin_orely_databass_etc.mdb")&";pwd=belinea"
SQL = "Select * From meddelande Where Last = 'nej' And TillID = "& session("ID")
Set RecSet = objConnect.Execute(SQL)
If RecSet.EOF Then
Response.Write("<img src=""1.gif"">")
Else
Response.Write("<img src=""1b.gif"">")
End If
RecSet.Close
RecSet = Nohting
%>
Mvh,
277 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e