% Dim MainPageNews dim ObjMPageNews Dim MPNews_numRows set ObjMPageNews = Server.CreateObject("ADODB.Connection") 'strNewsConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Db\NEWS.mdb") strNewsConn = "dsn=Newsdsn" ObjMPageNews.open strNewsConn Set MainPageNews = Server.CreateObject("ADODB.Recordset") MainPageNews.ActiveConnection = ObjMPageNews strSql = "SELECT News_ID, Heading, headlines, mainnews, Pics FROM News" MainPageNews.CursorType = 2 MainPageNews.CursorLocation = 2 MainPageNews.LockType = 1 MainPageNews.Open strSql %> <% Dim RsSitePolls Dim PollsConn 'PollsConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Db\PollsDb.mdb") PollsConn = "dsn=PollsDbdsn" set RsSitePolls = server.CreateObject("ADODB.recordset") RsSitePolls.activeconnection = PollsConn RsSitePolls.source= "SELECT * FROM Polls" RsSitePolls.cursortype = 0 RsSitePolls.cursorlocation = 2 RsSitePolls.locktype = 2 RsSitePolls.open() %>