2D array in tag cloud

[delcom5]

Hi,
I've tried with this since 5pm. It's now 2am and still not working. I am trying to display some tags in a tagcloud. Originally it was working with a one dimension array but I needed the id for the hyperlink so I change to a 2 dimension array. The problem is that only the last item in the array is rendered. For Some reason my array is not preserved.

Here is my code...seriously I really tried with this. Kindly assist.

 
<%
 
Function tagCloud()
 
Dim aDigits, tempTagHolder, biggestNum
Dim aDynamic
 
ReDim aDynamic(1,0)
 
 Set conn = server.createobject("adodb.connection")
 
 Set objRs = server.CreateObject("adodb.recordset")
 
 conn.open strConn
 
 sql = "execute GetTagCloud"
 
 set objRs = conn.Execute(sql)
 
    While Not objRs.EOF
        count = objRs("tag_count")
        objRs.MoveNext
    Wend    
 
    'Get next table with tags
    Set objRs = objRs.NextRecordset()
 
 
    While Not objRs.EOF
 
 
    For i = 0 to count
 
        ReDim Preserve aDynamic(1,i) <-----------------------------Here
        aDynamic(0,i) = objRs.Fields.Item("tag_id").value
        aDynamic(1,i) = objRs.Fields.Item("tag_Name").value
 
    Next 
 
    objRs.MoveNext
 
    Wend
 
    objRs.Close()
 
    'For b = 0 to Count
        'response.write(aDynamic(1,b))
    'Next 
 
 
    Call DualSorter(aDynamic,1)
 
 
    'Get the highest tag
    biggestNum = 0
    lastTag =  aDynamic(1,0)
    For i=0 to count
        If lastTag = aDynamic(1,i) Then 
            tagCount = tagCount+1
        Else
            If tagCount >= biggestNum Then 
                biggestNum = tagCount
            End If
            tagCount = 1
        End If
        lastTag = aDynamic(1,i) 
        If i = count Then 
            If tagCount >= biggestNum Then 
                biggestNum = tagCount
            End If
        End If
    Next 
 
    'Output Tags
    Dim lastTag, tagCount, i, newTag, loopHolder, tempNewTag, sHTML
    lastTag = aDynamic(1,0)
    tagCount=0
 
    sHTML = "<div>"
 
    For i=0 to count 
        If lastTag = aDynamic(1,i) Then 
            tagCount = tagCount+1
        Else
            sHTML = sHTML  & "<a href=""?tag="&lastTag&""">"&renderTag(lastTag,tagCount,biggestNum)&"</a>" 
            tagCount = 1
        End If
        lastTag = aDynamic(1,i) 
        If i = count Then 
            sHTML = sHTML  & "<a href=""?tag="&lastTag&""">"&renderTag(lastTag,tagCount,biggestNum)&"</a>" 
        End If
    Next 
 
    Response.Write(sHTML&"</div>")
 
End Function
 
Function renderTag(tagName,tagCount,biggestNum)
 
       ...Just applying size style
 
End Function
 
 
Sub DualSorter( byRef arrArray, DimensionToSort )
    Dim row, j, StartingKeyValue, StartingOtherValue, _
        NewStartingKey, NewStartingOther, _
        swap_pos, OtherDimension
    Const column = 1
 
    ' Ensure that the user has picked a valid DimensionToSort
    If DimensionToSort = 1 then
        OtherDimension = 0
    ElseIf DimensionToSort = 0 then
        OtherDimension = 1
    Else
        'Shoot, invalid value of DimensionToSort
        Response.Write "Invalid dimension for DimensionToSort: " & _
                       "must be value of 1 or 0."
        Response.End
    End If
 
    For row = 0 To UBound( arrArray, column ) - 1
    'Start outer loop.
 
        'Take a snapshot of the first element
        'in the array because if there is a 
        'smaller value elsewhere in the array 
        'we'll need to do a swap.
        StartingKeyValue = arrArray ( row, DimensionToSort )
        StartingOtherValue = arrArray ( row, OtherDimension )
 
        ' Default the Starting values to the First Record
        NewStartingKey = arrArray ( row, DimensionToSort )
        NewStartingOther = arrArray ( row, OtherDimension )
 
        swap_pos = row
 
        For j = row + 1 to UBound( arrArray, column )
        'Start inner loop.
            If arrArray ( j, DimensionToSort ) < NewStartingKey Then
            'This is now the lowest number - 
            'remember it's position.
                swap_pos = j
                NewStartingKey = arrArray ( j, DimensionToSort )
                NewStartingOther = arrArray ( j, OtherDimension )
            End If
        Next
 
        If swap_pos <> row Then
        'If we get here then we are about to do a swap
        'within the array.
            arrArray ( swap_pos, DimensionToSort ) = StartingKeyValue
            arrArray ( swap_pos, OtherDimension ) = StartingOtherValue
 
            arrArray ( row, DimensionToSort ) = NewStartingKey
            arrArray ( row, OtherDimension ) = NewStartingOther
 
        End If    
    Next
End Sub
 
 
%>
 

[jhardman]

I didn't look into it really deep, but your 2D array only has two possible values in one dimension. Why don't you just use 2 different 1D arrays? Just a thought.

Jared

[delcom5]

I didn't look into it really deep, but your 2D array only has two possible values in one dimension. Why don't you just use 2 different 1D arrays? Just a thought.

Jared

Can you please explain? If I use 2 separate arrays how can I get them to sort on the same matching order?

[jhardman]

Can you please explain? If I use 2 separate arrays how can I get them to sort on the same matching order?

This is really easy. Say you have a list of people's names and a second list of genders. so the first list names(9) contains these:

gina
gordon
alexander
peter
debora
misty
conan
subashini
ali
germain

and the other list genders(9) looks like this:

fem
mas
mas
mas
fem
fem
mas
fem
mas
mas

then you can sort them like this:

dim i, j, tempName, tempGend
 
for i = 8 to 0 step -1
   for j = 0 to i
      tempName = names(j+1)
      tempGend = genders(j+1)
      if names(j)>tempName then
         names(j+1) = names(j)
         names(j) = tempName
         genders(j+1) = genders(j)
         genders(j) = tempGend
      end if
   next
next
 
for each i in names
   response.write names(i) & ": " & genders(i) & "<br>" & vbNewLine
next

notice, I sort both arrays according to the name, I never look at the value of the second array, except that I move it to match the other array which I sorted. In the end the newly arranged array has the right gender with the right name. Let me know if this helps.

Jared

[delcom5]

This is really easy. Say you have a list of people's names and a second list of genders. so the first list names(9) contains these:

gina
gordon
alexander
peter
debora
misty
conan
subashini
ali
germain

and the other list genders(9) looks like this:

fem
mas
mas
mas
fem
fem
mas
fem
mas
mas

then you can sort them like this:

dim i, j, tempName, tempGend
 
for i = 8 to 0 step -1
   for j = 0 to i
      tempName = names(j+1)
      tempGend = genders(j+1)
      if names(j)>tempName then
         names(j+1) = names(j)
         names(j) = tempName
         genders(j+1) = genders(j)
         genders(j) = tempGend
      end if
   next
next
 
for each i in names
   response.write names(i) & ": " & genders(i) & "<br>" & vbNewLine
next

notice, I sort both arrays according to the name, I never look at the value of the second array, except that I move it to match the other array which I sorted. In the end the newly arranged array has the right gender with the right name. Let me know if this helps.

Jared

Ah ha...This looks interesting. Let me try this.