Just store the username and other variable in the session
syntax:
session("anyname")=Username.text
retrieve session variables by:
dim username as string=session("anyname")
have fun!
--- In [email protected], "higzog" <[EMAIL PROTECTED]>
wrote:
>
>
> Am a Newbee - I need to capture a session variable from the login
> script below to use for subsequent page queries.
>
> ***************************
> <%@ Page Language="VB" %>
> <script runat="server">
>
> Sub LoginBtn_Click(Sender As Object, E As EventArgs)
>
> If Page.IsValid Then
> Dim userDS As New System.Data.DataSet
> userDS = LoginLookup(UserName.Text, UserPass.Text)
> If userDS.Tables(0).Rows.Count = 1 Then
> FormsAuthentication.RedirectFromLoginPage
> (UserName.Text, false)
> Else
> Msg.Text = "Invalid Credentials: Please try again"
> End If
> End If
>
>
> End Sub
>
> Function LoginLookup(ByVal username As String, ByVal
password
> As String) As System.Data.DataSet
> Dim connectionString As String = "server='(local)';
> trusted_connection=true; database='NLookup'"
> Dim dbConnection As System.Data.IDbConnection = New
> System.Data.SqlClient.SqlConnection(connectionString)
>
> Dim queryString As String = "SELECT [SUPERVISOR].*
FROM
> [SUPERVISOR] WHERE (([SUPERVISOR].[Username] = @Userna"& _
> "me) AND ([SUPERVISOR].[Password] = @Password))"
> Dim dbCommand As System.Data.IDbCommand = New
> System.Data.SqlClient.SqlCommand
> dbCommand.CommandText = queryString
> dbCommand.Connection = dbConnection
>
> Dim dbParam_username As System.Data.IDataParameter =
New
> System.Data.SqlClient.SqlParameter
> dbParam_username.ParameterName = "@Username"
> dbParam_username.Value = username
> dbParam_username.DbType = System.Data.DbType.String
> dbCommand.Parameters.Add(dbParam_username)
> Dim dbParam_password As System.Data.IDataParameter =
New
> System.Data.SqlClient.SqlParameter
> dbParam_password.ParameterName = "@Password"
> dbParam_password.Value = password
> dbParam_password.DbType = System.Data.DbType.String
> dbCommand.Parameters.Add(dbParam_password)
>
> Dim dataAdapter As System.Data.IDbDataAdapter = New
> System.Data.SqlClient.SqlDataAdapter
> dataAdapter.SelectCommand = dbCommand
> Dim dataSet As System.Data.DataSet = New
> System.Data.DataSet
> dataAdapter.Fill(dataSet)
>
> Return dataSet
>
> End Function
>
> </script>
> <html>
> <head>
> </head>
> <body style="FONT-FAMILY: arial">
> <form runat="server">
> <h2><img alt="Logo" src="logo.gif" />
> </h2>
> <h2>Election Supervisor - Login Page
> </h2>
> <hr size="1" />
> <table>
> <tbody>
> <tr>
> <td>
> Username:</td>
> <td>
> <asp:TextBox id="UserName"
> runat="server"></asp:TextBox>
> </td>
> <td>
> <asp:RequiredFieldValidator
> id="Requiredfieldvalidator1" runat="server" ErrorMessage="value
> required" Display="Static"
> ControlToValidate="UserName"></asp:RequiredFieldValidator>
> </td>
> </tr>
> <tr>
> <td>
> Password:</td>
> <td>
> <asp:TextBox id="UserPass" runat="server"
> TextMode="Password"></asp:TextBox>
> </td>
> <td>
> <asp:RequiredFieldValidator
> id="Requiredfieldvalidator2" runat="server" ErrorMessage="value
> required" Display="Static"
> ControlToValidate="UserPass"></asp:RequiredFieldValidator>
> </td>
> </tr>
> </tbody>
> </table>
> <asp:button id="LoginBtn" onclick="LoginBtn_Click"
> runat="server" text="Login"></asp:button>
> <p>
> <asp:Label id="Msg" runat="server"
> forecolor="red"></asp:Label>
> </p>
>
> </form>
> </body>
> </html>
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
