Loop - saber quando é último item

Esse loop escreve uma vírgula depois de escrever a informação que preciso.

	  Dim i
	  for i = 0 to rs.fields.Count - 1
	  response.Write(""""&(rs.fields(i).name)&"""") 
	  response.Write(",") 
	  next

Preciso que quando for a última iteração do loop a vírgula não seja escrita.

Como faço?