[Import] common ASP functions: DelArray2 ()

<%
'Function: Delete the row with the value of sValue in the iColumn of the Two-dimensional array. When the value of iColumn is-1, delete the row sValue.
'Source: http://jorkin.reallydo.com/article.asp? Id = 483

Function DelArray2 (aArray, iColumn, sValue, bCompare)
If Not IsArray (aArray) Then Exit Function
Dim I, j, k, iUBound1, iUBound2
IUBound1 = UBound (aArray)
IUBound2 = UBound (aArray, 2)
K =-1
Dim aTmpArray ()
ReDim aTmpArray (iUBound1, k)
If iColumn <0 Or iColumn> iUBound1 Then
For I = 0 To iUBound2
If StrComp (I, sValue, bCompare) <> 0 Then
K = k + 1
ReDim Preserve aTmpArray (iUBound1, k)
For j = 0 To iUBound1
ATmpArray (j, k) = aArray (j, I)
Next
End If
Next
Else
For I = 0 To iUBound2
If StrComp (aArray (iColumn, I), sValue, bCompare) <> 0 Then
K = k + 1
ReDim Preserve aTmpArray (iUBound1, k)
For j = 0 To iUBound1
ATmpArray (j, k) = aArray (j, I)
Next
End If
Next
End if
Delarray2 = atmparray
End Function
%>

Source: http://Jorkin.Reallydo.Com/default.asp? Id = 483