Sub Login_System(obj as object, e as eventargs) dim strUser as string dim strPass as string
strUser = user.text strPass = pass.value
if strUser = "שם משתמש" and strPass ="ססמא" and page.isvalid then server.transfer("הדף אליו יעבור אם השם משתמש והססמא נכונים") else taut.visible = "true" end if