Microsoft VBScript compilation (0x800A0401)
Expected end of statement
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/members.mdb")&";pwd=sensur :D"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM members WHERE NOT image = 'noimage.gif' ORDER BY loggedon DESC
RecSet.Open Addera, Connect, adLockOptimistic
%>