index:
<%@ Page Language="VB" ContentType="te xt/html"
ResponseEncodin g="iso-8859-1" %>
<%@ Import Namespace="Syst em.Data" %>
<%@ Import Namespace="Syst em.Data.OleDb" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt d">
<script runat="server">
Public strFullName As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArg s)
If Session("LoginN umber") Is Nothing Then
Response.Redire ct("login.aspx" )
Else
Dim strLoginQuery As String
strLoginQuery = "SELECT * FROM " & Session("TableT ype") & "
WHERE " & Session("PriKey ") & "='" & Session("LoginN umber")
Dim conn As OleDbConnection
Dim comm As OleDbCommand
Dim dsRead As OleDbDataReader
Dim strConn As String
strConn = "PROVIDER=Micro soft.Jet.OLEDB. 4.0;DATA SOURCE=" &
"C:\Inetpub\www root\Styles\db\ styles2k3.mdb;"
conn = New OleDbConnection (strConn)
comm = New OleDbCommand(st rLoginQuery, conn)
dsRead = comm.ExecuteRea der(CommandBeha vior.CloseConne ction)
While dsRead.Read()
If Session("TableT ype") = "FACTORIES" Then
strFullName = dsRead("FACTORY _NAME")
Else
strFullName = dsRead(Session( "Prefix") & "FNAME") &
" " & dsRead(Session( "Prefix") & "LNAME")
End If
End While
dsRead.Close()
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="StyleSheet " type="text/css" href="css/styles.css" />
<title>Welcom e <%=strFullName% ></title>
</head>
<body>
</body>
</html>
login:
<%@ Page Language="VB" %>
<%@ Import Namespace="Syst em.Data" %>
<%@ Import Namespace="Syst em.Data.OleDb" %>
<script runat="server">
Public strErrMessage As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArg s)
Dim strLogin As String
Dim strPass As String
strLogin = Request.Form("t xtLogin")
strPass = Request.Form("t xtPassword")
If (strLogin <"" And strPass <"") Then
Dim strTable As String
Dim strTable2 As String
Dim strPrefix As String
Dim strPrefix2 As String
Dim strPrefix3 As String
strTable = ""
strTable2 = ""
strPrefix = ""
strPrefix2 = ""
strPrefix3 = ""
Select Case Request.Form("R adioButtonList1 ").ToString ()
Case "Salesman"
strTable = "SALESLOGIN S"
strTable2 = "SALESMEN"
strPrefix = "SL_"
strPrefix2 = "S_"
strPrefix3 = "SALESMAN_"
Case "Customer"
strTable = "CUSTLOGINS "
strTable2 = "CUSTOMERS"
strPrefix = "CL_"
strPrefix2 = "C_"
strPrefix3 = "CUSTOMER_"
Case "Supplier"
strTable = "FACTORYLOG INS"
strTable2 = "FACTORIES"
strPrefix = "FL_"
strPrefix2 = "F_"
strPrefix3 = "FACTORY_"
End Select
Dim conStr As String
Dim strQueryLogins As String
strQueryLogins = "SELECT TOP 1 FROM " & strTable & " WHERE "
& strPrefix & "LOGIN='" & strLogin & "' AND " & strPrefix & "PASSWORD=' "
& strPass & "'"
conStr = "PROVIDER=Micro soft.Jet.OLEDB. 4.0;DATA SOURCE=" &
"C:\Inetpub\www root\Styles\db\ styles2k3.mdb;"
Dim conn As OleDbConnection
Dim comm As OleDbCommand
Dim objReader As OleDbDataReader
conn = New OleDbConnection (conStr)
conn.Open()
comm = New OleDbCommand(st rQueryLogins, conn)
objReader = comm.ExecuteRea der(CommandBeha vior.CloseConne ction)
If objReader.HasRo ws() Then
While objReader.Read( )
Session("LoginN umber") = objReader(strPr efix2 & "ID")
Session("PriKey ") = strPrefix3 & "ID"
Session("TableT ype") = strTable2
Session("Prefix ") = strPrefix3
End While
Response.Redire ct("index.aspx" )
Else
strErrMessage = "Error: invalid username/password, try
again"
End If
objReader.Close ()
End If
End Sub
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt d">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Login</title>
<link rel="StyleSheet " type="text/css" href="css/styles.css" />
</head>
<body>
<% If (Len(Trim(strEr rMessage)) 0) Then
Response.Write( "<font color=red>" & strErrMessage & "</font>")
End If
%>
<h3>Login to website:</h3>
<form id="frmLogin" runat="server" action="login.a spx">
<div>
<asp:Label ID="Label1" runat="server" Text="User ID:"
Width="57px"></asp:Label>
<asp:TextBox ID="txtLogin" runat="server"> </asp:TextBox><br />
<asp:Label ID="Label2" runat="server" Text="Password: "
Width="56px"></asp:Label>
<input id="txtPassword " type="password" /><br />
<br />
Are you logging in as a:<br />
<asp:RadioButto nList ID="RadioButton List1" runat="server">
<asp:ListItem Value="Customer "></asp:ListItem>
<asp:ListItem Value="Salesman "></asp:ListItem>
<asp:ListItem Value="Supplier "></asp:ListItem>
</asp:RadioButton List><br />
<asp:Button ID="btnLogin" runat="server" Text="Login" />
<asp:Button ID="btnReset" runat="server" Text="Reset"
UseSubmitBehavi or="False" /><br />
</div>
</form>
</body>
</html>
The index redirects fine on the first one, but when I login, it doesn't
seem to redirect me back to the right page (index.aspx)
