<% Dim Home Dim Stargate Dim ObjConn Stargate = "Data Source=" & server.MapPath("fpdb\mtod.mdb") If varDirectory = "../" Then Stargate = "Data Source=" & server.MapPath("..\fpdb\URS-Project.mdb") If varDirectory = "../../" Then Stargate = "Data Source=" & server.MapPath("..\..\fpdb\URS-Project.mdb") Set objConn=Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & Stargate %>