% set objconn = server.createobject("adodb.connection") mypath = server.mappath("databases/churchill.mdb") objconn.Open "DBQ=" & myPath & ";Driver={Microsoft Access Driver (*.mdb)};" sql = "select * from churchillTbl where page='home'" set rsone = server.createobject("adodb.recordset") rsone.open sql, objconn, adOpenKeySet, adLockPessimistic, adCmdTxt text=rsone("text") rsone.close set rsone = nothing objconn.close set objconn = nothing %>
|