Either
1. use Left(theString, Len(theString) - 1) to remove the comma at the end (although you cannot do this once it has been written to the response object, so you'll have to write the whole thing to a temporary string, then strip the trailing comma, then use Response.Write)
or
2. Write your loop slightly different so you don't end up with a trailing comma, e.g.
Code:
' write the first value outside the loop, without a comma
Response.Write rs_recordsetALL.Fields.Item("Item_No").Value
rs_recordsetALL.MoveNext
Do While Not rs_recordsetALL.EOF
Response.Write ", "
Response.Write rs_recordsetALL.Fields.Item("Item_No").Value
rs_recordsetALL.MoveNext
Loop