Sammensmeltnings funktion

Hvis jeg har forestået rigtig så vil du "Join"e dem?
Response.Write join(MinText, ", ")
Kig her:
http://www.4guysfromrolla.com/webtech/111300-1.shtml

Hvis du har 2 gange 1 dimensional array ved af denne function lave 1 dim. array:
Function ARRAY_ReduceDimension(ByVal aToReduce, ByVal intRetain_ColRowIndex, ByVal intRetain_Dimension)
  Dim aTemp()
  Dim intLB, intUB
  Dim i
  intLB = LBound(aToReduce, intRetain_Dimension)
  intUB = UBound(aToReduce, intRetain_Dimension)
  ReDim aTemp(intUB)
  Select Case intRetain_Dimension
      Case 1
        For i = intLB To intUB
            aTemp(i) = aToReduce(i, intRetain_ColRowIndex)
        Next
      Case 2
        For i = intLB To intUB
            aTemp(i) = aToReduce(intRetain_ColRowIndex, i)
        Next
  End Select
  ARRAY_ReduceDimension = aTemp
End Function