looping through the array

[omerbutt]

hi i am trying to declare an array and then initializing through a string and then displaying it with a for loop but i am gettin a "type mismatch error" at the line where i am using the split() function to initialize my array with the elements of the string

<%
Dim items, i, size,string
            Dim Header(17)
            string="CODE-NO,PART-NO,PRODUCT,BRAND,AUTO,UNIT-PRICE,SIZE,HEIGHT,OUT-DIA1,OUT-DIA2,IN-DIA1,IN-DIA2,REP-NO1,REP-NO2,REP-NO3,REP-NO4,REP-NO5,REP-NO6"
            Header = split(string,",")
            //Header()=Array("CODE-NO","PART-NO","PRODUCT","BRAND","AUTO","UNIT-PRICE","SIZE","HEIGHT","OUT-DIA1","OUT-DIA2","IN-DIA1","IN-DIA2","REP-NO1","REP-NO2","REP-NO3","REP-NO4","REP-NO5","REP-NO6")
            size=[UBound(Header)-LBound(Header)]-1
            Response.Write(size)
            Response.End()
            for i = 0 to size
            Response.Write(size)
            next
%>

[Nicodemas]

You're getting this error because the Dim Header(17) statement declares Header as an array. (Line 3)

Then on Line 5, you are trying to assign a value to Header. As an array, no value can be directly assigned to Header. You would have to assign the value to an index of Header.

The solution is to not declare Header as an array, but rather as an empty variable. Once you assign the split() to Header, Header is now an array.

<%
Dim items, i, size,string, header
string="CODE-NO,PART-NO,PRODUCT,BRAND,AUTO,UNIT-PRICE,SIZE,HEIGHT,OUT-DIA1,OUT-DIA2,IN-DIA1,IN-DIA2,REP-NO1,REP-NO2,REP-NO3,REP-NO4,REP-NO5,REP-NO6"
Header = split(string,",")
//Header()=Array("CODE-NO","PART-NO","PRODUCT","BRAND","AUTO","UNIT-PRICE","SIZE","HEIGHT","OUT-DIA1","OUT-DIA2","IN-DIA1","IN-DIA2","REP-NO1","REP-NO2","REP-NO3","REP-NO4","REP-NO5","REP-NO6")
size=[UBound(Header)-LBound(Header)]-1
Response.Write(size)
Response.End()
for i = 0 to size
Response.Write(size)
next
%>

[omerbutt]

yeah i already did taht thanks for helping any way tcz

You're getting this error because the Dim Header(17) statement declares Header as an array. (Line 3)

Then on Line 5, you are trying to assign a value to Header. As an array, no value can be directly assigned to Header. You would have to assign the value to an index of Header.

The solution is to not declare Header as an array, but rather as an empty variable. Once you assign the split() to Header, Header is now an array.

<%
Dim items, i, size,string, header
string="CODE-NO,PART-NO,PRODUCT,BRAND,AUTO,UNIT-PRICE,SIZE,HEIGHT,OUT-DIA1,OUT-DIA2,IN-DIA1,IN-DIA2,REP-NO1,REP-NO2,REP-NO3,REP-NO4,REP-NO5,REP-NO6"
Header = split(string,",")
//Header()=Array("CODE-NO","PART-NO","PRODUCT","BRAND","AUTO","UNIT-PRICE","SIZE","HEIGHT","OUT-DIA1","OUT-DIA2","IN-DIA1","IN-DIA2","REP-NO1","REP-NO2","REP-NO3","REP-NO4","REP-NO5","REP-NO6")
size=[UBound(Header)-LBound(Header)]-1
Response.Write(size)
Response.End()
for i = 0 to size
Response.Write(size)
next
%>