<% Set conn = server.CreateObject("adodb.connection") conn.connectionstring = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&server.mapPath("../data/#majia@#@#!.mdb") conn.Open if session("mj_admin_id")<>"" then Set rsadmin = server.CreateObject("adodb.recordset") sql = "select * from mj_admin where id="&session("mj_admin_id")&"" rsadmin.Open sql, conn, 1, 1 end if %>