%function openDb() set openDb = Server.CreateObject("ADODB.Connection") openDb.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Persist Security Info=False;" & _ "Data Source=" &Server.MapPath("..\database\data.mdb") end function%> <%Dim cn set cn=openDb%>
|
|
|
|
|