<% dim total total=0 response.write errmsg Dim SelectId do while not rs.eof and total<>rs.pagesize If Not Rs.Eof Then SelectId=Rs("ID") Else SelectId="" End IF %> <% loop %>