% Set con=Server.CreateObject("ADODB.connection") strConnectacc= "Provider=Microsoft.Jet.OLEDB.4.0;" strConnectacc= strConnectacc & "Data Source=" & Server.MapPath("db.mdb") Set rs=Server.CreateObject("ADODB.Recordset") con.open strConnectacc %>