For Each Next Der driller lidt :o)

hejsa,

Jeg har følgende sub :

Public Sub GenerateForm(intFields, intTextarea, intRadio, intCheckbox, intSelect, intFileSending, strName)
    With Response
        .Write("<table class=""tblClass"">")
        Dim t
        For t = 1 To intFields
            .Write("<tr>")
            .Write("<td>")
            Dim arrTextName, Item
            arrTextName = Split(strName, ",")
            For Each Item In arrTextName
                .Write(""&Item&"")
            Next
            .Write("</td>")
            .Write("<td>")
            .Write("<input type=""text"" name=""T"&t&""" class=""field"">")
            .Write("</td>")
            .Write("</tr>")
        Next
        .Write("</table>")
    End With
End Sub

Men når jeg laver min For Each Item In arrTextName får jeg udskrevet alt fra arrayet f.eks Navn Adresse By ?

Er der ikke en der lige kan rette det så det giver det rigtige resultat ?

/Websam