<% 'include adoCon Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM TABLE" rs.Open sql, adoCon Do While not rs.EOF response.write rs("ID") rs.MoveNext Loop rs.Close Set rs = Nothing %>