Looping Strings

[Fuego]

I want to display the string strDisverzorging after each IntDeelnemer
but want dont want it to get it in the strArrangement (like i do have now) want to keep
it apart.


Dim strVerzorging
Dim strDisVerzorging
Dim strArrangementen
Dim arrServicesPersoon
Dim arrObjecten
Dim intArrAantal
Dim intDeelnemer
Dim intServicesPers

intArrAantal = 0
strArrangementen = ""

strVerzorging = Request.Form("gekverzo")
strVerzorging = Split(strVerzorging, "|")(1)
strVerzorging = Split(strVerzorging, "/")(1)
strDisVerzorging = " <tr>" & vbCrLf & _
" <td width=""150"" class=""tekst"">&nbsp;Verzorging:</td>" & vbCrLf & _
" <td width=""150"" class=""tekst"">" & strverzorging & "</td>" & vbCrLf & _
" </tr>" & vbCrLf

For intDeelnemer = 1 To CInt(Request.Form("aantalpax")) + CInt(Request.Form("aantalbby"))
strArrangementen = strArrangementen & " <tr>" & vbCrLf
If intDeelnemer = 1 Then
strArrangementen = strArrangementen & " <td width=""150"" class=""tekst"">&nbsp;Hoofdboeker: </td>" & vbCrLf
Else
strArrangementen = strArrangementen & " <td width=""150"" class=""tekst"">&nbsp;Medereiziger: </td>" & vbCrLf
End If
strArrangementen = strArrangementen & " <td width=""407"" class=""tekst"">" & Request.Form("dlnaanhef" & intDeelnemer) & " " & Request.Form("dlnvorltr" & intDeelnemer) & " " & Request.Form("dlntusenv" & intDeelnemer) & " " & Request.Form("dlnachtrn" & intDeelnemer) & "</td>" & vbCrLf
strArrangementen = strArrangementen & " </tr>" & vbCrLf
arrServicesPersoon = Split(Request.Form("services" & intDeelnemer), "|")
For intServicesPers = 0 to Ubound(arrServicesPersoon)
arrObjecten = Split(arrServicesPersoon(intServicesPers), ";")
If Ubound(arrObjecten) > 0 Then
If arrObjecten(0) <> "0" And Ubound(arrObjecten) >= 2 Then
If arrObjecten(2) = "SO" Then
strArrangementen = strArrangementen & strDisVerzorging & " <tr>" & vbCrLf
If intArrAantal = 0 Then
strArrangementen = strArrangementen & " <td width=""150"" class=""tekst"">&nbsp;Arrangementen: </td>" & vbCrLf
Else
strArrangementen = strArrangementen & " <td width=""150"" class=""tekst"">&nbsp;</td>" & vbCrLf
End If
strArrangementen = strArrangementen & " <td width=""407"" class=""tekst"">" & arrObjecten(4) & "</td>" & vbCrLf
intArrAantal = intArrAantal + 1
End If
End If
End If
Next
If intArrAantal = 0 Then
strArrangementen = strArrangementen & strDisVerzorging & " <tr>" & vbCrLf
strArrangementen = strArrangementen & " <td width=""150"" class=""tekst"">&nbsp;Arrangementen:</td>" & vbCrLf
strArrangementen = strArrangementen & " <td width=""407"" class=""tekst"">n.v.t.</td>" & vbCrLf
strArrangementen = strArrangementen & " </tr>" & vbCrLf
End If
intArrAantal = 0
If CInt(Request.Form("aantalpax")) + CInt(Request.Form("aantalbby")) <> "" & intDeelnemer & "" Then
strArrangementen = strArrangementen & " <tr>" & vbCrLf
strArrangementen = strArrangementen & " <td colspan=""2"" height=""18"" valign=""middle""><img src=""../../images/pixel_darkblue.gif"" height=""1"" width=""100%""></td>" & vbCrLf
strArrangementen = strArrangementen & " </tr>" & vbCrLf
End If
Next

[raf]

i don't see the problem. Just sdon't concatenate the two variables and response.write them seperatly. No ?

[Fuego]

Well right now it is dispaying at this way

Hoofdboeker : Mr. B. blabla
Verzorging : All Inclusive
Arrangementen : Party

Medereiziger 1 : Mr. B. Blabla
Verzorging : All Inlusive
Arrangementen : n.v.t

But I'm displaying this all in the HTML just with the <%=strArrangementen%> because Im doing this in the Asp code
strArrangementen = strArrangementen & strDisVerzorging & " <tr>" & vbCrL

What I want and cant fix is that every string is being apart. i.e
Hoofdboeker : Mr. B. blabla - StrName
Verzorging : All Inclusive - StrDisverzorging
Arrangementen : Party - StrArrangementen

Medereiziger 1 : Mr. B. Blabla - StrName
Verzorging : All Inlusive - StrDisverzorging
Arrangementen : n.v.t - StrArrangementen

Its the problem im using an For Next I think but I dont know how to do it. Is it the only way to make
An extra string like StrTotal = StrName & StrDisverzorging & StrArrangementen ?