%Set Bd = Server.CreateObject ("Adodb.Connection") Set Reg = Server.CreateObject ("Adodb.RecordSet") Bd.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\Uvirtual\insta\UniversidadVirtual.mdb")) SQL = "Select * from Tblcurso" Set Reg = Bd.Execute (Sql) Session("Iniciar") = "NO"%>