<% '----------------------------------------------- 'DATABASE ConnECTION SETTINGS '----------------------------------------------- Dim DBConn 'static database path DatabasePath = "../../db/emaillist.mdb" DatabaseUsername = "Admin" DatabasePassword = "" ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & server.mappath(DatabasePath) & ";Jet OLEDB:Database " _ & "Password=" & DatabasePassword cursortype = 3 '----------------------------------------------- 'DATABASE ConnECTION OBJECTS '----------------------------------------------- set DBConn = Server.CreateObject("ADODB.Connection") DBConn.Open(ConnString) set RSEmConn = server.createObject("ADODB.recordset") RSEmConn.Cursorlocation = cursortype ' set RSConn2 = server.createObject("ADODB.recordset") ' set rsSearch = server.createObject("ADODB.recordset") ' rsSearch.Cursorlocation = cursortype %>