hi all,<BR>this is the relevant code. the problem is that the recordset returns empty objects. doesnt fill up the dictionary. andi really cannot find the error. please help me out. this is very very urgent. <BR><BR>thanks,<BR><BR> Set Session("EEOContactName_Dict") = Server.CreateObject("Scripting.Dictionary")<BR> <BR> Session("EEOContactName_Dict").RemoveAll<BR>&#039 Application("ProjectManagerLName_Dict") = server.createpnject....<BR><BR>&#039 ----* Fill up the EEOContactName Dictionary *---<BR><BR> dim oConn<BR> dim rs<BR> <BR> Set oConn = Server.CreateObject("ADODB.Connection")<BR> oConn.Open "DSN=wes;UID=wes;PASSWORD=wes;" <BR> <BR> strsql = "Select szEEOContactLName,szEEOContactFName FROM tb_EEO_Contact"<BR> <BR> Set rs = Server.CreateObject("ADODB.Recordset")<BR> &#039Set rs = oConn.Execute(strsql)<BR> <BR> rs.open strsql,oConn,3,3,adCmdText<BR> <BR>&#039 ---* filling up the dictionary from the recordset *--- <BR>rs.MoveFirst<BR> Do While Not rs.EOF <BR> &#039Session("EEOContactName_Dict").Add rs("szEEOContactLName") , rs("szEEOContactFName")<BR> Session("EEOContactName_Dict").Add "11", "13" <BR> rs.MoveNext<BR> Loop <BR><BR>rs.close<BR>set rs = nothing<BR><BR>oConn.Close<BR>Set oConn = nothing<BR>