View: - 381
<% Dim ObjConn Dim DbPath DbPath = Server.MapPath("/database/database.mdb") Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Mode = adModeReadWrite ObjConn.ConnectionTimeout = 15 ObjConn.CommandTimeout = 30 ObjConn.ConnectionString = "PROVIDER=Microsoft.JET.OLEDB.4.0;DATA SOURCE=" & DbPath & _ ";MODE=ReadWrite|Share Deny None;Persist Security Info=False;" & _ "JET OLEDB:Database Password=password;" ObjConn.Open %>
