docSql = "Select DISTINCT CATEGORYID, CATEGORY from tblCategories"<BR>Set catRs = docObj.Execute(docSql)<BR><BR>If NOT (catRs.EOF AND catRs.BOF) Then<BR> Set catID = catRs("CATEGORYID")<BR> Set category = catRs("CATEGORY")<BR><BR> response.write("<SELECT id=category name=category><BR> catRs.MoveFirst<BR> Do While NOT catRs.EOF<BR> Response.Write("<OPTION Value='" & catID & "'>" & category & "</OPTION>")<BR> catRs.MoveNext<BR> Loop<BR> response.write("</SELECT>")<BR>End If<BR><BR>The above code I'm using to show the category names in a combo box. But I don't know what's wrong with it. It never comes out of the loop. I know that there are 12 categories in the DB. When I give the SQL statement in the Enterprise manager, it returns me the expected records. Any Idea???