[jawsscripts] Need help. script not working

Hi Listers,
I have a script that I want to use to cut down the number of keystrokes to get to a particular button.
The application is a CD catalogue program and when I manually add a new CD, I need to go to the "Link album to disc" button to calculate the total time of the CD.
My script is not working. I open up a detail window to move to varrious information pertaining to the CD, such as the album title, genre, total time etc., but when I use a shortcut key to move to the button, I always get the message that the "Link the album to disc" cannot be found. 

My script is below. Thanks for any help or suggestions.

Lennie

The script starts here:

Script GoToLinkAlbum ()

Var

handle hGrip,

string sAlbum,

string sLink,

int iCount

let sAlbum = "Album"

let sLink = "Link album to disc"

let iCount = 0

TypeKey (cKSDetail)
; open the album detail window

SaveCursor ()

RouteJAWSToPc ()

;SayWord ()

If GetWord () != sAlbum then
SayMessage (OT_ERROR, "You must be in an album to perform this function. Request cancelled") 

JAWSCursor ()

JAWSPageUp ()

JAWSEnd ()

LeftMouseButton ()

RestoreCursor ()

        Return

EndIf

RestoreCursor ()

TabKey ()

; This tab moves to the list of various controls pertaining to the album

let hGrip = GetCurrentWindow ()

let iCount = 1

while iCount < 19
; Look for Control ID 96 which is the 18th item pertaining to the album

GetControlID (hGrip)

If (GetControlID(hGrip) != 96) then

let iCount = iCount + 1

TabKey ()
; move to the next item

let hGrip = GetCurrentWindow ()

else

let iCount = 20
; We found it

EndIf

EndWhile

If (iCount == 20) then
ShiftTabKey ()
;move to "Link album to disc"

        SayWord ()

Else

        SayMessage  (OT_ERROR, "The link album to disc cannot be found")

SaveCursor ()

RouteJAWSToPc ()

JAWSCursor ()

JAWSPageUp ()

JAWSEnd ()

LeftMouseButton ()
; close the detail window

RestoreCursor ()

EndIf

EndScript

Other related posts: