% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("fllddata.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath ''conn.open "driver={microsoft access driver (*.mdb)};uid=Admins;pwd=asdfgh;dbq="&DBPath Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * FROM news ", conn, 3, 2 ''Provider=Microsoft.Jet.OLEDB.4.0;& DBPath & ";Jet OLEDB:Database Password=" & Password %>
|
||||||||||||||
|
|
||||||||||||||