Hello I am having quite a time with this one I have a Dynamic array



SelectionArray = Split(Request("C"),",")

	SelectionUBound = UBound(SelectionArray)

	Redim Array (A, SelectionUBound)



	For i=0 To SelectionUBound

		TempArray = Split(SelectionArray(i), "/")

		Array(0,i) = TempArray(0)

		Array(1,i) = TempArray(1)

	Next





num=1



I have a function

Function amount(num,MultiDimArray)



	amount = 0+num(i)*Array(1,i)



End Function



I have a loop

For i = LBound(Array) to UBound(Array)

		redim num(i)

		num(i)=1

		Response.Write "<tr>" & vbCrLf

		' Write out the index of the element we're currently on

		Response.Write "<td><input type=""text"" name=""Qty"" size=""3"" value="""

& num(i) & """></td>" & vbCrLf

		' Write out the value of the element we're currently on

		Response.Write "<td>" & Array(0,i) & "</td>" & vbCrLf

		Response.Write "<td><input type=""text"" name=""sub_price"" size=""3""

value=""" & amount & """></td>" & vbCrLf

		Response.Write "</tr>" & vbCrLf



	Next



But i can not seem to get the

Response.Write "<td><input type=""text"" name=""sub_price"" size=""3""

value=""" & amount & """></td>" & vbCrLf



to work



and what i wanted was to have the

Response.Write "<td><input type=""text"" name=""Qty"" size=""3"" value=""" &

num(i) & """></td>" & vbCrLf

onChange change the

Response.Write "<td><input type=""text"" name=""sub_price"" size=""3""

value=""" & amount & """></td>" & vbCrLf

line



I hope this all makes seince

thank you for any help you can provide