<% '---------------------------------------------------------------------------------------- ' Function GetStockConnStr '---------------------------------------------------------------------------------------- Function GetStockConnStr() Dim p '//strMDBpath = Server.MapPath("..\..\private\northwind.mdb") '//strMDBpath = Server.MapPath("\..\private\northwind.mdb") '// localhost testing '// p = "\mega\Modules\Geocoin1\stock.mdb" '//live site p = "\..\private\stocksand.mdb" 'direct connection GetStockConnStr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath(p) End Function %>