Oversæt script fra VB.net til ASP Classic

Hej eksperter, nu har jeg siddet og Googlet det meste af dagen, og har endelig fundet det jeg skal bruge - der er bare et problem, jeg kan sgu ikke selv skrive det om til ASP Classic :(

Jeg håber i kan hjælpe... scriptet er følgende:

Dim aryJaggedData(2)() As String
aryJaggedData(0) = New String() {"Red", "Yellow", "Blue"}
aryJaggedData(1) = New String() {"8", "9"}
aryJaggedData(2) = New String() {"Covered"}

strResult = RecurseData(aryJaggedData, 0, String.Empty, String.Empty))

Private Function RecurseData(ByVal aryData As String()(), ByVal intRecurseLevel As Integer, ByVal strResult As String, ByVal strLine As String) As String
    Dim strPositionVal As String
    Dim strMyLine As String
    For i As Integer = 0 To aryData(intRecurseLevel).GetUpperBound(0)
        strPositionVal = aryData(intRecurseLevel)(i)
        If strLine.Length > 0 Then
            strMyLine = String.Format("{0}/{1}", strLine, strPositionVal)
        Else
            strMyLine = strPositionVal
        End If
        If intRecurseLevel < aryData.GetUpperBound(0) Then
            'Need to traverse down the y axis
            strResult = RecurseData(aryData, intRecurseLevel + 1, strResult, strMyLine)
        Else
            strResult = String.Format("{0}{1}{2}", strResult, Environment.NewLine, strMyLine)
        End If
    Next
    Return strResult
End Function