<%
Function DelItem( ByRef aTarget, nTarget )
Dim B
B = ""
For I = 0 TO Ubound( aTarget )
if I <> nTarget-1 then
B = B & aTarget(I) & Chr(1)
end if
Next
B = Left( B, Len( B )-1 )
aTarget = Split( B, Chr(1) )
End Function
A = Array( 1,2,3 )
Call DelItem( A, 2 )
For I = 0 to Ubound( A )
Response.Write A(I) & "<BR>"
Next
%>
