case of if too much repeat then help???

[Chris A.]

Hi,

I'm having some trouble.
I use a text field to put results I retrieve from a database.
When a line with a result is clicked, I show all the data of the result.
Problem is that there can be any number of results, so the script I'm
using now is not efficient at all, plus I will have to be satisfied with a
limited
number of results that will be clickable.
Does anyone have an idea to make this thing dynamic?

on mouseUp
    global choice
    global counter
    global searchResult
    set p=the mouseLine
    hilite line the mouseLine of field "choiceField"
    l=line the mouseLine of field "choiceField"

        case p of

            1:if counter > 0 then
                repeat while counter <> 1
                    DGRSMovePrev(searchResult)
                    set counter = counter - 1
                end repeat
            end if

            2:if counter > 1 then
                repeat while counter <> 2
                    DGRSMovePrev(searchResult)
                    set counter = counter - 1
                end repeat
            end if

            3:if counter > 2 then
                repeat while counter <> 3
                    DGRSMovePrev(searchResult)
                    set counter = counter - 1
                end repeat
            end if
        end case

    refreshFunction()
    go to "dbbrowse"

end

thanks in advance.

Chris A.
Dept.Webdesign - Multimedia
Creatief - Full Service N.V.
Brugsestraat 140
8531 Harelbeke (Hulste)
Belgium
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
www.creatief.be
Tel: +32 56/65.04.23
Fax: +32 56/71.78.51


[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi  To post messages to the list,
email [EMAIL PROTECTED]  (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo.  Thanks!]