<% Dim Conn, sConnString p=Server.mapPath("/") no_of_chars=INSTR(p,"www") f_path=Left(p,no_of_chars - 1) f_path=f_path & "db/msg.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & f_path Conn.open(sConnString) %>