%@LANGUAGE="VBSCRIPT"%> <%Dim conn 'declare your variable to hold your connection Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath ("DB/distanceDB.mdb") & ";" conn.open dim rs Set rs = CreateObject("ADODB.RecordSet") %>