%@ language=VBScript%> <% dim con, rec set con=server.createobject("ADODB.Connection") con.open "provider=microsoft.jet.OLEDB.4.0; data source='"&server.mappath("member.mdb")&"'" set rec=server.createobject("ADODB.recordset") rec.open "select * from menu;",con,adopendynamic,adlockoptimistic,adcmdtext %>