להלן הקוד שיש בו שתי שורות שלא עבדו
שתי השורות שלא עבדו הן:
if (txtUsername.value Is "") then spnInfo.innerHTML = "Login Failed!111" if (txtPassword.value Is "") then spnInfo.innerHTML = "Login Failed!222"
להלן הקוד השלם
<script runat="server"> Function Login(strUsername As String, strPassword As String) As String Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("data\school_reports.mdb") Dim conn As OleDbconnection=New OleDbconnection(strConn) conn.Open() Dim sql As String="select * from users where user_name='" & strUsername sql=sql & "' and password=" & strPassword - 10000 Dim cmd_users As OleDbCommand=New OleDbCommand(sql,conn) Dim dr As OleDbDataReader dr=cmd_users.ExecuteReader() If dr.read() = False Then Return "" Else Return "ok" End If conn.close() End Function Sub cmdLogin_Click(Sender As Object, E As EventArgs) Dim strOk As String if (txtUsername.value Is "") then spnInfo.innerHTML = "Login Failed!111" if (txtPassword.value Is "") then spnInfo.innerHTML = "Login Failed!222" 'Attempt to Validate User Credentials strOk = Login(txtUsername.Value, txtPassword.Value) If (strOk <> "") Then ' Redirect browser back to originating page FormsAuthentication.RedirectFromLoginPage(strOk, false) Else ' Login failed spnInfo.innerHTML = "Login Failed!" End If End Sub </script> <html> <head> <title>Login</title> </head> <body> <form id="WebForm1" method="post" runat="server"> <!-- Username -->Username: <input id="txtUsername" type="text" size="30" runat="server" /> <br /> <br /> <!-- Password -->Password: <input onkeypress='if (event.keyCode>=48 && event.keyCode<=57==false) {alert("Passwords should be numbers - Except For Registering New Schools For The First Time")}' id="txtPassword" type="password" size="30" runat="server" /> <br /> <br /> <!-- Button --> <input type="submit" value="Sign In Now" runat="server" onserverclick="cmdLogin_Click" /> <br /> <br /> <!-- Label --><span id="spnInfo" runat="server"></span> </form> </body> </html>