Hola
Se me ocurre una expresión regular
Código asp:
Ver originalcad = "1,1,nombre1,,1,2,nombre2,,1,3,nombre3,,"
Function limarray(v)
Dim objRegExp
Set objRegExp= New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "([,]{2})"
cad = objRegExp.Replace(cad, ",")
Set objRegExp = Nothing
limarray = cad
End Function
Response.write cad & "<br>"
Response.write limarray(cad)
Suerte