<% Dim objconn1 Set objconn1 = Server.CreateObject("ADODB.Connection") objconn1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(".") & "\Database\Estates.mdb;" objconn1.open %>