Sub entrance_onClick

returnvalue=MsgBox ("You are about to enter a proprietary site for members ONLY. Proceed?",35,"Site Login")

If returnvalue=6 Then

Login

Else

window.location="http://www.geneonet.com"

End If

End Sub