Loop - saber quando é último item

[FabianoSouza 5]

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?

[gabrieldmello 1]

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

if (i<>(rs.fields.Count - 1)) then

response.Write(",")

end if
next

[FabianoSouza 5]

Opa. Era disso que eu precisa.