header.ascx

This is a book about vb.you could learn this from this book

<%@ Import Namespace="System.Web.Security " %>

<script language="VB" runat="server">

   Sub Page_Load(sender As Object, e As EventArgs)
      updateSignInOutMessage()
   End Sub
   
   Private Function GetCustomerID() As String
       
        If Context.User.Identity.Name <> "" Then
          Return Context.User.Identity.Name
        Else
	   If Session("AnonUID") = "" Then
		Session("AnonUID") = Guid.NewGuid()
	   End If
	   Return Session("AnonUID").ToString()
        End If
        
   End Function
   
   
   Private Sub SignInOut(sender As Object, e As EventArgs)

      If Context.User.Identity.Name <> "" Then
         Dim cart As New IBuyAdventure.CartDB(ConfigurationSettings.AppSettings("connectionString"))
         cart.ResetShoppingCart(GetCustomerID())
         FormsAuthentication.SignOut()
         Response.Redirect("/IBuyAdventure/default.aspx")
       Else
         Response.Redirect("/IBuyAdventure/login.aspx")
       End If
   End Sub

   Private Sub updateSignInOutMessage()

      If Context.User.Identity.Name <> "" Then
         signInOutMsg.Text = "Sign Out (" & Context.User.Identity.Name & ")"
      Else
      	 signInOutMsg.Text = "Sign In / Register"
      End If

   End Sub

</script>

<table width=100% border=0>
  <TR>
    <TD width=125> 
      <IMG SRC="/IBuyAdventure/images/spacer.GIF" ALIGN=LEFT WIDTH=100 ALT="">
    </TD>

    <TD width=325>
      <a href="/IBuyAdventure/Default.aspx?Abandon=1"> 
        <IMG SRC="/IBuyAdventure/images/Frontartcomp.jpg" ALIGN=LEFT width="300" BORDER=0>
      </a>
      <BR>
    </TD>

    <TD>
      <IMG SRC="/IBuyAdventure/images/banner_navigate.gif" align=left usemap="#NAVIGATE" BORDER=0><BR>
      
      <MAP NAME="NAVIGATE">
        <AREA SHAPE="RECT" COORDS="0,0, 50,18"     HREF="/IBuyAdventure/ShoppingCart.aspx">
        <AREA SHAPE="RECT" COORDS="50,0, 200,18"   HREF="/IBuyAdventure/Help.aspx">        
        <AREA SHAPE="RECT" COORDS="0,19, 101,35"   HREF="/IBuyAdventure/secure/YourAccount.aspx">
      </MAP>      
      
    </TD>  
    
    <TD align=left>
      &nbsp; 
    </TD>
  </TR>
  <TR>
    <TD width=125> 
      <IMG SRC="/IBuyAdventure/images/spacer.GIF" ALIGN=LEFT WIDTH=100 ALT="">
    </TD>
    <TD><asp:linkbutton style="font: 8pt verdana" id="signInOutMsg" runat="server" OnClick=SignInOut /></TD>
  </TR>
  <TR>
    <TD> 
      <IMG SRC="/IBuyAdventure/images/spacer.GIF" ALIGN=RIGHT WIDTH=100 ALT="">
    </TD>

    <TD COLSPAN=5>
      <HR SIZE=4 width=100%>
    </TD>

  </TR>


</table>