<% Dim zobjConn,zstrDBFilePath Set zobjConn = Server.CreateObject("ADODB.Connection") 'zstrDBFilePath = Replace(Server.MapPath("\"),"htdocs","private") & "\republic\kaos\kaosnews.mdb" zstrDBFilePath = "\\netapp1\www\strategyplanet\republic\news\kaosnews.mdb" '# DO NOT edit below here # zobjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & zstrDBFilePath '-- ado constants used in the script -- Const adOpenForwardOnly = 0 'Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adLockOptimistic = 3 Const adCmdText = 1 Const adCmdTable = 2 'Const adVarChar = 200 'Const adParamInput = 1 'Const adCmdStoredProc = 4 %>