With Browser("RMS Login")
	With .Page("RMS Login")
		.WebEdit("username").Set "user"
		.WebEdit("password").Set "coffee23"
		.Image("ImageButtonLogin").Click
	End With

	With .Page("RMS by Sage")
		.Frame("nav").WebElement("Bullet4").Click
		.Frame("SiteView").WebElement("monitor-1.03.03-04.i386.rpm").Click
	End With
	.Dialog("File Download").WinButton("Cancel").Click

	With .Page("RMS by Sage")
	.Frame("nav").WebElement("Bullet4").Click
		With .Frame("SiteView")
			RowCount = .WebTable("Binary Id").RowCount
			For row = 2 To RowCount
				Set RMSLink= .WebTable("Binary Id").ChildItem(2,row,"Link",0)
				If TypeName(RMSLink) = "TextLink"  Then
					RMSLink.Click()
				End If
			Next
		End With
	End With
	
 	.Page("RMS by Sage").Frame("header").Link("Logout").Click
	.Page("RMS Login_2").Sync
	.Close
End With