Option Explicit
Dim valid
valid = True

Sub window_Onload
  Dim MyLoginForm
  Set MyLoginForm = Document.loginfrm
  If MyLoginform.Login.Value = "" Then
  	MyLoginform.Login.focus
	MyLoginform.Login.select
  Else
  	MyLoginform.Password.focus
	MyLoginform.Password.select  	
  End If
  status = "Uktha Global Inc"
End Sub

Function loginform_OnSubmit
  If valid = True Then
    loginform_OnSubmit = True
  Else
    loginform_OnSubmit = False
  End If
End Function