Vou mostrar somente o techo do loop, pois é somente nesse trecho que modifiquei:
c2 = 0;
Do
If c2 > 0 Then
response.write(",")
End If
response.write("{")
c = 0;
for each x in rs.fields
If c > 0 Then
response.write(",")
End If
response.write("'" & x.name & "'")
response.write(":")
response.write("'" & x.value & "'")
c = 1
next
response.write("}")
c2 = 1;
RS.MoveNext()
Loop Until RS.EOF
A lógica é adicionar a vírgula antes e permitir somente quando o contador for maior que 0, ou seja, quando o laço de repetição estiver rodando o segundo registro em diante.
Note que existe o contador c2 e c.
O c2 é para o loop primário.
Dentro do loop primário há outro loop, onde usei uma variável chamada c.
O importante é iniciar os contadores com valor 0 antes de iniciar cada loop, não dentro do loop.
Também cuidado com caracteres reservados do json. É mais seguro escapar as strings caso contenham caracteres reservados como double quote, por exemplo.
Replace(str, ""","\"")
Exemplo prático
response.write("'" & Replace(x.name, ""","\"") & "'")