%@ Language=VBScript %> <% Response.buffer = True 'get key Key = request.querystring("key") dim m_Detail Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Prizm.mdb")&";Persist Security Info=False" strsql = "SELECT " & Key & " FROM Main Where SrNo = '1'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 rs.MoveFirst m_Detail = rs.Fields(Key) %>