do while not oRS.EOFResponse.Write("<div align=""center""><font color=""red"">" & oRS("ItemName") & " is below par level</font><div>") oRS.MoveNextloop