ASP.NET

<br />
    Protected Sub DetailsView1_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertedEventArgs) Handles DetailsView1.ItemInserted<br />
        If DetailsView1.CurrentMode = FormViewMode.Insert Then<br />
            LoadData()<br />
<br />
            'Get max entry in table myID field.<br />
<br />
            'Increment by one.<br />
<br />
            'Add to the myID field in the dateview.<br />
<br />
        End If<br />
    End Sub<br />
    Private Sub LoadData()<br />
        Dim oleConn As New OleDbConnection<br />
        oleConn.ConnectionString = ConfigurationManager.ConnectionStrings("ShowRegDBConnectionString").ConnectionString<br />
<br />
        Dim oleComm As New OleDb.OleDbCommand<br />
        oleComm.Connection = oleConn<br />
<br />
        Try<br />
            oleConn.Open()<br />
<br />
            oleComm.CommandText = ("SELECT Max(myID) FROM SuggestionTB")<br />
            Dim myID As String = Convert.ToString(oleComm.ExecuteScalar())<br />
<br />
            oleConn.Close()<br />
<br />
            LastValue = myID<br />
<br />
        Catch ex As OleDbException<br />
            oleConn.Close()<br />
        End Try<br />
    End Sub<br />

using System;
using System.Collections.Generic;
using System.Web;

namespace BEAR.UrlRewriter
{
    public class ExtensionWriter : IHttpModule
    {
        //the application to call this module
        private HttpApplication application;
        //extensions to discard
        private List<string> ext;

        public void Init(HttpApplication application)
        {
            //populate extensions to discard
            string[] exten = { "asp", "aspx", "pl", "cfm", "php" };
            this.ext = new List<string>();
            foreach (string s in exten)
                ext.Add(s);
            
            this.application = application;
            this.application.BeginRequest += new EventHandler(this.BeginRequestHandler);
        }

        protected virtual void BeginRequestHandler(object sender, EventArgs e)
        {
            string url = this.application.Request.Path;

            string[] path = url.Split(new char[] { '/' });//split directories
            //Split the last between file portion and the query string.
            string[] location = path[path.Length - 1].Split(new char[] { '?' });

            string file = location[0]; //Save file portion
            string[] splitFile = file.Split(new char[] { '.' });

            if (splitFile.Length == 1) //Only if the file has no extension
            {
                string newPath = string.Empty;

                foreach (string s in path)
                    newPath += s + "/";//reconstruct the path

                newPath += file + ".aspx"; //add an aspx extention

                if (this.application.Request.QueryString.HasKeys()) //reattach query string if it exists
                    newPath += "?" + this.application.Request.QueryString.ToString();

                //rewrite the url
                this.application.Context.RewritePath(newPath);
            }
            else if(splitFile.Length > 1 && ext.Contains(splitFile[1]))
            {
                string newPath = string.Empty;

                foreach (string s in path)
                    newPath += s + "/"; //reconstruct the path

                newPath += splitFile[0];//Drop the extension

                if (this.application.Request.QueryString.HasKeys()) //reattach query string if it exists
                    newPath += "?" + this.application.Request.QueryString.ToString(); 

                //redirect
                application.Response.Redirect(newPath.ToLower());
            }
        }

        public void Dispose() { /* Empty */ }
    }
}

<br />
Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate<br />
        If Membership.ValidateUser(Login1.UserName, Login1.Password) Then<br />
            Dim oTimeout As Integer = (Convert.ToInt32(ConfigurationManager.AppSettings("TotalTimeOut")) / 60)<br />
            Dim ticket As FormsAuthenticationTicket = New FormsAuthenticationTicket(1, _<br />
             Login1.UserName, _<br />
             DateTime.Now, _<br />
             Date.Now.AddMinutes(oTimeout), _<br />
             Login1.RememberMeSet(), _<br />
             "", _<br />
             FormsAuthentication.FormsCookiePath)<br />
<br />
            ' Encrypt the ticket.<br />
            Dim encTicket As String = FormsAuthentication.Encrypt(ticket)<br />
<br />
            ' Create the cookie.<br />
            Response.Cookies.Add(New HttpCookie(FormsAuthentication.FormsCookieName, encTicket))<br />
<br />
            ' Redirect back to original URL.<br />
            Response.Redirect(FormsAuthentication.GetRedirectUrl(Login1.UserName, Login1.RememberMeSet()))<br />
<br />
<br />
        End If<br />
    End Sub<br />

<br />
authCookie As HttpCookie = Request.Cookies(FormsAuthentication.FormsCookieName)<br />
authCookie.Expires = DateTime.Now.AddMinutes(oTimeout)<br />