<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub Login(ByVal obj As Object, ByVal e As eventargs)
Dim intId As Integer = 0
Dim Conn As New OleDbConnection("Provider=" & _
"Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:/ASPNET/data/banking.mdb")
Dim objCmd As OleDbCommand = New OleDbCommand _
("spValidateUser", Conn)
objCmd.CommandType = CommandType.StoredProcedure
'set parameters for stored procedure
Dim objParam As OleDbParameter
objParam = objCmd.Parameters.Add("@UserName", _
OleDbType.BSTR)
objParam.Value = tbUserName.Text
objParam = objCmd.Parameters.Add("@Password", _
OleDbType.BSTR)
objParam.Value = tbPassword.Text
objCmd.Connection.Open()
intID = CType(objCmd.ExecuteScalar, Integer)
objCmd.Connection.Close()
If intID <> 0 Then
Response.Cookies("Account").Value = intId
Response.Write(intId)
' Response.redirect("account.aspx")
Else
lblMessage.Text = "<font color=red>Sorry, " & _
"invalid username or password!</font><p>"
End If
End Sub
</script>
<html><body>
<font face="arial">
<form runat="server">
<asp:Label id="lblMessage" runat="server" />
<table>
<tr>
<td width="75" rowspan="3">
</td>
<td width="50" valign="top">
<font face="arial">
Username:
</font>
</td>
<td width="50" valign="top">
<font face="arial">
<asp:Textbox id="tbUserName" runat="server" />
</font>
</td>
</tr>
<tr>
<td valign="top">
<font face="arial">
Password:
</font>
</td>
<td valign="top">
<font face="arial">
<asp:Textbox id="tbPassword" TextMode="password"
runat="server" /><p>
</font>
</td>
</tr>
<tr>
<td align="right" colspan="2">
<font face="arial">
<ASP:Button id="Submit" runat="server"
onClick="Login"
Text="Submit" />
</font>
</td>
</tr>
</table>
</form>
</font>
</body></html>