Klip og ændre i streng

ArrNavne = Split(text, ", ")
delim = ", "
for i = 0 to Ubound(ArrNavne - 1)
  if i = Ubound(ArrNavne - 2) then delim = " og "
  strOut = strOut & delim
next

Rettelse:

ArrNavne = Split(text, ", ")
delim = ", "
for i = 0 to Ubound(ArrNavne - 1)
  if i = Ubound(ArrNavne - 2) then delim = " og " 
  if i = Ubound(ArrNavne - 1) then delim = ""

  strOut = strOut & ArrNavne(i) & delim
next

Rettelse:
text = "Ole, Søren, Mads, Peter,"
text = Replace(text, ", ", ",")
ArrNavne = Split(text, ",")
delim = ", "
for i = 0 to Ubound(ArrNavne - 1)
  if i = Ubound(ArrNavne - 2) then delim = " og " 
  if i = Ubound(ArrNavne - 1) then delim = ""

  strOut = strOut & ArrNavne(i) & delim
next

Type mismatch
/test.asp, line 6

<%
text = "Ole, Søren, Mads, Peter,"
text = Replace(text, ", ", ",")
ArrNavne = Split(text, ",")
delim = ", "
for i = 0 to Ubound(ArrNavne - 1)
  if i = Ubound(ArrNavne - 2) then delim = " og " 
  if i = Ubound(ArrNavne - 1) then delim = ""

  strOut = strOut & ArrNavne(i) & delim
next

response.write strOut
%>

Blot til orientering så er værdien "Ole, Søren, Mads, Peter, " og ikke "Ole, Søren, Mads, Peter," (altså også et mellemrum efter det sidste komma)). Ydremere, vil script også kunne gøre det, hvis der kun var tale om 3 navne?

Sorry:

text = "Ole, Søren, Mads, Peter, "
ArrNavne = Split(text, ", ")
delim = ", "
for i = 0 to Ubound(ArrNavne) - 1
  if i = Ubound(ArrNavne) - 2 then delim = " og " 
  if i = Ubound(ArrNavne) - 1 then delim = ""

  strOut = strOut & ArrNavne(i) & delim
next

response.write strOut

Så vidt jeg kan se,vil det virke for alle antal

Mange tak for hjælpen :-)