dr, loopa igenom resultat.

Halloj på er.
Håller på med en support sida till en bildvisare i flash, skall hämta data i ett formulär och skriva ut det på en sida med response.write. För att flash skall förstå värden så skickas dom som följande:

&total=2&image1=...länk...&desc1=...text...&image2=...länk...&desc2=...text...
etc..

för att sätta image[x], desc[x] så tänkte jag använda en Integer.

Bifogar min kod nedan, har labbat o labbat med den men får antingen att den inte hämtar något värde, eller som nu när den hämtar alla värden och skriver ut det snyggt men den uppdaterar alldrig min Integer, det står alltså alltid
image1=<rätt värde>&desc1=<rätt värde>

Hjälp :)

        Dim i As Integer = 1
        Dim output As String
        Dim user_ As New userSecurity
        Dim sql As New Data.SqlClient.SqlCommand
        Dim sqllib As New gatewaySql

        With sql
            .CommandType = Data.CommandType.Text
            .CommandText = "SELECT [file.name], [file.title] FROM [dbo].[user.profile.images] WHERE [user.id] ='" + user_.Return_UserId(My.User.Name) + "';"
        End With
        Dim dr As SqlDataReader = sqllib.DataRead(sql)
        Dim max As Integer = dr.FieldCount()
        output += "&total=" + max.ToString
        Do
            While dr.Read()
                output += "&image" + i.ToString + "=" + dr(0).ToString + "&desc" + i.ToString + "=" + dr(1).ToString
            End While
            i = i + 1
        Loop While dr.NextResult()
        Response.Write(output)